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 printing Codes Examples

Sub nzPrintSelection() '打印选择范围

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

End Sub

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

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.

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

您可以使用此代码来打印自定义页面范围，而不是使用打印选项中的设置。假设您要打印从 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

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

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

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