做不到的吧,VB還要檢測文檔程序,安全軟件都通不過的,打印時本來就是可以選擇打印機(jī)的,要開發(fā)這樣的軟件費(fèi)用,還不如再配一臺電腦了
站在用戶的角度思考問題,與客戶深入溝通,找到平陸網(wǎng)站設(shè)計(jì)與平陸網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗(yàn),讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗(yàn)好的作品,建站類型包括:網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、申請域名、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋平陸地區(qū)。
在VB中有一個Printers對象,包含了本機(jī)安裝的所有打印機(jī)。
Printer.DeviceName 就是系統(tǒng)默認(rèn)打印機(jī)的名稱:
可以將打印機(jī)默認(rèn)打印設(shè)置改為黑白打印,如果打印對象是RGB配色,打印機(jī)驅(qū)動轉(zhuǎn)換為CMYK顏色時,黑色都是由彩色墨水組成的
2.可以試一下圖片從一個標(biāo)準(zhǔn)灰度圖片格式化而來,這樣圖片自身只有黑白色,也許可以
你現(xiàn)在的默認(rèn)打印機(jī)是Adobe PDF,修改一下默認(rèn)打印機(jī)為你現(xiàn)在需要的打印機(jī)即可。
Public Function EnumPrinters()
Dim PrinterSQL As String =
"SELECT * FROM Win32_Printer"
Dim
printers As Management.ManagementObjectCollection = New
Management.ManagementObjectSearcher(PrinterSQL).Get()
Dim printer As
Management.ManagementObject
For
Each printer In
printers
Dim pde As Management.PropertyDataCollection.PropertyDataEnumerator =
printer.Properties.GetEnumerator
While
(pde.MoveNext)
Try
If pde.Current.Name = "DriverName"
Then
combobox1.Items.Add(pde.Current.Value.ToString)
End
If
Catch ex As
Exception
MessageBox.Show(ex.ToString)
End
Try
End
While
Next
End Function
先拖過來控件PrintDocument1,然后雙擊PrintDocument1,在它的PrintPage事件中加入代碼如下:
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)用下面語句可直接用默認(rèn)打印機(jī)打印出來:
PrintDocument1.Print()