printer物件的屬性，只能讀不能設定，方法也不能用。設定屬性則提示錯誤“383”，屬性是只讀屬性。使用printer1.Print "ABCDEFG"，則提示錯誤“438”物件不支持該屬性或方法。請各位高手指教。謝謝！
uj5u.com熱心網友回復：
printer1 是什么？uj5u.com熱心網友回復：
Dim prnt, printer1 As Printeruj5u.com熱心網友回復：
這樣沒有初始化啊！列印機是不能憑空創建的，直接用全域的 Printer 物件吧。
uj5u.com熱心網友回復：
要怎樣初始化，我第一次用，不知道。'查找默認列印機
printer_name = GetDeviceName()
'連接默認列印機
For Each prnt In Printers
If prnt.DeviceName = printer_name Then
' Set printer as system default.
Set printer1 = prnt
MsgBox printer1.DeviceName, 0, "printer"
Exit For
End If
MsgBox printer1.DrawMode, 0, "printer"
我用了這段程式，列印機名與WINDOWS的默認列印機名一樣。
查看這個列印機的屬性都可以。就是不能設定。print、circle、line這些方法都不能用。
方便留下您的Q嗎？
uj5u.com熱心網友回復：
printer_name = GetDeviceName()
For Each prnt In Printers
If prnt.DeviceName = printer_name Then
Set Printer = prnt '切換當前列印機，只有當前列印機是非只讀的。'
MsgBox Printer.DeviceName, 0, "printer"
Exit For
End If
Next
MsgBox Printer.DrawMode, 0, "printer"
Printer.Print "ABCDEFG"
Printer.DrawMode = vbInvert
Printer.Line (0, 0)-(300, 300), vbRed, BF
Printer.EndDoc
uj5u.com熱心網友回復：
用全域的printer就可以了。其他都不行。不知道怎么回事。在這里謝謝啦！uj5u.com熱心網友回復：
當前列印機是非只讀的轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93864.html
標籤：VB基礎類