Dim ps As New System.Drawing.Printing.PageSettings
Dim pDocument As new System.Drawing.Printing.PrintDocument
Dim myPaperSize As System.Drawing.Printing.PaperSize
If ps.PrinterSettings.InstalledPrinters.Count > 0 Then '检测打印机是否存在
If ps.PrinterSettings.IsValid = True Then '检测打印机是否有效
output.show(ps.printersettings.Isvalid)
output.show(ps.PrinterSettings.InstalledPrinters.Count)
Dim i As Integer = 1
For i = 0 To 6 'ps.PrinterSettings.InstalledPrinters.Count
output.show(i)
output.show(system.drawing.printing.PrinterSettings.InstalledPrinters.Item(i))
Next
End If
End If
此主题相关图片如下：dll3.png
加好友 
发短信
Post By：2021/10/9 14:29:00 [显示全部帖子]
