打印設置說明，以下均為默認值。
點擊查看代碼
Application.PrintCommunication = False '關掉打印通訊
With ActiveSheet.PageSetup
.PrintTitleRows = "" '工作表打印標題：頂端標題行(R)
.PrintTitleColumns = "" '工作表打印標題：左端標題列(C)
End With
ActiveSheet.PageSetup.PrintArea = "" '工作表打印區域(A)
With ActiveSheet.PageSetup
.LeftHeader = "" '自定義頁眉：左(L)
.CenterHeader = "" '頁眉/自定義頁眉：中(C)
.RightHeader = "" '自定義頁眉：右(R)
.LeftFooter = "" '自定義頁腳：左(L)
.CenterFooter = "" '頁腳/自定義頁腳：中(C)
.RightFooter = "" '自定義頁腳：右(R)
.LeftMargin = Application.InchesToPoints(0.75) '頁邊距：左(L)_1.9厘米
.RightMargin = Application.InchesToPoints(0.75) '頁邊距：右(R)_1.9厘米
.TopMargin = Application.InchesToPoints(1) '頁邊距：上(T)_2.5厘米
.BottomMargin = Application.InchesToPoints(1) '頁邊距：下(B)_2.5厘米
.HeaderMargin = Application.InchesToPoints(0.5) '頁邊距：頁眉(A)_1.3厘米
.FooterMargin = Application.InchesToPoints(0.5) '頁邊距：頁腳(F)_1.3厘米
.PrintHeadings = False '工作表打印：行號列標(L)
.PrintGridlines = False '工作表打印：網格線(G)
.PrintComments = xlPrintNoComments '工作表打印批注(M)：無/(工作表末尾) xlPrintSheetEnd/(如同工作表中的顯示) xlPrintIace
.PrintQuality = 180 '頁面打印質量(Q)：180/360點 英寸
.CenterHorizontally = False '頁邊距居中方式：水平(Z)
.CenterVertically = False '頁邊距居中方式：垂直(V)
.Orientation = xlPortrait '頁面方向：縱向(T) xlPortrait/ 橫向 (L)xlLandscape
.Draft = False '工作表打印：按草稿方式(Q)
.PaperSize = xlPaperA4 '頁面紙張大小(Z)：A4
.FirstPageNumber = xlAutomatic '頁面起始頁碼：自動
.Order = xlDownThenOver '工作表打印順序：先列后行(D)/先行后列(V) xlOverThenDown
.BlackAndWhite = False '工作表打印：單色打印(B)
.Zoom = 100 '頁面縮放比例：100% 若選擇頁面縮放比例，則下面兩項沒有。
.Zoom = False '頁面縮放比例：未選擇 若選擇調整頁面則此項必為False，且與下面兩項一起出現。
.FitToPagesWide = 1 '頁面縮放：調整為1頁高
.FitToPagesTall = 1 '頁面縮放：調整為1頁寬
.PrintErrors = xlPrintErrorsDisplayed '工作表打印錯誤單元格打印為(E)：顯示值/<空白> xlPrintErrorsBlank/-- xlPrintErrorsDash/#N/A xlPrintErrorsNA
EndWith
Application.PrintCommunication = True '恢復打印通訊