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

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



Homeに戻る > Excel 印刷のTipsへ

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サイズで印刷プレビュー

B5サイズで印刷

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

A4用紙で印刷

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

B4用紙で印刷


Homeに戻る > Excel 印刷のTipsへ

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


Copyright (c) Excel-Excel ! All rights reserved