Страницы: 1
RSS
Сохранить в отдельный PDF файл часть листа, которая не сгруппирована
 
Добрый день

Прощу помочь написать макрос,
чтобы сохранить листы с текущимы названия в текушую папку как отдельные PDF файлы, но чтобы сохранял только ту часть которая не сгруппирована.

Если это невозможно то, как сохранить выделенный диапозон текущего листа с текущим именем
Изменено: ramin911 - 30.08.2019 13:42:51
 
ramin911, здравствуйте

Вот вам кусок кода, который сохраняет в выбранную папку:
Код
Private Sub SaveToPDF()
    With ActiveSheet.Range("A1:I17")
        If Not Application.GetSaveAsFilename(ActiveSheet.Name, "PDF (*.pdf), *.pdf") Then
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=(SAF), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
            'CreateObject("Shell.Application").Explore (Left(SAF, InStrRev(SAF, "\"))) 'раскомментировать строку, если необходимо открывать указанную папку после сохранения
        End If
    End With
End Sub
Что касается части, которая не сгруппирована - было бы неплохо уточнить, это строки с 1 по 17 или те, которые в конце располагаются?
 
С 1 по 17 всегда остается неизменным, а те которое под ним каждый месяц добавляется новый и старый гриппируется, чтобы при печати не было видно
Страницы: 1
Наверх