高分求解vb點虐 打印的問題

報表打印應該也能實現(xiàn)，但是我覺得你這個用文本打印更簡單，將數(shù)據(jù)輸出到txt文件，結(jié)果用RichTextBox顯示，但是需要簡單的排版，調(diào)用打印機打印RichTextBox即可的

成都創(chuàng)新互聯(lián)專注于扎蘭屯企業(yè)網(wǎng)站建設,成都響應式網(wǎng)站建設公司,商城網(wǎng)站建設。扎蘭屯網(wǎng)站建設公司,為扎蘭屯等地區(qū)提供建站服務。全流程按需開發(fā)，專業(yè)設計，全程項目跟蹤，成都創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務

排版用tab（）、space（）、vbcrlf或PrintLine(1)換行，代碼類似如下樣式

PrintLine(1, TAB(60), "準考證" )

PrintLine(1)

PrintLine(1, "姓名:" xingming Space(3) "準考證號：" cel(1) Space(3) cel(2) Space(3) cel(3))

但是TAB()排版比較規(guī)整

打印代碼類似如下：

PrintDialog1.Document = PrintDocument1

PrintDocument1.DocumentName = "準考證"

PrintDialog1.AllowSomePages = False

PrintDialog1.ShowHelp = False

PrintDialog1.ShowNetwork = False

PrintDialog1.AllowSelection = False

PrintDialog1.AllowPrintToFile = False

MySReader = New StringReader(RichTextBox1.Text)

stringToPrint = MySReader.ReadToEnd()

PageSetupDialog1.Document = PrintDocument1

PageSetupDialog1.PageSettings.Margins.Bottom = 50

PageSetupDialog1.PageSettings.Margins.Top = 50

PageSetupDialog1.PageSettings.Margins.Left = 50

PageSetupDialog1.PageSettings.Margins.Right = 50

If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings '頁面設置

If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

If PrintDialog1.PrinterSettings.IsValid = True Then

PrintDocument1.Print()

MsgBox("打印完成！" vbCrLf "Print completed!", , "Print hint(打印提示)")

Else

MsgBox("打印失??！打印機不可用。" vbCrLf "Print failed! The printer is not valid.", , "Print hint(打印提示)")

End If

Else

Exit Sub

End If

End If

VS2005如何用VB.NET代碼實現(xiàn)打印功能

有個PrintDocument控件,可以實現(xiàn)打印。。。

MSDN原話：

使用 PrintDocument 組件

涉及 PrintDocument 組件的兩種主要情況是：

簡單的打印作業(yè)，如打印單個文本文件。在這種情況下，應將 PrintDocument 組件添加到 Windows 窗體，然后在 PrintPage 事件處理程序中添加打印文件的編程邏輯。 該編程邏輯應以使用 Print 方法打印文檔結(jié)束。

此方法向打印機發(fā)送一個 Graphics 對象，該對象包含在 PrintPageEventArgs 類的 Graphics 屬性中。

有關如何使用 PrintDocument 組件打印文本文檔的示例，請參見

如何：打印 Windows 窗體中的多頁文本文件。

更為復雜的打印作業(yè)，如想要重新使用已編寫的打印邏輯的情況。

在這種情況下，應從 PrintDocument 組件派生一個新組件，并重寫

（請參見 Visual Basic 的 重寫或 C# 的 重寫） PrintPage 事件。

將 PrintDocument 組件添加到窗體后，它出現(xiàn)在 Windows 窗體設計器底部的欄中

VB.NET怎么實現(xiàn)打印功能啊 嗚嗚（

利用 printdocument控件

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

PrintDocument1.Print()

End Sub

Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim stringFont As New Font("Arial", 16)

Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)

Dim strFormat As New StringFormat

Dim s As String

s = "print word" '打印的內(nèi)容

e.Graphics.DrawString(s, stringFont, Brushes.AliceBlue, rectDraw, strFormat)

End Sub

網(wǎng)頁名稱：vb點虐 直接打印文件 vbnet printdocument
標題鏈接：http://www.rwnh.cn/article0/ddcpgoo.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站營銷、企業(yè)建站、網(wǎng)站建設、網(wǎng)站收錄、App設計、品牌網(wǎng)站建設

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)