vb基础（打印问题）
2003-08-18 09:37
225 查看
Private Sub Command1_Click()
Dim beginpage, endpage, numcopies, orientation, i
CommonDialog1.CancelError = True
On Error GoTo errhandler
CommonDialog1.ShowPrinter
beginpage = CommonDialog1.FromPage
endpage = CommonDialog1.ToPage
numcopies = CommonDialog1.Copies
orientation = CommonDialog1.orientation
For i = 1 To numcopies
Next
Exit Sub
errhandler:
Exit Sub
end sub
Dim beginpage, endpage, numcopies, orientation, i
CommonDialog1.CancelError = True
On Error GoTo errhandler
CommonDialog1.ShowPrinter
beginpage = CommonDialog1.FromPage
endpage = CommonDialog1.ToPage
numcopies = CommonDialog1.Copies
orientation = CommonDialog1.orientation
For i = 1 To numcopies
Next
Exit Sub
errhandler:
Exit Sub
end sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- vb基础（打印问题）
- 基础知识 打印图形及常见问题
- [VB.NET]crystal report的问题.打印时报错的问题
- VB.NET控制EXCEL打印的速度问题!
- VB 中打印设置中的问题
- [VB.NET]50分求助窗体显示问题(相当基础)，谢谢！
- vb.net 教程 11-1 打印组件 1 基础
- Android的基础问题、面试题
- Linux 面试基础问题 - 2
- 问题二十三：打印一个数内的所有完数
- 实现Square类，让其继承自Rectangle类，并在Square类增添新属性和方法，在2的基础上，在Square类中重写Rectangle类中的初始化和打印方法
- c#基础概念的25个问题
- WCF问题集锦：基础连接已经关闭 接收时发生错误
- Android基础学习总结（八）——Toast应用与分线程弹Toast问题
- 解决pdf文件无法打印问题的最好方法
- Java基础-hashMap的相关问题
- 请教几个ASP.NET基础知识问题
- Iframe的基础应用——关于Iframe刷页问题的两种方法
- 关于一些基础的Java问题的解答（五）
- ios有关时间打印出来差8小时的问题