VB.Net 操作打印机

首先创建一个打印机类@H_404_2@,@H_404_2@继承@H_404_2@PrintDocument.@H_404_2@重写@H_404_2@OnBeginPrint @H_404_2@方法@H_404_2@,@H_404_2@和@H_404_2@ OnPrintPage@H_404_2@方法@H_404_2@.@H_404_2@

@H_404_2@

' @H_404_2@使用@H_404_2@VB.net@H_404_2@操作打印机@H_404_2@

@H_404_2@

Imports@H_404_2@System.Drawing.Printing@H_404_2@

Imports@H_404_2@System.IO@H_404_2@

Imports@H_404_2@BarcodeLib@H_404_2@

@H_404_2@

Public@H_404_2@Class@H_404_2@TextFilePrintDocument@H_404_2@

@H_404_2@Inherits@H_404_2@PrintDocument@H_404_2@

@H_404_2@

@H_404_2@Private@H_404_2@printFontAs@H_404_2@Font@H_404_2@@H_404_2@

@H_404_2@Private@H_404_2@streamToPrintAs@H_404_2@StreamReader@H_404_2@@H_404_2@

@H_404_2@

@H_404_2@Public@H_404_2@Sub@H_404_2@New@H_404_2@(@H_404_2@ByVal@H_404_2@streamReaderAs@H_404_2@StreamReader@H_404_2@)@H_404_2@

@H_404_2@MyBase@H_404_2@.@H_404_2@New()@H_404_2@

@H_404_2@Me@H_404_2@.@H_404_2@streamToPrint = streamReader@H_404_2@

@H_404_2@

@H_404_2@End@H_404_2@Sub@H_404_2@

@H_404_2@

@H_404_2@Protected@H_404_2@Overrides@H_404_2@Sub@H_404_2@OnBeginPrint(ByVal@H_404_2@eAs@H_404_2@System.Drawing.Printing.PrintEventArgs@H_404_2@)@H_404_2@

@H_404_2@MyBase@H_404_2@.@H_404_2@OnBeginPrint(e)@H_404_2@

@H_404_2@printFont= New@H_404_2@Font@H_404_2@("Arial"@H_404_2@,10)@H_404_2@

@H_404_2@End@H_404_2@Sub@H_404_2@

@H_404_2@

@H_404_2@Protected@H_404_2@Overrides@H_404_2@Sub@H_404_2@OnPrintPage(ByVal@H_404_2@eAs@H_404_2@System.Drawing.Printing.PrintPageEventArgs@H_404_2@)@H_404_2@

@H_404_2@MyBase@H_404_2@.@H_404_2@OnPrintPage(e)@H_404_2@

@H_404_2@Dim@H_404_2@lppAs@H_404_2@Single@H_404_2@ =e.MarginBounds.Height / printFont.GetHeight(e.Graphics)@H_404_2@

@H_404_2@Dim@H_404_2@yPosAs@H_404_2@Single@H_404_2@ =0@H_404_2@

@H_404_2@Dim@H_404_2@countAs@H_404_2@Single@H_404_2@ =0@H_404_2@

@H_404_2@Dim@H_404_2@leftMarginAs@H_404_2@Single@H_404_2@ =e.MarginBounds.Left@H_404_2@

@H_404_2@Dim@H_404_2@topMarginAs@H_404_2@Single@H_404_2@ =e.MarginBounds.Top@H_404_2@

@H_404_2@Dim@H_404_2@lineAs@H_404_2@String@H_404_2@ =streamToPrint.ReadLine()@H_404_2@

@H_404_2@

@H_404_2@While@H_404_2@ (@H_404_2@count < lppAnd@H_404_2@Not@H_404_2@lineIs@H_404_2@Nothing@H_404_2@)@H_404_2@

@H_404_2@yPos= topMargin + (count * printFont.GetHeight(e.Graphics))@H_404_2@

@H_404_2@e.Graphics.DrawString(line,printFont,Brushes@H_404_2@.Black,leftMargin,yPos,New@H_404_2@StringFormat@H_404_2@())@H_404_2@

