第十三章 列印

第十三章　列印
13-01　預覽列印

應用範例
Sub 預覽列印()
MsgBox “開啟使用中工作表的預覽列印視窗”
ActiveSheet.PrintPreview
End Sub

13-02　開始列印

應用範例
Sub 列印()
henji = MsgBox (“列印使用中工作表，需要設定紙張、列印範圍、列印方向，或設定列印邊界嗎？”, vbYesNo)
If henji = vbNo Then Exit Sub
ActiveSheet.PrintOut
End Sub

13-03　設定列印範圍

應用範例
Sub 設定列印範圍()
MsgBox “在使用中工作表內設定儲存格範圍A1到D6為列印範圍，並開啟預覽列印視窗”
ActiveSheet.PageSetup.PrintArea = “A1:D6”
ActiveSheet.PrintPreview
End Sub

13-04　設定列印方向

應用範例
Sub 設定列印方向()
MsgBox “將列印方向變更為橫向”
ActiveSheet.PageSetup.Orientation = xlLandScape
ActiveSheet.PrintPreview
End Sub
11-05　設定紙張大小

應用範例
Sub 設定紙張大小()
MsgBox “顯示列印時所設定的紙張大小”
MsgBox ActiveSheet.PageSetup.PaperSize
End Sub

13-06　設定邊界

應用範例
Sub 設定列印邊界()
MsgBox “設定上下左右的列印邊界”
With ActiveSheet.PageSetup
.TopMargin = 120
.BottomMargin = Application.CentimetersToPoints(1.5)
.LeftMargin = 90
.RightMargin = Application.InchesToPoints(1)
End With
ActiveSheet.PrintPreview
End Sub

13-07　設定頁首標題

應用範例
Sub 設定列印的頁首標題()
MsgBox “將左側頁首標題設為目前的日期、中間頁首標題設為雙底線，20點的檔案名稱、右側頁首標題設為工作表標籤名稱”
With ActiveSheet.PageSetup
.LeftHeader = “&D”
.CenterHeader = “&E &20 &F”
.RightHeader = “&A”
End With
ActiveSheet.PrintPreview
End Sub

13-08　設定頁尾標題

應用範例
Sub 設定列印的頁尾標題()
MsgBox “將左側頁尾標題設為目前的時間、中間頁尾標題設為頁碼、右側頁尾標題設為斜體文字”
With ActiveSheet.PageSetup
.LeftFooter = “&T”
.CenterFooter = “-” & “&P -”
.RightFooter = “&I應用範例13-08”
End With
ActiveSheet.PrintPreview
End Sub

13-09　在每一頁列印出工作表中指定的列(行)儲存格

應用範例
Sub 列與行的標題()
MsgBox “設定第2列為每張列印頁的列標題，第A行為每張列印頁的行標題”
With ActiveSheet.PageSetup
midasig = .PrintTitleRows
midasir = .PrintTitleColumns
End With
ActiveSheet.PageSetup.PrintTitleColumns = “$A:$A”……1
ActiveSheet.PageSetup.PrintTitleRows = “$2:$2”……2
ActiveSheet.PrintPreview
MsgBox “回復原來的狀態”
With ActiveSheet.PageSetup
.PrintTitleRows = midasig
.PrintTitleColumns = midasir
End With
End Sub

13-10　調整列印頁的頁高及頁寬縮放比例

應用範例
Sub 調整列印頁的頁高及頁寬縮放比例()
bairitu = ActiveSheet.PageSetup.Zoom
ActiveSheet.PageSetup.Zoom = False
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
ActiveSheet.PrintPreview
MsgBox “回復原來的狀態”
ActiveSheet.PageSetup.Zoom = bairitu
End Sub

13-11　調整列印頁整體縮放比例

應用範例
Sub 調整列印頁整體縮放比例()
MsgBox “將儲存格範圍A1到O25間的列印頁縮放比例設為50%”
ActiveSheet.PageSetup.PrintArea = “A1:O25”……1
bairitu = ActiveSheet.PageSetup.Zoom
ActiveSheet.PageSetup.Zoom = 50
ActiveSheet.PrintPreview
MsgBox “回復原來的狀態”
ActiveSheet.PageSetup.Zoom = bairitu
End Sub

13-12　在列印頁中顯示列與行的編號

應用範例1
Sub 在列印頁中顯示列與行的編號()
MsgBox “在列印頁中顯示列與行的編號”
ActiveSheet.PageSetup.PrintHeadings = True
ActiveSheet.PrintPreview
End Sub

應用範例2
Sub 隱藏列印頁中列與行的編號()
MsgBox “在列印頁中不顯示列與行的編號”
ActiveSheet.PageSetup.PrintHeadings = False
ActiveSheet.PrintPreview
End Sub

13-13　在列印頁中顯示儲存格的格線

應用範例
Sub 在列印頁中顯示儲存格的格線()
MsgBox “利用格線來列印稿紙”
With Activesheet.PageSetup
.PrintArea = “B2:V21”
.TopMargin = 120
.BottomMargin = 120
.LeftMargin = 90
.RightMargin = 90
.CenterHeader = “&20 稿紙”
End With
ActiveSheet.PageSetup.PrintGridlines = True
ActiveSheet.PrintPreview
End Sub

13-14　取得使用中的印表機名稱

應用範例
Sub 顯示印表機名稱()
MsgBox “顯示目前使用中的印表機名稱”
MsgBox Application.ActivePrinter
End Sub