【分享成果，随喜正能量】世事無常，莫欺人，莫負己，莫張揚，随遇而安則是安好。。

正如我給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實踐經驗，全部濃縮在下面的各個教程中：

【分享成果，随喜正能量】人多時，管住嘴，人少時，管住心！不亂說話，便已成佛。。