VBAで印刷の定義

質問

VBAの初心者です。ExcelでVBAを使用して印刷をしているのですが、
VBAで毎週日曜日と第２土曜日だけが特別シートを出力する場合
VBAでどうなるのでしょうか。
教えていただけますでしょうか。
例えば：
シートは4つ（sheet1～sheet4）あるとします。
sheet1～sheet3までは毎週日曜日に出力。
Sheet4だけが第2土曜日に出力。

宜しくお願いします。

回答No.1

hige_082

Sub test()
If Weekday(Date) = 1 Then
Worksheets("sheet1").PrintOut
Worksheets("sheet2").PrintOut
Worksheets("sheet3").PrintOut
End If
If 14 - Weekday(Year(Date) & "/" & Month(Date) & "/1") + 1 = Day(Date) Then _
Worksheets("sheet4").PrintOut
End Sub

こんなもんで

お礼

早速のご回答ありがとうございます。