printing charts from several workbooks
 

I need to create PDF file from several charts stored in separate workbooks. I
have created following procedu

==============================================

Sub printsupplycharts()

Windows("INT 25104kpi overdue orders.xls").Activate
Sheets("Chart1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Windows("25104kpi OD.xls").Activate
Sheets("Supplier Chart").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Windows("INT 25104kpi summary.xls").Activate
Sheets(Array("PRP by Buyer", "Total PRP")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True



Windows("INT 47211kpi overdue orders.xls").Activate
Sheets("Chart1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Windows("47211kpi OD.xls").Activate
Sheets("Supplier Chart").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Windows("INT 47211kpi summary.xls").Activate
Sheets(Array("PRP by Buyer", "Total PRP")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True



Windows("INT 70601kpi overdue orders.xls").Activate
Sheets("Chart1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Windows("70601kpi OD.xls").Activate
Sheets("Supplier Chart").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Windows("INT 70601kpi summary.xls").Activate
Sheets(Array("PRP by Buyer", "Total PRP")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub
==================================

Do I have to open the files first or there is any way to print chart without
opening excel workbook ?

Each workbook charts are stored in separate PDF. It will be better to copy
all charts to one workbook and then print just once to create one PDF file ?
If yes, how ?

Regards,

Tony