EXCEL VBA-Chp13.docVIP

PAGE  PAGE 6 第十三章　列印 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”…… eq \o\ac(○,1) ActiveSheet.PageSetup.PrintTitleRows = “$2:$2”…… eq \o\ac(○,2) ActiveSheet.PrintPreview MsgBox “回復原來的狀態” With ActiveSheet.PageSetup .PrintTitleRows = midasig .PrintTitleCol