Excel VBAで印刷する用紙サイズを設定する｜PaperSizeプロパティ

PageSetupオブジェクトのPaperSizeプロパティを使い、印刷の用紙サイズを設定するVBAを掲載しています。

Excel VBAで用紙サイズを設定するには、PaperSizeプロパティに下記の定数をセットします。

プリンタによっては使用できないサイズもあります。

用紙	定数	用紙サイズ
共通用紙	xlPaper11x17	11x17インチ
〃	xlPaper10x14	10x14インチ
A3	xlPaperA3	297x420mm
A4	xlPaperA4	210x297mm
A4(小型)	xlPaperA4Small	210x297mm
A5	xlPaperA5	148x210mm
B4	xlPaperB4	250x354mm
B5	xlPaperB5	182x257mm
封筒 9号	xlPaperEnvelope9	3.875x8.875インチ
封筒 10号	xlPaperEnvelope10	4.125x9.5インチ
封筒 11号	xlPaperEnvelope11	4.5x10.375インチ
封筒 12号	xlPaperEnvelope12	4.5x11インチ
封筒 14号	xlPaperEnvelope14	5x11.5インチ
封筒 B4	xlPaperEnvelopeB4	250x353mm
封筒 B5	xlPaperEnvelopeB5	176x250mm
封筒 B6	xlPaperEnvelopeB6	176x125mm
封筒 C3	xlPaperEnvelopeC3	324x458mm
封筒 C4	xlPaperEnvelopeC4	229x324mm
封筒 C5	xlPaperEnvelopeC5	162x229mm
封筒 C6	xlPaperEnvelopeC6	114x162mm
封筒 C65	xlPaperEnvelopeC65	114x229mm
封筒 DL	xlPaperEnvelopeDL	110x220mm
封筒イタリー	xlPaperEnvelopeItaly	110x230mm
封筒モナーク	xlPaperEnvelopeMonarch	3.875x7.5インチ
封筒	xlPaperEnvelopePersonal	3.625x6.5インチ
Cシート	xlPaperCsheet	.
Dシート	xlPaperDsheet	.
Eシート	xlPaperEsheet	.
German Legal Fanfold	xlPaperFanfoldLegalGerman	8.5x13インチ
German Standard Fanfold	xlPaperFanfoldStdGerman	8.5x12インチ
U.S. Standard Fanfold	xlPaperFanfoldUS	14.875x11インチ
エグゼクティブ	xlPaperExecutive	7.5x10.5インチ
フォリオ	xlPaperFolio	8.5x13インチ
レジャ	xlPaperLedger	17x11インチ
リーガル	xlPaperLegal	8.5x14インチ
レター	xlPaperLetter	8.5x11インチ
レター(小型)	xlPaperLetterSmall	8.5x11インチ
ノート	xlPaperNote	8.5x11インチ
カート	xlPaperQuarto	215x275mm
ステートメント	xlPaperStatement	5.5x8.5インチ
タブロイド	xlPaperTabloid	11x17インチ
ユーザー設定	xlPaperUser	.

関連するVBA「印刷する余白の設定」を掲載しています、参照してください。

印刷の用紙サイズを設定するVBA

Excelシート画面

■実行フォーム

B5サイズ（ボタン1）・A4サイズ（ボタン2）・B4サイズ（ボタン3）で、それぞれ印刷するボタンを配置しています。

ボタンをクリックすると、クリックイベントが開始します。

Excel VBA実行コード

ボタンがクリックされると、Sheet1に「PageSetup.PaperSize」で用紙サイズが設定されます。

次に「PrintPreview」でSheet1が印刷プレビューが表示されます。

Option Explicit

'ボタン1のクリックイベント
Private Sub CommandButton1_Click()
    'B5サイズに設定
    Worksheets("Sheet1").PageSetup.PaperSize = xlPaperB5
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

'ボタン2のクリックイベント
Private Sub CommandButton2_Click()
    'A4サイズに設定
    Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

'ボタン3のクリックイベント
Private Sub CommandButton3_Click()
    'B4サイズに設定
    Worksheets("Sheet1").PageSetup.PaperSize = xlPaperB4
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

Excel実行結果

B5サイズで印刷プレビュー

A4サイズで印刷プレビュー

B4サイズで印刷プレビュー

Homeに戻る > Excel 印刷のTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切の責任は負いませんのでご了承下さい。
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します。