Diary Page Printing

[Ricky]

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

 

[MichDenis]

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" <[email protected]> a écrit dans le message de groupe de discussion :
(e-mail address removed)...
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

 

[Ricky]

Thanks MitchDenis, great!