Excelブックのシート印刷について

質問

Excekのバージョンは2003です。
ブック内に１２枚のシートがある状況で、左から２番目以降のシートを印刷したい場合は
どんなVBAを使用したらよいのでしょうか？
よろしくお願いします。

回答No.2

ham_kamo · ベストアンサー

「左から２番目以降のシートを印刷したい」というのは、
（１）２番目以降の全てのシートをいっぺんに印刷
なのか、
（２）２番目以降の任意のシートを印刷
なのか、どちらでしょう。

（２）ならNo.1の方の書いている通りですが、（１）の場合は、

Sub print_a()
　Dim i As Integer
　For i = 2 To Worksheets.Count
　　Worksheets(i).PrintOut
　Next
End Sub

みたいな感じかと。もしヘッダーやフッターにページ番号を通しで入れていて、グループ化して印刷したいのであれば、以下でどうでしょう。

Sub print_b()
　Dim WS() As Integer
　Dim i As Integer
　ReDim WS(Worksheets.Count - 2)
　For i = 0 To Worksheets.Count - 2
　　WS(i) = i + 2
　Next
　Worksheets(WS).PrintOut
End Sub

お礼

ありがとうございました。

回答No.1

noname#187541

こんにちは。

Sheets(2).PrintOut　でどうでしょうか。

お礼

ありがとうございました。