複数のシートを選択して印刷画面を開くコードです。
|
1 2 |
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select Application.CommandBars.ExecuteMso "PrintPreviewAndPrint" |
ファイル→印刷 をクリックしたときの画面を開くことができるので、
微調整して印刷することができます。
また、次のような感じでコードで細かく指定することもできます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
'印刷範囲を選択 Worksheets("Sheet1").PageSetup.PrintArea = "A1:D7" Worksheets("Sheet2").PageSetup.PrintArea = "A1:D7" Worksheets("Sheet3").PageSetup.PrintArea = "A1:D7" Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select Application.CommandBars.ExecuteMso "PrintPreviewAndPrint" '全ての列を１ページに印刷 With Worksheets("Sheet1").PageSetup .Zoom = False .FitToPagesWide = 1 End With With Worksheets("Sheet2").PageSetup .Zoom = False .FitToPagesWide = 1 End With With Worksheets("Sheet3").PageSetup .Zoom = False .FitToPagesWide = 1 End With |