VB的打印与链接.docVIP

  1. 1、本文档共13页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB的打印与链接

VB的几种打印方法 我们编程时,如果在 HYPERLINK / \t _blank 程序中加入“ HYPERLINK /catalog/821/ \t _blank 打印”功能会使程序更加完善,更加专业。下面,我提供几种编写打印程序的方法以供大家参考。 1. 采用Visual Basic提供的简单打印函数PrintForm方法 应用程序窗体的PrintForm方法时Visual Basic把当前窗体的位图送到打印机。该方法的优点在于它几乎不需要任何编程但也有很大缺陷。最为突出的是当低分辨率图形在高分辨率打印机上打印时其结果令人无法满意会产生锯齿。 代码如下: Private Sub Command1_Click 用PrintForm打印 Me.PrintForm 打印窗体的可见区域 End Sub 2. 用Printer对象 要想产生复杂的打印输出编程较为烦琐。Printer对象代表系统缺省的打印机Printer对象支持许多由窗体和图形框所支持的属性和方法三种对象都有画线和画方框。应用程序可用以下代码在Printer对象上画出1平方英寸的方框。注意打印机以twips来测量距离。每英寸有1440个twips。 Printer.Line2144021440-Step14401440 B 打印机、从窗体和图形框都有Circle、PaintPicture、Print、Pset、TextHeight、TextWidth方法。使用这些方法应用程序可以为打印机生成高分辨率输出。 打印文本直接用Print方法,见下列代码: Printer.Print HelloChina ComputerWorld 打印字符串 Printer对象还有一些窗体和图形框都没有方法 NewPage告诉打印机程序对当前输出页的发送已经结束Printer对象应开始新的一页。 EndDoc告诉VB程序创建文档结束VB应将它发送到物理打印机上打印。 KillDoc取消当前打印作业。应用程序应该终止由EndDoc和KillDoc所设定的每个打印作业。 Zoom属性用于定义打印输出的缩放因子。 Copies属性用于定义打印的副本数目。 3. 如果你在编程时用到了RichTextBox控件那么你可以使用该控件的SelPrint 方法来打印 代码如下: Private Sub Command3_Click SelPrint方法 CommonDialog1.Flags=cdlPDReturnDC+ cdlPDNoPageNums If RTF1.SelLength = 0 Then RTF1为窗体的RichTextBox控制 CommonDialog1.Flags = CommonDialog1.Flags+ cdlPDAllPages Else CommonDialog1.Flags = CommonDialog1.Flags+ cdlPDSelection End If CommonDialog1.CancelError = True On Error Resume Next CommonDialog1.ShowPrinter If Err.Number = cdlCancel Then Exit Sub If Err.Number 0 Then Beep MsgBox Error printing file. vbCrLf + Err.Description vbOKOnly +vbExclamation Printing Error Exit Sub End If Printer.Print RTF1.SelPrint CommonDialog1.hDC 打印RTF1控件的可见区域 End Sub 上面代码先进行打进设置再进行打印。如果不需要设置采用下面代码更为简单 RTF1.SelPrint Printer.hDC 打印RTF1控件的可见区域 4.可以在VB中调用Word 97提供的OLE自动化服务利用Word 97强大的打印功能来完成VB打印 代码如下: Private Sub Command4_Click 调用Word打印 Dim objWord As Object Const CLASSOBJECT = Word.Application On Error GoTo objError Set objWord = CreateObjectCLASSOBJECT objWord.V

文档评论(0)

5201314118 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:7065201001000004

1亿VIP精品文档

相关文档