'================================================================================= Sub 選択したシートを印刷する() 部数 = 1 '印刷部数を指定する ※1 Sheets("SSS").PrintOut Copies:=部数 '指定部数を印刷する ※2 End Sub '--------------------------------------------------------------------------------- Sub アクティブシートを印刷する() ActiveSheets.PrintOut '印刷する(1部) End Sub '-----------------------------------------------------------------------------