PrintOut
【構文】
object.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)
![](https://eguweb.jp/wp-content/uploads/202007290009-01.jpg)
パラメーター
From
印刷を開始するページの番号を指定します。
To
印刷を終了するページの番号を指定します。
Copies
印刷部数を指定します。
Preview
True の場合、印刷プレビューを実行します。
ActivePrinter
アクティブなプリンタの名前を指定します。
PrintToFile
True の場合、ファイルへ出力します。
Collate
True の場合、部単位で印刷します。
PrToFileName
True の場合、印刷したいファイルの名前を指定します。
IgnorePrintAreas
True の場合、印刷範囲を無視してオブジェクト全体を印刷します。
コードを改行する
![](https://eguweb.jp/wp-content/uploads/202007290024-00-1024x514.jpg)
改行する行の行末に「_(アンダーバー)」を記述します。
※直前に半角スペースが必要です。
![](https://eguweb.jp/wp-content/uploads/202007290028-00.jpg)
半角スペースが無いとコンパイルエラーが表示されます。
![](https://eguweb.jp/wp-content/uploads/202007290028-01.jpg)
![](https://eguweb.jp/wp-content/uploads/202007290029-00.jpg)
実行
Sub AutoPrint()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True, IgnorePrintAreas:=False
End Sub
「実行ボタン」または「F5キー」でプログラムを実行します。
![](https://eguweb.jp/wp-content/uploads/202007290031-00-1.jpg)
![](https://eguweb.jp/wp-content/uploads/202007290031-01-1.jpg)
![](https://eguweb.jp/wp-content/uploads/202007290031-03-1-1024x803.jpg)
印刷プレビューが実行されました!!
※Preview:=True,に設定しているので、プレビューが表示されます。
この後、印刷をすると通常の印刷と同じ様に印刷されます!
簡単に作れますので、ぜひご参考下さい^o^)/