VB.NET 打印問(wèn)題。

先拖過(guò)來(lái)控件PrintDocument1，然后雙擊PrintDocument1，在它的PrintPage事件中加入代碼如下：

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

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

dim a as String

a="abcd"

Dim mypen As Pen = New Pen(Color.Blue, 2)

e.Graphics.DrawString(a, New Font("宋體", 20), New Pen(Color.Black, 1).Brush, 30, 30)

End Sub

調(diào)用下面語(yǔ)句可直接用默認(rèn)打印機(jī)打印出來(lái)：

PrintDocument1.Print()

VB.NET打印編程問(wèn)題，打印機(jī)為激光打印機(jī)。

打印做得不多，以前做套打時(shí)發(fā)現(xiàn)，每臺(tái)打印機(jī)定位都不一樣，于是每臺(tái)機(jī)子都加了個(gè)偏移設(shè)置

我的做法在白紙上打上一標(biāo)尺，和一個(gè)上下邊距為2CM的交叉點(diǎn)，然后用標(biāo)尺量這2CM的偏移，設(shè)置完后，在這臺(tái)打印機(jī)打印時(shí)，就給紙張加個(gè)偏移量，打印就正常了。可能你的原因和我一樣。

另外也想問(wèn)你一下，你這個(gè)條碼是用什么打的。早先，我用立象的條碼打印機(jī)打不干膠，很簡(jiǎn)單，激光打沒(méi)用過(guò)，可能下次我也要用條碼打印，我也用VB.net。求教.

VB.net如何在水晶報(bào)表上打印條碼

很簡(jiǎn)單。只需要安裝Code39字體，或者加載到系統(tǒng)中就可以。

報(bào)表設(shè)置該字體自然就表示成條形碼了。

Code39字體從網(wǎng)上搜索能搜索到。

vb.net 打印問(wèn)題

可以將打印機(jī)默認(rèn)打印設(shè)置改為黑白打印，如果打印對(duì)象是RGB配色，打印機(jī)驅(qū)動(dòng)轉(zhuǎn)換為CMYK顏色時(shí)，黑色都是由彩色墨水組成的

2.可以試一下圖片從一個(gè)標(biāo)準(zhǔn)灰度圖片格式化而來(lái)，這樣圖片自身只有黑白色，也許可以

高分求解vb.net 打印的問(wèn)題

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

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

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

PrintLine(1)

PrintLine(1, "姓名:" xingming Space(3) "準(zhǔn)考證號(hào)：" 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 '頁(yè)面設(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

vb.net 打印功能

可以把數(shù)據(jù)導(dǎo)出到EXCEL，然后使用EXCEL進(jìn)一步處理后使用。

也可以做成vb報(bào)表(VB自帶有)。

先設(shè)置報(bào)表格式，打印時(shí)向報(bào)表傳遞數(shù)據(jù)就可以了。