@H_404_2@count= count + 1@H_404_2@

@H_404_2@

@H_404_2@If@H_404_2@ (@H_404_2@count < lpp)Then@H_404_2@@H_404_2@

@H_404_2@line= streamToPrint.ReadLine()@H_404_2@

@H_404_2@End@H_404_2@If@H_404_2@

@H_404_2@

@H_404_2@End@H_404_2@While@H_404_2@

@H_404_2@

@H_404_2@If@H_404_2@ (@H_404_2@line <> Nothing@H_404_2@) Then@H_404_2@@H_404_2@

@H_404_2@e.HasMorePages= True@H_404_2@@H_404_2@

@H_404_2@Else@H_404_2@

@H_404_2@e.HasMorePages= False@H_404_2@@H_404_2@

@H_404_2@End@H_404_2@If@H_404_2@

@H_404_2@

@H_404_2@End@H_404_2@Sub@H_404_2@

@H_404_2@

End@H_404_2@Class@H_404_2@

@H_404_2@

-----------------@H_404_2@

@H_404_2@

新建一个页面.添加一个按钮.

按钮的点击事件如下

Imports@H_404_2@ System.IO

Imports@H_404_2@ System.Drawing.Printing

@H_404_2@

@H_404_2@Private@H_404_2@Sub@H_404_2@printButton_Click(ByVal@H_404_2@senderAs@H_404_2@System.Object@H_404_2@,ByVal@H_404_2@eAs@H_404_2@System.EventArgs@H_404_2@) Handles@H_404_2@printButton.Click@H_404_2@

@H_404_2@Try@H_404_2@

@H_404_2@Dim@H_404_2@streamToPrintAs@H_404_2@StreamReader@H_404_2@= New@H_404_2@StreamReader@H_404_2@("aa.txt"@H_404_2@)@H_404_2@

@H_404_2@Try@H_404_2@

@H_404_2@' @H_404_2@使用缺省打印机@H_404_2@

@H_404_2@Dim@H_404_2@pdAs@H_404_2@TextFilePrintDocument@H_404_2@= New@H_404_2@TextFilePrintDocument@H_404_2@(streamToPrint)@H_404_2@

@H_404_2@

@H_404_2@If@H_404_2@Not@H_404_2@storedPageSettingsIs@H_404_2@Nothing@H_404_2@Then@H_404_2@@H_404_2@

@H_404_2@ pd.DefaultPageSettings = storedPageSettings@H_404_2@

@H_404_2@End@H_404_2@If@H_404_2@

@H_404_2@

@H_404_2@Dim@H_404_2@dlgAs@H_404_2@New@H_404_2@PrintDialog@H_404_2@()@H_404_2@

@H_404_2@dlg.Document= pd@H_404_2@

@H_404_2@Dim@H_404_2@resultAs@H_404_2@DialogResult@H_404_2@= dlg.ShowDialog()@H_404_2@

@H_404_2@

@H_404_2@If@H_404_2@ (@H_404_2@result = System.Windows.Forms.DialogResult@H_404_2@.OK) Then@H_404_2@@H_404_2@

@H_404_2@ pd.Print()@H_404_2@

@H_404_2@End@H_404_2@If@H_404_2@

@H_404_2@Finally@H_404_2@

@H_404_2@streamToPrint.Close()@H_404_2@

@H_404_2@End@H_404_2@Try@H_404_2@

@H_404_2@Catch@H_404_2@exAs@H_404_2@Exception@H_404_2@@H_404_2@

@H_404_2@MessageBox@H_404_2@.@H_404_2@Show("error:"@H_404_2@ + ex.Message)@H_404_2@

@H_404_2@End@H_404_2@Try@H_404_2@

@H_404_2@End@H_404_2@Sub@H_404_2@

@H_404_2@

文件存放目录

Dim@H_404_2@streamToPrintAs@H_404_2@StreamReader@H_404_2@ = New@H_404_2@StreamReader@H_404_2@("aa.txt"@H_404_2@)@H_404_2@

这个参数是需要打印文件的目录

VB.Net 操作打印机

猜你在找的VB相关文章