Printing the same thing once with different dates.

This may just sound like I am being lazy but I have mulitple forms that get printed at the begining of the month. Each one has to have the date put in. In trying to save time and not having to switch the date after each form is printed. Is there a formula that will allow me to print once all 30 to 31 days at the with each date put in 1 day per page? Does that even exist or do just need to do it manualy.

try this

it will print as many times as there are days in the month

For x = 1 To MonthDays

theDate = Month(Date) & "/" & x & "/" & Year(Date)

With ActiveSheet.PageSetup
.LeftHeader = theDate
End With

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next x

End Sub

Almir's picture

Printing the same thing once with different dates.

What do forms look like? What are the dates that are to be printed on each form? Could you post an example of your form?