Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Urgent Help required on printing option
Dear reader,
I required your help on print option. Actualy I want to print it to Adobe PDF on contineous bases so that it will not ask for save as option and select the next number for print 1 1.pdf for print 2 2.pdf for print 3 3.pdf for print 4 4.pdf and like that , now I have to manualy insert the next number. I set Adobe printer as default Actualy I write a macro Range("F29").Select ActiveSheet.PivotTables("pivot").PivotFields("Area ").CurrentPage = "(All)" Selection.Sort Key1:="R29C6", Order1:=xlDescending, Type:=xlSortValues, OrderCustom:=1, Orientation:=xlTopToBottom ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("F29").Select ActiveSheet.PivotTables("pivot").PivotFields("Area ").CurrentPage = "Germany" Selection.Sort Key1:="R29C6", Order1:=xlDescending, Type:=xlSortValues, OrderCustom:=1, Orientation:=xlTopToBottom ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("F29").Select ActiveSheet.PivotTables("pivot").PivotFields("Area ").CurrentPage = "Italy" Selection.Sort Key1:="R29C6", Order1:=xlDescending, Type:=xlSortValues, OrderCustom:=1, Orientation:=xlTopToBottom ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True like this 150 destination + combination of 5 which means 750 pages What I want to make it automated so that it will not ask to insert file name & genrate next number as file name. Hope I make it clear to you. Thanks in Advance for any help. Sanjeev |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
the option "sent to" mail recipient is not available in excel 200 | Excel Discussion (Misc queries) | |||
Urgent Help Required on Excel Macro Problem | Excel Discussion (Misc queries) | |||
Filter option | Excel Discussion (Misc queries) | |||
excel page breaks - urgent help required | Excel Worksheet Functions | |||
Urgent - How to fix grayed out option under Tools|Options|Chart? | Excel Discussion (Misc queries) |