[[20181019130708]]　『営業日のみ印刷をかけて、日付も自動で変更』（まるこ）　ページの最後に飛ぶ

『営業日のみ印刷をかけて、日付も自動で変更』（まるこ）

エクセルで１か月分の記録表を印刷しています。
セルＡ1に日付が入力してあります。１日１枚です。

今は、セルＡ１の日付を手入力して印刷をかけていますが
マクロなどを使用して、ワンクリックで１か月分印刷することは
可能でしょうか？
（別シートにカレンダーを作成し営業日のみ印刷、セルＡ１も営業日で）

分かりにくい説明で申し訳ありません・・・

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

別シートを元に印刷シートのA1セルを代入し、Printoutするだけなので、可能でしょう。が、シート構成がさっぱり判らないので、試しに作ってあげることもできず…。おそらく、どの行が営業日なのか区別する情報があるのだとは思うのですが。
（???） 2018/10/19(金) 13:40

（？？？）さま

シート2のＢ1～Ｂ31に日付が入っています。
Ａ列にはＩＦ関数が入っており
Ｂが営業日なら5未満、休業日なら6以上の数値が入っています。

シート2のＡ列5未満の日付を印刷したいです。

こんな説明でお分かりいただけますでしょうか・・・

（まるこ） 2018/10/19(金) 14:10

5未満でなく、5以下なら

 Option Explicit

 Sub test()
    Dim ws As Worksheet
    Dim c As Range

    Set ws = Worksheets("sheet1")

    For Each c In Worksheets("sheet2").Range("A1:A31")
        If c.Value <= 5 Then
            ws.Range("A1").Value = c.Offset(, 1).Value
            ws.PrintOut
        End If
    Next

 End Sub

（マナ） 2018/10/19(金) 20:53

マナさま

出来ました！！ありがとうございます。
（まるこ） 2018/10/22(月) 11:56

たびたび申し訳ありません。
上記マクロで、同じ日付を両面で印刷する場合はどうなりますでしょうか。

10月を例にすると、
10/1　両面で１枚・・・・・
10月の営業日は22日間なので、両面で22枚印刷したいです
（まるこ） 2018/10/25(木) 11:40

回答らしい回答でもないしうろ覚えですが、"両面印刷"はプリンタ側の設定なのでエクセルVBAでちょこっといじればOKという話ではなかったような…

（もこな２） 2018/10/25(木) 19:14

そのブックが個人使用で、プリンタも固定であれば
sheet1を両面印刷に設定しておくだけで、
マクロはそのままでよいです。

（マナ） 2018/10/25(木) 19:59

コメント返信：

[ 一覧(最新更新順) ]

[[20181019130708]] 『営業日のみ印刷をかけて、日付も自動で変更』（まるこ） ページの最後に飛ぶ

[[20181019130708]]　『営業日のみ印刷をかけて、日付も自動で変更』（まるこ）　ページの最後に飛ぶ