Generally do something like this pseudocode.

bkList = Array("Bk1.xls", "Bk2.xls", "Bk3.xls", _
"Bk4.xls", "Bk5.xls", "Bk6.xls", "Bk7.xls")
for i = lbound(bkList) to ubound(bklist)
set wkbk = workbooks.Open(blList(i))
if i = lbound(bkList) then
wkbk.Sheets.copy
set wkbk1 = ActiveWorkbook
else
wkbk.Sheets.Copy After:=wkbk1.Sheets(wkbk1.sheets.count)
end if
Next
' now delete sheets you don't want
wkbk1.Sheets.Select
activewindows.SelectedSheets.Printout

--
Regards,
Tom Ogilvy


71marco71 wrote in message
...
Hello friends
Every month I have to make a report for my boss. I have to print a lot
of tables and charts contained in 7 workbook. Is it possible to make a
macro that join all workbooks in one and print all sheets contained in
the new workbook? the new workbook doesn't have to contain all sheets
of 7 workbooks because some sheets are not need and i don't print
them.
I also have to number the pages before printing.
Thanks in advance for your help


---
Message posted from http://www.ExcelForum.com/