ITPub博客

首页 > 应用开发 > IT综合 > vb基础(打印问题) (转)

vb基础(打印问题) (转)

原创 IT综合 作者:amyz 时间:2007-11-13 11:22:11 0 删除 编辑
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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7339183