Is it possible from Excel
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 |
Would you "try" adopting this please?
I did not test it myself. set your printer first for i = 1 to 750 .. .. .. ActiveWindow.SelectedSheets.PrintOut printtofile:=True, prtofilename:=i & ".pdf" next i "Sanjeev" wrote: 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 |
It is not working properly as the pdf file is shown as corrupted & not get
open. anyway thanks for help "PY & Associates" wrote: Would you "try" adopting this please? I did not test it myself. set your printer first for i = 1 to 750 . . . ActiveWindow.SelectedSheets.PrintOut printtofile:=True, prtofilename:=i & ".pdf" next i "Sanjeev" wrote: 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 |
All times are GMT +1. The time now is 07:00 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com