すぐに役立つエクセルVBAマクロ集 - Excel VBA Macro Collection'================================================================================= Sub 選択したシートを印刷する() 部数 = 1 '印刷部数を指定する ※１ Sheets("SSS").PrintOut Copies:=部数 '指定部数を印刷する ※２ End Sub '--------------------------------------------------------------------------------- Sub アクティブシートを印刷する() ActiveSheets.PrintOut '印刷する（1部） End Sub '-----------------------------------------------------------------------------
