Printing consecutive dates
 

Is it possible to print consecutive dates on each new page printed? I made a
form for my business that I print out and write on manually, but I have to
fill in the new date everyday. I would like to print multiples of this form
with each new form printed to have a new date on it without having to print
them one page at a time.

Printing consecutive dates
 

You could create a macro:

Option Explicit
Sub testme()
Dim iCtr As Long
Dim myDate As Date

myDate = Date ' or give it a starting date dateserial(2007,1,22)
With Worksheets("sheet1")
For iCtr = 1 To 5
.Range("a1").Value = myDate
.PrintOut preview:=True
myDate = myDate + 1
Next iCtr
End With
End Sub


This puts the date in A1 of Sheet1 and prints it 5 times.



Bradford88 wrote:

Is it possible to print consecutive dates on each new page printed? I made a
form for my business that I print out and write on manually, but I have to
fill in the new date everyday. I would like to print multiples of this form
with each new form printed to have a new date on it without having to print
them one page at a time.

--

Dave Peterson