高分求解vb點(diǎn)虐 打印的問題

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

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

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

PrintLine(1, TAB(60), "準(zhǔn)考證" )

PrintLine(1)

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

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

打印代碼類似如下：

PrintDialog1.Document = PrintDocument1

PrintDocument1.DocumentName = "準(zhǔn)考證"

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 '頁面設(shè)置

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

If PrintDialog1.PrinterSettings.IsValid = True Then

PrintDocument1.Print()

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

Else

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

End If

Else

Exit Sub

End If

End If

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

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

MSDN原話：

使用 PrintDocument 組件

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

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

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

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

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

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

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

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

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

VB.NET怎么實(shí)現(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