複数のEXCELシートの印刷順の指定

EXCEL97の一つのブックに200程度のワークシートがあります。ワークシート名はそれぞれ1～200までの数値になっており、ランダムに並んでいます。シート名の降順で印刷をおこなうEXCEL VBAのコードを教えてください。

No.1 ベストアンサー 回答者： wildcard 回答日時： 2003/04/18 14:30

すべてのワークシートでページ設定が完了しているならば、下記のマクロでokですよ。

ワークシートが200でないなら、 For i=200　の箇所を訂正して下さい。Excel2000にて動作確認済みです。

Sub All_Print()
　　Dim i As Integer
　　For i = 200 To 1 Step -1
　　　　Sheets(CStr(i)).PrintOut Copies:=1
　　Next i
End Sub

この回答へのお礼

ありがとうございます。
VeryVeryバッチリ出来ました。実はもう一つ質問があるのですが、また、別の質問でアップします。その質問も教えていただけたら助かります。
ほんとにほんとにありがとうございました。

お礼日時：2003/04/18 15:49