毎週木曜日のみ印刷するVBA

質問

Sub 印刷()
'
' Macro1 Macro
' マクロ記録日 : 201X/X/X ユーザー名 : AAAA
'
'
If MsgBox("実行する場合はＯＫ、間違ってこのボタンをクリックした場合はキャンセルをクリックしてください。(日付確認後、印刷のこと。)", vbOKCancel) = vbCancel Then
End

End If

'A印刷
ChDir "L:\フォルダB\X\新規"
Workbooks.Open Filename:="L:\フォルダB\X\新規\記録表\工程分析.xls"
Sheets("毎日印刷").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Save
ActiveWindow.Close
「毎日印刷」シートのK１には＝TODAY（）が入力されています。
質問ですがK1が毎週木曜日の時のみ１枚印刷して、それ以外の曜日の時は印刷せずに上書き保存のみして閉じるVBAはどの様に組めば良いのでしょうか？

回答No.1

kkkkkm · ベストアンサー

'A印刷
ChDir "L:\フォルダB\X\新規"
Workbooks.Open Filename:="L:\フォルダB\X\新規\記録表\工程分析.xls"
If Format(Range("K1").Value2, "aaaa") = "木曜日" Then
Sheets("毎日印刷").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
ActiveWorkbook.Save
ActiveWindow.Close

でいかがですか。

お礼

この度は素早い対応ありがとうございました。
非常に助かりました。

回答No.2

kagakusuki

>「毎日印刷」シートのK１には＝TODAY（）が入力されています。

を使わずに、

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

の所を

If Format(Date, "aaa") = "木" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

に変更するのではだめなのでしょうか？

お礼

この度は素早い対応ありがとうございました。
参考になりました。