EXCEL VBA-Chp13.doc
文本预览下载声明
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
显示全部