请教VB6中的打印问题

来源：百度知道 编辑：UC知道 时间：2024/06/09 06:03:35
在VB6中的打印问题
1、我本想用语句Printer.NewPage来执行换页到下一页打印计算，但还未执行到语句Printer.EndDoc时就自动开始打印了。
2、系统未安打印机时，程序运行到语句Printer.Print时，提示错误“482”
如何解决？谢谢！

防出错
On Error GoTo ErrHandle
'你的代码
Exit Sub
ErrHandle: '错误处理
MsgBox "程序出错 " & vbCrLf & "错误号: " & Err.Number & vbCrLf & Err.Description, vbCritical Or vbOKOnly, "出错"

解决有三种：
一、正确装上打印机
二、随便装一个系统自带的打印机(又或者装个虚似打印机)，设置为默认打印机及暂停打印。
三、用以下语句忽略所有错误信息：
在打印过程的最开头的地方设置：On Error Resume Next