Posted to microsoft.public.excel.programming
|
|
Diary Page Printing
Thanks MitchDenis, great!
MichDenis wrote:
Hi Ricky,
Try this...
'--------------------------------------
Sub test()
Dim X As Date
Application.EnableEvents = False
With Sheet1 'Name of your sheet
X = .Range("A3").Value
For a = 1 To 52
.PrintOut
.Range("A3").Value = .Range("A3").Value + 7
Next
.Range("A3").Value = X
End With
Application.EnableEvents = True
End Sub
'--------------------------------------
"Ricky" a écrit dans le message de groupe de discussion :
...
Hi,
I would like to print my own diary, 7 days to a page.
Rather than creating 52 pages, I've created the one.
Can someone advise the code needed that would allow me to ...
1. print the first page, then
2. add 7 days to the date in cell A3, then
3. print this second page, then
4. add 7 days to the date in A3, then
repeat this process so as I get all 52 pages printed.
Any help would be appreciated.
Regards,
Ricky
|