VBA/MACRO Date Update and Print out

[durwoodghib]

Good Day,
I have a simple weekly time sheet that currently I have to change the date each time and print, change the date, then print, until I have enough copies to last a while. I am unable to attach the file at this time, However, cell B7 would be the only date(cell) I need to change.

What I would like to to is have a Sub Program run where I could enter the date I want to start with, how many copies I would like, and it would place the date, print a copy, add 7(days) to the date, print again, ect. until I have reach the number of copies.

Can someone please help me get going in the right direction?

Thanks,
Durwood

 

[yky]

This should get you started.

Sub DATE_PRINT()

CONST copies_to_print = [COLOR=#ff0000]'enter the number of copies here[/COLOR]
Dim begin_date As Date
Dim n As Integer

begin_date = [COLOR=#ff0000]'enter the beginning date here[/COLOR]

For n = 1 To copies_to_print Step 1

ThisWorkbook.Sheets("Sheet1").Range("B7").Value = begin_date
ThisWorkbook.Sheets("Sheet1").PrintOut COPIES:=1

begin_date = begin_date + 7
Next

End Sub

 

[durwoodghib]

I want to thank you for the response. I have not had much time to try this as of yet. Hope to soon.

 

[durwoodghib]

Good Day,

So work has been crazy and this has been a back burner job. However, today I utilized the code given and it worked beautifully. Thank you YKY for the help.