Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Diary Page Printing
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Diary Page Printing
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 |
#3
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I create a page by page yearly diary to record bookings | Excel Worksheet Functions | |||
Excel Printing --Borders are not printing on the same page as data | Excel Discussion (Misc queries) | |||
Printing multiple page worksheets on 1 single page | Excel Discussion (Misc queries) | |||
how can i design a 2 page a day diary / appointment book | Excel Worksheet Functions | |||
Printing second page if data overruns, otherwise print first page | Excel Programming |