VB中打印对话框的问题
我现在用VB做了一个按钮,点击该按钮后跳出打印对话框,单击确定后就开始打印,但是单击取消依然进行打印,如何实现单击取消关闭对话框而不打印? Private Sub CmdPrintform_Click() CommonDialog1.Action = 5 PrintForm End Sub
Private Sub Command1_Click() Dim BeginPage, EndPage, NumCopies, i ' 设置“取消”为 True CommonDialog1。CancelError = True On Error GoTo ErrHandler ' 显示“打印”对话框 CommonDialog1。
ShowPrinter ' 从该对话框取得选定的值 BeginPage = CommonDialog1。FromPage EndPage = CommonDialog1。ToPage NumCopies = CommonDialog1。
Copies For i = 1 To NumCopies ' 此处放置将数据发送到打印机的代码 Next i Exit Sub ErrHandler: ' 用户按了“取消”按钮 Exit Sub End Sub 。
事实上我们很少用Action来打开对话框。但是这个不是主要问题。 你的问题在于应该指定 CommonDialog1.CancelError = True 然后当用户取消时将导致运行时错误。此时可用On error goto来处理这个异常。
你不写Action =5看看吧。
答:我老公是程序员,他经常去这个网站找教程看 希望对你有帮助详情>>
答:我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛,你可以自己注册一个用户进去看看,你可以和他们交流也可以寻求他们的帮助,我想没有你解决不了的问题,...详情>>
答:格式化文本区域的段落标记,用于规定文本和层的属性和位置等。比如: 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>