UC知道vb 打印语句错误
来源：百度知道 编辑：UC知道 时间：2024/05/30 03:04:43
我使用vb编写一个简单的text文档处理工具~
可是在在打印时出现错误
Private Sub Command5_Click()
Dim i As Integer
CommonDialog1.ShowPrinter
For i = 1 To CommonDialog1.Copies
Printer.Print Text1.text
Next i
Printer.EndDoc
End Sub
点启动运行后,我点击打印,然后弹出打印界面,由于我这没打印机,我关了打印界面,就出现了错误提示
"实时错误482
打印语句错误"
不明白怎么回事~~
希望大家给帮帮忙~~
还有一点,运行程序后,界面可以拉大缩小,怎么样能锁定界面的大小呢?
可是在在打印时出现错误
Private Sub Command5_Click()
Dim i As Integer
CommonDialog1.ShowPrinter
For i = 1 To CommonDialog1.Copies
Printer.Print Text1.text
Next i
Printer.EndDoc
End Sub
点启动运行后,我点击打印,然后弹出打印界面,由于我这没打印机,我关了打印界面,就出现了错误提示
"实时错误482
打印语句错误"
不明白怎么回事~~
希望大家给帮帮忙~~
还有一点,运行程序后,界面可以拉大缩小,怎么样能锁定界面的大小呢?
Private Sub Command5_Click()
On error Resume Next
Dim i As Integer
CommonDialog1.ShowPrinter
For i = 1 To CommonDialog1.Copies
Printer.Print Text1.text
Next i
Printer.EndDoc
End Sub
设置BorderStyle 属性的值为 1 ,这样就不能改变窗体大小了