Страницы: 1
RSS
Печать определенных листов из выбранных книг., Печать определенных листов из выбранных книг.
 
Нужно выбрать файлы и распечатать к примеру начиная только со второго листа (первый не печатать).
Код
 'вызываем диалог выбора файлов для импорта
    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
Изменено: skais675 - 24.02.2017 17:01:12
 
Цитата
skais675 написал: распечатать к примеру начиная только со второго листа (первый не печатать)
Про какой лист речь? Печатный или рабочий?

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
JayBhagavan Sheet
 
Код
for i = 2 to importWB.Sheets.Count
' код вывода на печать итого листа
Next i

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
Страницы: 1
Наверх