印刷用紙サイズの設定をPaperSizeプロパティを使ってVBAで指定する方法
共有パソコンやプリンターを使用する場所では、印刷したら印刷位置がずれてしまったり、用紙サイズが異なってしまったことありませんか？
このような場合はエクセルVBAを使用して、印刷用紙設定を行っておけば解決できますよ。
目次
PaperSizeプロパティを使う解決法
A4サイズの用紙をVBAコードで設定することで、わざわざページ設定画面を開いて指定する必要がなくなりますので、手間も時間も節約でき仕事効率化になります。
いつものようにユーザーフォームに配置したコマンドボタンにVBAコードを書いています。
ページ設定でA4用紙に固定するVBA
Private Sub CommandButton1_Click()
Worksheets(“Sheet1”).PageSetup.PaperSize = xlPaperA4
End Sub
解説
- コマンドボタン1がクリックされたら
- 「Sheet1」という名のシートの印刷のページ設定はA4用紙にする
- マクロ記録終了
A4以外にも用紙は選択できますので、定数を変更すれば用紙を指定できますよ。
| 定数 | 用紙サイズ |
| xlPaperA4 | A4用紙 |
| xlPaperA3 | A3用紙 |
| xlPaperA5 | A5用紙 |
| xlPaperB4 | B4用紙 |
| xlPaperB5 | B5用紙 |
Dialogsプロパティを使う解決法
こちらの方法は単純にプリンターのプロパティーを呼び出して直接調整するDialogsプロパティを使う方法です。
ダイアログボックス表示
Application.Dialogs(xlDialogPrinterSetup).Show
このVBAコードを書き加えれば、プリンター選択画面が表示されますので詳しくは下記ページをご覧下さいませ。
あわせて読みたい
印刷前にプレビューではなくダイアログボックスを開いて選択・設定するVBA
店舗や事務所などで複数のプリンターが印刷可能な状態の時に、コマンドボタンに記録した印刷実行するプログラムを作動させて失敗した経験がありませんか？ エクセルVBA…
印刷のページ設定をVBAで出来るのは用紙だけではありませんので、一緒に設定したほうが失敗印刷すなくて済みますよ。