Необходимо макросом распечатать выбранные файлы начав со второго листа (первый не печатать)
Тему поднял и Здесь
[vba]Код
'вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="All files (*.*), *.*", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Не выбрано ни одного файла!"
Exit Sub
End If
'проходим по всем выбранным файлам
x = 1
While x <= UBound(FilesToOpen)
Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
'importWB.Worksheets(Array(2, 8)).Select
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
For Each ws In importWB.Worksheets
???????
Next ws
x = x + 1
Wend
[/vba]