Excel エクセル マクロ VBA

質問

エクセルマクロで指定したシート(2シート目)から末尾のシートまで印刷したい場合、下記のようなコードで良いでしょうか？

Sub Sample1()
Dim i As Long
For i = 2 To Sheets.Count
ActiveWorkbook.Sheets(i).Select (Replace:= False)
Next i
Activesheet.PrintOut Preview:=True
End Sub

回答No.1

kkkkkm · ベストアンサー

Sub Sample1()
Dim i As Long
ActiveWorkbook.Sheets(2).Activate
For i = 2 To Sheets.Count
ActiveWorkbook.Sheets(i).Select Replace:=False
Next i
ActiveWindow.SelectedSheets.PrintOut Preview:=True
End Sub

で試してみてください。