关于利用vb进行打印的方法

关于利用vb进行打印的方法1、单页打印PrivateSubCommandButton1_ClickFori=RangeToRangeRange=iRange。

大家好,欢迎来到IT知识分享网。

1、单页打印

Private Sub CommandButton1_Click()

ActiveSheet.PageSetup.PrintArea = Selection.Address ‘设置打印区域为所选区域,保证只打印采集表

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ‘开始打印

Next

End Sub

2、设置开始和结束号码,进行批量打印

Private Sub CommandButton1_Click()

For i = Range(“H2”) To Range(“H3”)

Range(“F2”) = i

Range(“A1”, “F51”).Select

ActiveSheet.PageSetup.PrintArea = Selection.Address ‘设置打印区域为所选区域,保证只打印采集表

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ‘开始打印

Next

End Sub

其中:H2 为开始页 h3为结束页 F2为序号 A1 F51为打印区域

使用vb的基本方法:

1、准备一张信息表格,设置好打印区域和页边距

2、开发模式–插入–第一个模块

3、右击按钮–指定宏—打印—编辑–输入 代码–保存

4、点按钮可以打印

免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://yundeesoft.com/49109.html

(0)

相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

关注微信