Как распечатать первые вкладки в нескольких файлах разом.

Автор ivan-11, 05.07.2011, 14:11

« назад - далее »

ivan-11

В папке около 200х файлов, сохраненные на второй вкладке.
Если выделить все файлы и нажать печать - печатается та вкладка на которой файл был закрыт и сохранен.
Вопрос, как напечатать, первые вкладки в файлах? И можно ли как-либо?

Anton Stasenko

Я нашел макрос, который печатает 2 страницу файлов, но не понял, что в нем надо доработать, чтобы печатались все кнгиги - может кто подскажет

Sub PrintWorkbooks()
    Dim sCurFile As String
    Dim sPath As String

    'Get the path
    sPath = InputBox("Starting path?", "PrintWorkbooks")
    If sPath <> "" Then
        On Error Resume Next
        Application.ScreenUpdating = False
        If Right(sPath, 1) <> "\" Then
            sPath = sPath & "\"
        End If
        sCurFile = Dir(sPath & "*.xls", vbNormal)
        Do While Len(sCurFile) <> 0
            Workbooks.Open sPath & sCurFile, , True
            With Workbooks(sCurFile)
                .Worksheets(2).PrintOut
                .Close SaveChanges:=False
            End With
            sCurFile = Dir
            DoEvents
        Loop
        Application.ScreenUpdating = True
        On Error GoTo 0
    End If
End Sub