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