vba打印代码大全（VBA打印代码示例3）

【分享成果，随喜正能量】世事无常，莫欺人，莫负己，莫张扬，随遇而安则是安好。。

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

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

VBA是面向对象编程的语言，博大精深，这里我会分享些一些有用的VBA案例，和我的教程相互补充。有很多朋友咨询英语和VBA的关系，为了大家更好的领会和掌握VBA中用到的一些英语，这些案例中，我会用英语和汉语同时发布。今日的内容：VBA打印代码示例3

VBA Printing Codes Examples

Sub printNarrowMargin() '打印窄边距

With ActiveSheet.PageSetup

'设置左边距的大小（以点表示）

.LeftMargin = Application.InchesToPoints(0.25)

'设置右边距的大小（以点表示）

.RightMargin = Application.InchesToPoints(0.25)

'设置上边距的大小（以点 表示）

.TopMargin = Application.InchesToPoints(0.75)

'设置下边距的大小（以点 表示）

.BottomMargin = Application.InchesToPoints(0.75)

'设置从页面顶部到页眉的距离（以 点表示）

.HeaderMargin = Application.InchesToPoints(0.3)

'设置从页面底部到页脚的距离（以 点表示）

.FooterMargin = Application.InchesToPoints(0.3)

End With

'Copies 打印份数。如果省略此参数，则只打印一份。

'Collate 可选 如果为 True，则逐份打印多个副本。

'IgnorePrintAreas 可选 如果为 True，则忽略打印区域并打印整个对象。

ActiveWindow.SelectedSheets.PrintOut _

Copies:=1, _

Collate:=True, _

IgnorePrintAreas:=False

End Sub

使用此VBA代码进行窄边距打印。运行此宏时，它会自动将边距更改为窄。

Use this VBA code to take a print with a narrow margin. When you run this macro it will automatically change margins to narrow.

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

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

【分享成果，随喜正能量】人多时，管住嘴，人少时，管住心！不乱说话，便已成佛。。