|
初めまして。エクセル2010を使用しています。
VBA初心者につきご教示いただければと思います。
ある様式を一月分、日別に一枚づつ印刷します。
M列の行6から行36まで、一月の1日から31日までの日付データがあり、上から順に、G3に日付を貼り付けて、印刷していきます。
M列の日付は、あらかじめ関数で、土日祝祭日・振替休日は空白になるようにしています。従って、表示された日付だけが印刷対象の日付となります。
そこで、上記内容のモジュールを作成したところ、無反応でした。
どのように修正したらよいのかアドバイスをいただけないでしょいか。
よろしくお願いします。
なお、以下の内容はスマフォで入力していますので多少の間違いがあるかもしれません。
こんな内容でとても恥ずかしいですが、よろしくお願いします。
Dim cnt As Long
For cnt =1 to 31 Step 1
If Cells(cnt,13).Value="" Then Exit For
Range("G3")=Cells(cnt,13)
ActiveWindow.SelectedSheets.PrintOut Copies:=1,Collate:=True,_IgnorePrintAreas:=False
Next cnt
|
|