利用VB.NET打印39条码方法管理论文.docVIP

利用VB.NET打印39条码方法管理论文 目录 1 软件环境 2 硬件环境 3 核心代码 3.1 基本环境准备：首先建立一个项目 3.2 控件基本设置：设置PrintPreviewDialog1的document、PrintPreviewControl.Zoom、UseAntiAlias属性值一次为printdocument1、1.0、True 3.3 引入项目所需的类 3.4 打印39条码函数 3.5 在printdocument1的printpage事件中编写如下语句 e.Graphics.DrawString(lbbm 3.6 在打印按钮（button1） 正文 摘要：随着信息技术的不断普及，条码在各行各业应用越来越广泛，尤其在物联网技术的不断成熟之期，其显得尤为重要。为此，结合我多年来开发经验，现将其归纳整理奉献给大家，以供参考借鉴 下载论文网 关键字：条码VB.NET 对于条码处理，一般行业都是通过专用的条码打印机。但无论是程序开发者，还是使用者往往都需要考虑旧设备的利用，从而减少投资，为此就出现了“如何通过普通激光或喷墨打印机”设计打印条码的问题，就其问题，现将其核心代码推荐给大家，以供参考。 1 软件环境 运行环境：windows xp 开发环境：Microsoft Visual Studio 2005 开发语言：VB.NET 支持字库：3 of 9 2 硬件环境 打印机：普通型激光或喷墨打印机 3 核心代码 3.1 基本环境准备：首先建立一个项目，然后添加一个窗体，最后在工具箱中分别拖拽三个控件：printdocument、PrintPreviewDialog和Button，其名称分别为：printdocument1、PrintPreviewDialog1和Button1。 3.2 控件基本设置：设置PrintPreviewDialog1的document、PrintPreviewControl.Zoom、UseAntiAlias属性值一次为printdocument1、1.0、True。 3.3 引入项目所需的类 在窗体的类上面定义类的引用，代码如下： Imports System.Drawing.Printing 3.4 打印39条码函数 Private Sub TSBM(ByVal mygraphics As Graphics，ByVal TSTMZ As String，ByVal x As Single，ByVal y As Single) TSTMZ = TSTMZ.ToUpper Dim TMfont As Font = New Font(3 of 9 Barcode，20， FontStyle.Regular) Dim TMZfont As Font=New Font(宋体，14，FontStyle.Bold) mygraphics.DrawString(TSTMZ，TMfont，brushes.Black，x，y) For i As Integer = 1 To TSTMZ.Length mygraphics.DrawString(Mid(TSTMZ，i，1)，TMZfont，brushes.Black，x+13+i*12，y+TMfont.Height) Next End Sub 3.5 在printdocument1的printpage事件中编写如下语句，以实现条码预览和打印 Private Sub printmydocument1_PrintPage(ByVal sender As System.Object，ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printmydocument1.PrintPage Dim TMfont As Font = New Font(3 of 9 Barcode，20， FontStyle.Regular) Dim TMZfont As Font = New Font(宋体，14，FontStyle.Bold) Dim BTfont As Font = New Font(黑体，20，FontStyle.Bold) Dim mytop As Single = e.MarginBounds.Top Dim myleft As Single = e.MarginBounds.Left Dim pageHS As Integer = e.MarginBounds.Height / (TMfont.GetHeight(e.Graphics) + TMZfont.GetHeight(e.Graphics) + 15) e.Graphics.DrawString(lbbm，BTfont，br