【分享成果,随喜正能量】世事無常,莫欺人,莫負己,莫張揚,随遇而安則是安好。。
正如我給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
3 打印窄邊距Print Narrow MarginSub 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實踐經驗,全部濃縮在下面的各個教程中:
【分享成果,随喜正能量】人多時,管住嘴,人少時,管住心!不亂說話,便已成佛。。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!