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