vb关于printer错误，请大家帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/26 13:04:21
第一部分：
Commondlg.Flags = &H10
On Error Resume Next
Commondlg.ShowPrinter
Printer.ScaleMode = 6
Printer.PaperSize = vbPRPSA3
Printer.Orientation = 2
第二部分：
If Err Then
MsgBox "有错误！", vbCritical, "错误"
Exit Sub
End If

调试的时候有错误就直接跳出了，请问第一部分关于打印机的设置有什么错误啊，我的目的是使打印机打印出来的是A3横打

你没有连上打印机吧，这样调试打印的时候总是跳出错误的

on error goto eErr
Commondlg.Flags = &H10
Commondlg.ShowPrinter
Printer.ScaleMode = 6
Printer.PaperSize = vbPRPSA3
Printer.Orientation = 2
Exit Sub '在这里加入一个这个退出的语句第二部分：
eErr:
MsgBox "有错误！", vbCritical, "错误"
end Sub

这样改下试试看，。

第一部分貌似没什么问题