VBA入門: 列印設定玩玩 ActiveSheet.PrintOut、ActiveSheet.PageSetup

一個例子，小編先設定5個列印設定，若無此需要，也可以直接

ActiveSheet.PrintOut , ActivePrinter:=""直接上也可以。

1.列印儲存格範圍：PrintArea

2.設定列印上下作右邊界：

PageSetup.TopMargin、PageSetup.BottomMargin、PageSetup.LeftMargin PageSetup.RightMargin 

3.然後設定列印方向：Orientation 

4.設定寬度與長度：FitToPagesWide 、FitToPagesTall 

5.設定使用的印表機：ActiveSheet.PrintOut , ActivePrinter:=???

Sub  DO_PRINT()

    print_t="印表機名稱"

            ActiveSheet.PageSetup.PrintArea = "a1:I68"          

            With ActiveSheet.PageSetup

             .TopMargin = Application.CentimetersToPoints(0)

             .BottomMargin = Application.CentimetersToPoints(0)

             .LeftMargin = Application.CentimetersToPoints(0)

             .RightMargin = Application.InchesToPoints(0)

            End With  

            ActiveSheet.PageSetup.Orientation = 1 

            ActiveSheet.PageSetup.FitToPagesWide = 1 

            ActiveSheet.PageSetup.FitToPagesTall = 1

             ActiveSheet.PrintOut , ActivePrinter:=print_t

End Sub

簡短分享。