print spreadsheet with each coming day dated on it for 2006.

[Guest]

I have a spreadsheet in excell that I want to print with todays date on it as
a header and then some how be able to print one for each day for the rest of
the year. I dont want to have to print it each day, or make a copy of it and
change the date everyday. I want to be able to print the whole thing today
with just this one copy that I have in excell. Please help.

 

[Ron de Bruin]

Try this one

Enter the first day in A1 before you run the macro
If it is working correct change PrintPreview to PrintOut

This example will not print the sunday's

Sub PrintCopies_ActiveSheet()
Dim yr As Integer
yr = Year(Range("a1").Value)
Do While Year(Range("a1").Value) = yr
If Application.WorksheetFunction. _
Weekday(Range("a1").Value) <> 1 Then
ActiveSheet.PrintPreview
End If
Range("a1").Value = Range("a1").Value + 1
Loop
End Sub

 

[Guest]

If I understand your message correctly then in your header use....
&[DATE]

Good Luck!

 

[Guest]

If I understand your request then in your header type the following...
&[DATE]

Good Luck!!

 

[Guest]

Crystal my problem is that will this let me print the same spreadsheet
multiple times with a different date on it each time with only this one
command I need 1print for each day of the year?

If I understand your message correctly then in your header use....
&[DATE]

Good Luck!

I have a spreadsheet in excell that I want to print with todays date on it as
a header and then some how be able to print one for each day for the rest of
the year. I dont want to have to print it each day, or make a copy of it and
change the date everyday. I want to be able to print the whole thing today
with just this one copy that I have in excell. Please help.

 

[Guest]

Ron iwas not creating a macro never have do I need to do this to make this
possable.

 

[Ron de Bruin]

Hi Megan

Insert the first date in A1 first


Alt-F11
Insert>Module from the menubar
paste the sub in there
Alt-Q to go back to Excel

If you do Alt-F8 you get a list of your macro's
Select "PrintCopies_ActiveSheet" and press Run

 

[Guest]

whats the sub?

Hi Megan

Insert the first date in A1 first


Alt-F11
Insert>Module from the menubar
paste the sub in there
Alt-Q to go back to Excel

If you do Alt-F8 you get a list of your macro's
Select "PrintCopies_ActiveSheet" and press Run

 

[Guest]

I'm actually in the same office as Megan, trying to help her w/ this.

What do you mean by "paste the sub in there". I've got everything else
figured out, except this.

 

[Ron de Bruin]

Sub (subroutine) is the macro

Sub PrintCopies_ActiveSheet()
Dim yr As Integer
yr = Year(Range("a1").Value)
Do While Year(Range("a1").Value) = yr
If Application.WorksheetFunction. _
Weekday(Range("a1").Value) <> 1 Then
ActiveSheet.PrintPreview
End If
Range("a1").Value = Range("a1").Value + 1
Loop
End Sub

 

[Guest]

Ok I see now where I have each date if I go throught the print preview option
but when I print it only prints the currnet page I am on.

 

[Guest]

sorry for being a pane but another question is why wont it print sundays and
can it be set to because we nned this print out for SUndays also.

 

[Ron de Bruin]

Hi Megan

I think you have set your print area
If you want to print all data on the sheet then go to File>Print Area...Clear Print Area

Or do you want to print the whole workbook ?

 

[Ron de Bruin]

Hi Megan

sorry for being a pane but another question is why wont it print sundays and
can it be set to because we nned this print out for SUndays also.

The example Iposted not print the sundays but if you want them also then use this macro

..Sub PrintCopies_ActiveSheet()
Dim yr As Integer
yr = Year(Range("a1").Value)
Do While Year(Range("a1").Value) = yr
ActiveSheet.PrintPreview
Range("a1").Value = Range("a1").Value + 1
Loop
End Sub

 

[Ron de Bruin]

Oops

There is a dot before
Sub PrintCopies_ActiveSheet()

Remove it

 

[Guest]

Yes I want to print the whole work book every day up to December 31st, 2006

 

[Guest]

I did do that I figured it was an oops but I still cant get it to print the
entire workbook up to December 31st 2006 with just one stroke of the print
key. Any ideas, I can page through them in the print preview option but I
dont want to have to individually print each one. Thanks for all of your help.

 

[Ron de Bruin]

Ok

Then use this one

I use a sheet named "Sheet1"
In this sheet enter the first date in A1

Test it with a start date of 29-Dec or so

Sub PrintCopies_Activeworkbook()
Dim yr As Integer
With Sheets("sheet1")
yr = Year(.Range("a1").Value)
Do While Year(.Range("a1").Value) = yr
ActiveWorkbook.PrintOut
.Range("a1").Value = .Range("a1").Value + 1
Loop
End With
End Sub

 

[Guest]

Ok the test page it did worked wonderfully I am goping to try my report I
will let you know how it works, thank you for all your help.

 

[Guest]

Alittle fixin here and there on my part this worked GREAT, thank you so much
for your help.