『期間分月ごとに印刷』（事務員）

業務管理表と言う書類を作成しました。
表は手動で"年月"を変更すると、カレンダーが変わるようになっています。
（年月を2018/1と入力すると、2018/1のカレンダーの内容に
　年月を2018/2と入力すると、2018/2のカレンダーの内容に変更されます。）

"年月"とは別に、"期間"を入力する欄があり、
例えば、開始：2018/1/23　終了：2018/5/16　と設定したときに
1〜5月までの5か月間分を一括で印刷するマクロを下記に作成したのですが、ここで行き詰ってしまいました。

このマクロを実行すると、期間枚数分の5枚はでてきますが、内容がすべて1月のカレンダーの内容が5枚印刷される状況です。

"年月"も1〜5月まで期間と連動して自動に変更するようにしたいのですが
どのような構文を使えばよいかご教授頂けたら嬉しいです。



Sub 期間分枚数印刷()

Dim dt開始年月 As Date
Dim dt終了年月 As Date

Dim mm         As Integer


 dt開始年月 = Cells(4, 16)
 dt終了年月 = Cells(4, 20)
 
 
For mm = 0 To VBA.DateDiff("m", dt開始年月, dt終了年月)
     
     Debug.Print VBA.DateAdd("m", mm, dt開始年月)
     
     Range("A1:AI33").Select
     Selection.PrintOut

Next mm

 
End Sub




＜ 使用 Excel：Excel2010、使用 OS：Windows7 ＞
----
 Forループの中で年月を入力するセルを書き換えればいいのでは？
（ねむねむ） 2018/12/10(月) 16:39
----
ねむねむ様
ご回答ありがとうございます。
年月を入力するセルとは、下記の内容を書き換えればいけますかね？

Debug.Print VBA.DateAdd("m", mm, dt開始年月)
（事務員） 2018/12/10(月) 16:59
----
 まずはご自分で試してみては？
（ねむねむ） 2018/12/11(火) 09:03