構文
object.PrintOut ( [ From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas ] )
定数
| 引数 | 説明 | 引数を省略した場合 |
| object | 対象となるオブジェクトを指定 ・Windowオブジェクト ・Workbook オブジェクト ・Worksheet オブジェクト ・Range オブジェクト | 省略不可 |
| From | 印刷開始ページを指定 | 最初のページから印刷 |
| To | 印刷終了ページを指定 | 最後のページまで印刷 |
| Copies | 印刷部数を指定 | 1部で印刷 |
| Preview | TRUE→印刷プレビュー | 直ちに印刷 |
| FALSE→直ちに印刷 | ||
| ActivePrinter | プリンターを指定 | アクティブなプリンタで印刷 |
| PrintToFile | TRUE→ファイルへ出力 | ファイルへ出力しない |
| FALSE→ファイルへ出力しない | ||
| Collate | TRUE→部単位で印刷 | 部単位で印刷 |
| FALSE→ページ単位で印刷 | ||
| PrToFileName | 出力するファイル名を指定(PrintToFileがTrueのみ) | ファイル名を求めるメッセージを表示 |
| IgnorePrintAreas | TRUE→印刷範囲を無視して印刷 | 印刷範囲を無視せず印刷 |
| FALSE→印刷範囲を無視せず印刷 |
コードサンプル
Public Sub sample_PrintOut()
'■ActiveSheetを印刷
ActiveSheet.PrintOut
'■指定範囲をプリンター(CANON Printer)で印刷
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Sheet1")
ws.Range("A1:D50").PrintOut ActivePrinter:="CANON Printer"
'■指定シートを3部、ページ単位で印刷
ws.PrintOut copies:=3, collate:=False
'■ActiveSheetの1ページ目から2ページ目を、prn形式のファイルで出力する
ActiveSheet.PrintOut from:=1, to:=2, PrintToFile:=True
'■ブック全体(シート全て)を印刷プレビュー表示
ActiveWorkbook.PrintOut Preview:=True
End Sub
注意
・非表示シートを印刷(PrintOut)するとエラーが表示されます。再表示して印刷しましょう。
コメント