vb基礎（列印問題） (轉)

amyz發表於2007-11-13
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部落格 ” ，連結：http://blog.itpub.net/10752019/viewspace-982110/，如需轉載，請註明出處，否則將追究法律責任。

相關文章