vb基础（打印问题） (转)[@more@]
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
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10752019/viewspace-982110/ ，如需转载，请注明出处，否则将追究法律责任。
下一篇：
谈软件开发过程的改进 (转)
请登录后发表评论
登录
全部评论
