| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro for Print Program
Hi All:
I have a employee schedule in Excel that has names in Column A (approximately 500 entries). I'd like to create a macro that could print an individual page for each individual employee and place their name in the header. Can you do this in Excel? or is this better suited for Access? Just curious if anyone has any experience with something like this. |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Macro for Print Program
Hi Nimish
With names in A1: A10 try this If it is working OK then change 10 to 500 and delete preview:=True Sub PrintCopies_ActiveSheet() Dim CopieNumber As Long For CopieNumber = 1 To 10 With ActiveSheet .PageSetup.LeftHeader = Cells(CopieNumber, "A").Value 'Print the sheet .PrintOut preview:=True End With Next CopieNumber End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Nimish" wrote in message ups.com... Hi All: I have a employee schedule in Excel that has names in Column A (approximately 500 entries). I'd like to create a macro that could print an individual page for each individual employee and place their name in the header. Can you do this in Excel? or is this better suited for Access? Just curious if anyone has any experience with something like this. |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Macro for Print Program
This almost gets me there, except that it prints a copy of the ENTIRE
schedule for each employee. I rather just want to print out the schedule for the "current page" of the employee row, thus only providing the relevant page for each employee. Anyone got that trick? -Nimish Ron de Bruin wrote: Hi Nimish With names in A1: A10 try this If it is working OK then change 10 to 500 and delete preview:=True Sub PrintCopies_ActiveSheet() Dim CopieNumber As Long For CopieNumber = 1 To 10 With ActiveSheet .PageSetup.LeftHeader = Cells(CopieNumber, "A").Value 'Print the sheet .PrintOut preview:=True End With Next CopieNumber End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Nimish" wrote in message ups.com... Hi All: I have a employee schedule in Excel that has names in Column A (approximately 500 entries). I'd like to create a macro that could print an individual page for each individual employee and place their name in the header. Can you do this in Excel? or is this better suited for Access? Just curious if anyone has any experience with something like this. |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Macro for Print Program
I am not sure I understand you.
Can you give more details -- Regards Ron de Bruin http://www.rondebruin.nl "Nimish" wrote in message ups.com... This almost gets me there, except that it prints a copy of the ENTIRE schedule for each employee. I rather just want to print out the schedule for the "current page" of the employee row, thus only providing the relevant page for each employee. Anyone got that trick? -Nimish Ron de Bruin wrote: Hi Nimish With names in A1: A10 try this If it is working OK then change 10 to 500 and delete preview:=True Sub PrintCopies_ActiveSheet() Dim CopieNumber As Long For CopieNumber = 1 To 10 With ActiveSheet .PageSetup.LeftHeader = Cells(CopieNumber, "A").Value 'Print the sheet .PrintOut preview:=True End With Next CopieNumber End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Nimish" wrote in message ups.com... Hi All: I have a employee schedule in Excel that has names in Column A (approximately 500 entries). I'd like to create a macro that could print an individual page for each individual employee and place their name in the header. Can you do this in Excel? or is this better suited for Access? Just curious if anyone has any experience with something like this. |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Macro for Print Program
The macro you gave me work, except that the it does nothing to restrict
the print area to a header and the selected row for each employee. I want to the printing so each employee would only get a printout for his schedule. Ron de Bruin wrote: I am not sure I understand you. Can you give more details -- Regards Ron de Bruin http://www.rondebruin.nl "Nimish" wrote in message ups.com... This almost gets me there, except that it prints a copy of the ENTIRE schedule for each employee. I rather just want to print out the schedule for the "current page" of the employee row, thus only providing the relevant page for each employee. Anyone got that trick? -Nimish Ron de Bruin wrote: Hi Nimish With names in A1: A10 try this If it is working OK then change 10 to 500 and delete preview:=True Sub PrintCopies_ActiveSheet() Dim CopieNumber As Long For CopieNumber = 1 To 10 With ActiveSheet .PageSetup.LeftHeader = Cells(CopieNumber, "A").Value 'Print the sheet .PrintOut preview:=True End With Next CopieNumber End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Nimish" wrote in message ups.com... Hi All: I have a employee schedule in Excel that has names in Column A (approximately 500 entries). I'd like to create a macro that could print an individual page for each individual employee and place their name in the header. Can you do this in Excel? or is this better suited for Access? Just curious if anyone has any experience with something like this. |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Macro for Print Program
Is it only one row for each employee
Or is there also a header row that you want to print -- Regards Ron de Bruin http://www.rondebruin.nl "Nimish" wrote in message ups.com... The macro you gave me work, except that the it does nothing to restrict the print area to a header and the selected row for each employee. I want to the printing so each employee would only get a printout for his schedule. Ron de Bruin wrote: I am not sure I understand you. Can you give more details -- Regards Ron de Bruin http://www.rondebruin.nl "Nimish" wrote in message ups.com... This almost gets me there, except that it prints a copy of the ENTIRE schedule for each employee. I rather just want to print out the schedule for the "current page" of the employee row, thus only providing the relevant page for each employee. Anyone got that trick? -Nimish Ron de Bruin wrote: Hi Nimish With names in A1: A10 try this If it is working OK then change 10 to 500 and delete preview:=True Sub PrintCopies_ActiveSheet() Dim CopieNumber As Long For CopieNumber = 1 To 10 With ActiveSheet .PageSetup.LeftHeader = Cells(CopieNumber, "A").Value 'Print the sheet .PrintOut preview:=True End With Next CopieNumber End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Nimish" wrote in message ups.com... Hi All: I have a employee schedule in Excel that has names in Column A (approximately 500 entries). I'd like to create a macro that could print an individual page for each individual employee and place their name in the header. Can you do this in Excel? or is this better suited for Access? Just curious if anyone has any experience with something like this. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| how do i put a formula in a macro to run a program | Excel Worksheet Functions | |||
| How to stop Excel remembering/loading macro from previously opened Workbook | Excel Discussion (Misc queries) | |||
| Compiling macro based on cell values | Excel Discussion (Misc queries) | |||
| Search, Copy, Paste Macro in Excel | Excel Worksheet Functions | |||
| How to program an excel macro to repeat a series of keystrokes? | Excel Discussion (Misc queries) | |||
Hybrid Mode
