vba动态选定打印区域(VBA设置打印选择范围及自定义页面)

分享成果,随喜正能量】以一颗平常心对待生活,不为物欲俘虏,知足的人,活得自在且快乐。努力尽今夕,少年犹可夸。皇天从不辜负有心人,从这一刻开始努力,终会有所收获。 。

正如我给VBA的定义:VBA是个人小型自动化处理的有效工具。利用好了,可以大大提高自己的劳动效率,而且可以提高数据的准确度。VBA系列教程共十套,我已经全部完成,技术工具系列在不断推出。

对于学员而言,如果您是入门阶段可以打包选择7.1.3.9教程,第7是入门,第1是入门后的提高,第3字典是必备的VBA之精华,第9是实用的典型案例讲解;如果您有了一定的VBA基础可以根据自己的需要,进行教程的选择及工具的利用,提供的程序文件就如一座大型的代码库支持着大家的工作;工具系列共分两类:一类是容易些的YZ系列,一类是较难些的NZ系列,这些工具是大家学习VBA的好帮手,其中NZ系列工具还有专门版本资料,提供给已按部就班学习完我所有教程的学员。

VBA是面向对象编程的语言,博大精深,这里我会分享些一些有用的VBA案例,暂时将这部分命名为《VBA精选案例代码(汉英)》和我的教程相互补充。有很多朋友咨询英语和VBA的关系,为了大家更好的领会和掌握VBA中用到的一些英语,这些案例中,我会用英语和汉语同时发布。今日的内容:VBA设置打印选择范围及自定义页面

vba动态选定打印区域(VBA设置打印选择范围及自定义页面)(1)

第三章 VBA打印代码示例

VBA printing Codes Examples

4 打印选择范围Print Selection

Sub nzPrintSelection() '打印选择范围

Selection.PrintOut Copies:=1, Collate:=True

End Sub

vba动态选定打印区域(VBA设置打印选择范围及自定义页面)(2)

此代码将帮助您打印所选范围。您无需转到打印选项并设置打印范围。只需选择一个范围并运行此代码。

This code will help you print selected range. You don't need to go to printing options and set printing range. Just select a range and run this code.

5 打印自定义页面Print Custom Pages

Sub nzPrintCustomSelection() '打印自定义页面

Dim startpage As Integer

Dim endpage As Integer

startpage = InputBox("请输入开始页码.", "输入")

If Not WorksheetFunction.IsNumber(startpage) Then

MsgBox "起始页码无效。 请再试一次。", "错误"

Exit Sub

End If

endpage = InputBox("请输入结束页码.", "输入")

If Not WorksheetFunction.IsNumber(endpage) Then

MsgBox "无效的结束页码。 请再试一次。", "错误"

Exit Sub

End If

Selection.PrintOut From:=startpage, _

To:=endpage, Copies:=1, Collate:=True

End Sub

vba动态选定打印区域(VBA设置打印选择范围及自定义页面)(3)

您可以使用此代码来打印自定义页面范围,而不是使用打印选项中的设置。假设您要打印从 5 到 10 的页面。您只需要运行此VBA代码并输入起始页和结束页即可。

Instead of using the setting from print options you can use this code to print custom page range. Let’s say you want to print pages from 5 to 10. You just need to run this VBA code and enter start page and end page.

本讲内容参考程序文件:Chapter03.xlsm

【分享成果,随喜正能量】

vba动态选定打印区域(VBA设置打印选择范围及自定义页面)(4)

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

vba动态选定打印区域(VBA设置打印选择范围及自定义页面)(5)

vba动态选定打印区域(VBA设置打印选择范围及自定义页面)(6)

vba动态选定打印区域(VBA设置打印选择范围及自定义页面)(7)

分享成果,随喜正能量】生活中,有人给予帮助,那是幸运,没人给予帮助,那是命运。我们要学会在幸运青睐自己的时候学会感恩,在命运磨练自己的时候学会坚韧。。

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页