vb.net 打印問題

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

我們提供的服務(wù)有：網(wǎng)站設(shè)計、網(wǎng)站制作、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、鐵山港ssl等。為1000+企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學管理、有技術(shù)的鐵山港網(wǎng)站制作公司

2.可以試一下圖片從一個標準灰度圖片格式化而來，這樣圖片自身只有黑白色，也許可以

vb.net 打印功能

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

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

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

哪位大哥給我一個VB.NET打印的例子

PrintDocument1.Print()

使用PrintDocument進行打印“Brush, 50, 80”50左邊距離，80上面距離

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

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

e.Graphics.DrawString("取號單", New Font("Microsoft Sans Serif", 18, FontStyle.Bold), New Pen(Color.Black, 1).Brush, 30, 30)

e.Graphics.DrawString("XXXXXX", New Font("Microsoft Sans Serif", 24, FontStyle.Regular), New Pen(Color.Black, 1).Brush, 50, 80)

e.Graphics.DrawString("您的號碼是：", New Font("Microsoft Sans Serif", 16, FontStyle.Regular), New Pen(Color.Black, 1).Brush, 30, 135)

e.Graphics.DrawString("打印時間:" Now(), New Font("Microsoft Sans Serif", 10, FontStyle.Regular), New Pen(Color.Black, 1).Brush, 80, 330)

End Sub

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