複数のシートの1ページ目と2ページ目を連続印刷したい

質問

Vista Excel2007でマクロ作成中の初心者です。
複数のシートが12個あります。(増減あり）
それぞれのシートには、必ず2ページの改ページが設定してあります。
この複数シートの1ページ目だけを連続印刷したいです。
また、2ページ目だけを連続印刷したいです。以下のようにしたのですが
うまく印刷できません。よろしくお願いします。

Sub シートの１ページ目の印刷()
Dim i As Integer
For i = 1 To 12
With Worksheets(i)
.Range("A1:Q44").PrintOut
End With
Next i
End If
End Sub
-------------------------------------
Sub シートの2ページ目の印刷()
Dim i As Integer
For i = 1 To 12
With Worksheets(i)
.Range("Q46:Q89").PrintOut
End With
Next i
End If
End Sub

回答No.1

rivoisu · ベストアンサー

.Range("Q46:Q89").PrintOut
のような書き方はありませんね

With からEnd With
をつぎのように書き換えてみたらいかが
Worksheets(i).activate
ActiveSheet.PageSetup.PrintArea="A1:Q44"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

お礼

おかげさまで思う通りに出来ました。本当にありがとうございました。