PageSetup.PaperSize プロパティ
PageSetup.PaperSize プロパティを使用して、印刷用紙のサイズを設定および取得することができます。XlPaperSize 列挙型の定数を使用します。
【書式】
<取得>
object.PageSetup.PaperSize
<設定>
object.PageSetup.PaperSize = const
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- const ・・・ 用紙サイズを表す XlPaperSize 列挙型 の定数またはその値を指定します。
定数 値 説明 xlPaperLetter 1 レター (8-1/2 x 11 インチ) xlPaperLetterSmall 2 レター (小) (8-1/2 x 11 インチ) xlPaperTabloid 3 タブロイド (11 x 17 インチ) xlPaperLedger 4 Ledger (17 x 11 インチ) xlPaperLegal 5 リーガル (8-1/2 x 14 インチ) xlPaperStatement 6 ステートメント (5-1/2 x 8-1/2 インチ) xlPaperExecutive 7 エグゼクティブ (7-1/2 x 10-1/2 インチ) xlPaperA3 8 A3 (297 mm x 420 mm) xlPaperA4 9 A4 (210 mm x 297 mm) xlPaperA4Small 10 A4 スモール (210 mm x 297 mm) xlPaperA5 11 A5 (148 mm x 210 mm) xlPaperB4 12 B4 (250 mm x 354 mm) xlPaperB5 13 A5 (148 mm x 210 mm) xlPaperFolio 14 Folio (8-1/2 x 13 インチ) xlPaperQuarto 15 4 つ折版 (215 mm x 275 mm) xlPaper10x14 16 10 x 14 インチ xlPaper11x17 17 11 x 17 インチ xlPaperNote 18 ノート (8-1/2 x 11 インチ) xlPaperEnvelope9 19 封筒 #9 (3-7/8 x 8-7/2 インチ) xlPaperEnvelope10 20 封筒 #10 (4-1/8 x 9-1/2 インチ) xlPaperEnvelope11 21 封筒 #11 (4-1/2 x 10-3/8 インチ) xlPaperEnvelope12 22 封筒 #12 (4-1/2 x 11 インチ) xlPaperEnvelope14 23 封筒 #14 (5 x 11-1/2 インチ) xlPaperCsheet 24 C サイズ シート xlPaperDsheet 25 D サイズ シート xlPaperEsheet 26 E サイズ シート xlPaperEnvelopeDL 27 封筒 DL (110 mm x 220 mm) xlPaperEnvelopeC5 28 封筒 C5 (162 mm x 229 mm) xlPaperEnvelopeC3 29 封筒 C3 (324 mm x 458 mm) xlPaperEnvelopeC4 30 封筒 C4 (229 mm x 324 mm) xlPaperEnvelopeC6 31 封筒 C6 (114 mm x 162 mm) xlPaperEnvelopeC65 32 封筒 C65 (114 mm x 229 mm) xlPaperEnvelopeB4 33 封筒 B4 (250 mm x 353 mm) xlPaperEnvelopeB5 34 封筒 B5 (176 mm x 250 mm) xlPaperEnvelopeB6 35 封筒 B6 (176 mm x 125 mm) xlPaperEnvelopeItaly 36 封筒 (110 mm x 230 mm) xlPaperEnvelopeMonarch 37 封筒 Monarch (3-7/8 x 7-1/2 インチ) xlPaperEnvelopePersonal 38 封筒 (3-5/8 x 6-1/2 インチ) xlPaperFanfoldUS 39 米国標準複写紙 (14-7/8 x 11 インチ) xlPaperFanfoldStdGerman 40 ドイツ リーガル複写紙 (8-1/2 x 13 インチ) xlPaperFanfoldLegalGerman 41 ドイツ リーガル複写紙 (8-1/2 x 13 インチ) xlPaperUser 256 ユーザー定義
PageSetup.PaperSize プロパティ に設定した値(用紙サイズ)を、使用するプリンタがサポートしていない場合は、エラーが発生します。
PageSetup.PaperSize プロパティ 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Sample_PageSize() Dim w As Worksheet Set w = ActiveSheet '用紙サイズを設定 w.PageSetup.PaperSize = xlPaperA4 '印刷プレビューを表示 w.PrintPreview End Sub |
実行結果
サンプルVBAソース を実行しプレビューが表示されたところで、ページ設定を確認