CSDN博客

img cxmty

vb基础(打印问题)

发表于2003/8/18 9:37:00  721人阅读

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
 

0 0

相关博文

我的热门文章

img
取 消
img