Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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. |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
If I understand your message correctly then in your header use....
&[DATE] Good Luck! "Megan" wrote: 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. |
#3
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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? "Crystal" wrote: If I understand your message correctly then in your header use.... &[DATE] Good Luck! "Megan" wrote: 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. |
#4
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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 -- Regards Ron de Bruin http://www.rondebruin.nl "Megan" wrote in message ... 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. |
#5
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Ron iwas not creating a macro never have do I need to do this to make this
possable. "Ron de Bruin" wrote: 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 -- Regards Ron de Bruin http://www.rondebruin.nl "Megan" wrote in message ... 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. |
#6
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Hi Megan
Insert the first date in A1 first Alt-F11 InsertModule 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 -- Regards Ron de Bruin http://www.rondebruin.nl "Megan" wrote in message ... Ron iwas not creating a macro never have do I need to do this to make this possable. "Ron de Bruin" wrote: 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 -- Regards Ron de Bruin http://www.rondebruin.nl "Megan" wrote in message ... 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. |
#7
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
whats the sub?
"Ron de Bruin" wrote: Hi Megan Insert the first date in A1 first Alt-F11 InsertModule 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 -- Regards Ron de Bruin http://www.rondebruin.nl "Megan" wrote in message ... Ron iwas not creating a macro never have do I need to do this to make this possable. "Ron de Bruin" wrote: 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 -- Regards Ron de Bruin http://www.rondebruin.nl "Megan" wrote in message ... 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. |
#8
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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" wrote: Hi Megan Insert the first date in A1 first Alt-F11 InsertModule 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 -- Regards Ron de Bruin http://www.rondebruin.nl "Megan" wrote in message ... Ron iwas not creating a macro never have do I need to do this to make this possable. "Ron de Bruin" wrote: 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 -- Regards Ron de Bruin http://www.rondebruin.nl "Megan" wrote in message ... 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. |
#9
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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 -- Regards Ron de Bruin http://www.rondebruin.nl "Multiple speadsheets" wrote in message ... 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" wrote: Hi Megan Insert the first date in A1 first Alt-F11 InsertModule 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 -- Regards Ron de Bruin http://www.rondebruin.nl "Megan" wrote in message ... Ron iwas not creating a macro never have do I need to do this to make this possable. "Ron de Bruin" wrote: 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 -- Regards Ron de Bruin http://www.rondebruin.nl "Megan" wrote in message ... 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. |
#10
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
If I understand your request then in your header type the following...
&[DATE] Good Luck!! "Megan" wrote: 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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
I cant see my excel spreadsheet but only in Print Preview? | Excel Worksheet Functions | |||
how do I make rows and columns appear when I print a spreadsheet | Excel Worksheet Functions | |||
A cell in an excel spreadsheet that does not print but shows in pr | Excel Discussion (Misc queries) | |||
How can I print long lists of data from an Excel spreadsheet? | Excel Discussion (Misc queries) | |||
How do I print something off of a spreadsheet? | Excel Discussion (Misc queries) |