教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA 印刷】印刷する用紙サイズを設定する方法について教えて!

f:id:m_kbou:20210508064215p:plain

印刷する用紙サイズを設定するにはPageSetup.PaperSizeプロパティを使用します。用紙サイズは使用するプリンタにより異なるため予め理解しておいて下さい。この印刷する用紙サイズを設定する方法について紹介します。

 

 

構文

記述方法は以下の通りとなります。

Sheets("[シート名]").PageSetup.PaperSize =[用紙サイズ]

[説明]:

印刷する用紙サイズを設定するには「Sheets("[シート名]").PageSetup.PaperSize =[用紙サイズ]」と記述します。[シート名]には印刷するシート名を記述し、「”」(ダブルクォーテーション)で囲みます。PageSetup.PaperSizeは印刷する用紙サイズを取得する記述となります。[用紙サイズ]には用紙のサイズを記述します。[用紙サイズ]に指定する値は以下一覧に纏めておきます。内容を纏めると、「[用紙サイズ]で指定した用紙で印刷して下さい。」との意味になります。

f:id:m_kbou:20210508073525p:plain

[記述例]:

Sheets("Sheet1").PageSetup.PaperSize = 9
Sheets("Sheet1").PageSetup.PaperSize = 8
Sheets("Sheet1").PageSetup.PaperSize = 13

 

使い方

使い方について具体的に説明していきます。

用紙サイズをA4サイズに設定する

用紙サイズをA4サイズに設定する方法について説明します。

[プログラミング例]:

Sub A4サイズに設定()
  Sheets("Sheet1").PageSetup.PaperSize = 9
  Sheets("Sheet1").PrintPreview
End Sub

内容は、「Sheet1シートの印刷する方用紙サイズをA4サイズに設定し、印刷プレビューで表示して下さい。」との意味になります。

f:id:m_kbou:20210508073838p:plain

※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①Sheet1シートのA1セル~G8セルにデータが入力されています。<A4サイズ>ボタンには上記のプログラミング例のプログラムが登録されています。この<A4サイズ>ボタンをクリックします。(※ボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210508073931p:plain

②結果は以下の様になり、A1セル~G4セルまでのセル範囲がA4サイズで印刷される事を印刷プレビューで確認できます。

f:id:m_kbou:20210508073950p:plain

用紙サイズをA4サイズを設定する方法についての説明は以上です。

 

用紙サイズをA3サイズに設定する

用紙サイズをA3サイズに設定する方法について説明します。

[プログラミング例]:

Sub A3サイズに設定()
  Sheets("Sheet1").PageSetup.PaperSize = 8
  Sheets("Sheet1").PrintPreview
End Sub

内容は、「Sheet1シートの印刷する方用紙サイズをA3サイズに設定し、印刷プレビューで表示して下さい。」との意味になります。

f:id:m_kbou:20210508074212p:plain

※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①Sheet1シートのA1セル~G8セルにデータが入力されています。<A3サイズ>ボタンには上記のプログラミング例のプログラムが登録されています。この<A3サイズ>ボタンをクリックします。(※ボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210508074337p:plain

②結果は以下の様になり、A1セル~G4セルまでのセル範囲がA3サイズで印刷される事を印刷プレビューで確認できます。

f:id:m_kbou:20210508074355p:plain

用紙サイズをA3サイズを設定する方法についての説明は以上です。

 

用紙サイズをB5サイズに設定する

用紙サイズをB5サイズに設定する方法について説明します。

[プログラミング例]:

Sub B5サイズに設定()
  Sheets("Sheet1").PageSetup.PaperSize = 13
  Sheets("Sheet1").PrintPreview
End Sub

内容は、「Sheet1シートの印刷する方用紙サイズをB5サイズに設定し、印刷プレビューで表示して下さい。」との意味になります。

f:id:m_kbou:20210508074532p:plain

※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①Sheet1シートのA1セル~G8セルにデータが入力されています。<B5サイズ>ボタンには上記のプログラミング例のプログラムが登録されています。この<B5サイズ>ボタンをクリックします。(※ボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210508074554p:plain

②結果は以下の様になり、A1セル~G4セルまでのセル範囲がB5サイズで印刷される事を印刷プレビューで確認できます。

f:id:m_kbou:20210508074611p:plain

用紙サイズをB5サイズを設定する方法についての説明は以上です。

 

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

 

おわりに

今回は印刷する用紙サイズを設定する方法について説明しました。類似の内容として印刷時の印刷方向の設定倍率設定もあります。こちらも参考にして下さい。