Программно сохранить всю книгу в один файл PDF

[uralshans]

Добрый день!!
Подскажите пожалуйста, как можно сохранить всю книгу целиком в формате pdf?
А лучше выбранные листы в одном файле pdf..

Составляю 3 документа в одной книге. Забиваю всё на одном листе, а на другие оставшиеся 2 разносится само. Но еще есть листы со всякими настройками, + макросы.. все 3 файлика (листа) это один пакет документов, который в дальнейшем нужно еще и напечатать. Обязательно нужно хранить эти 3 документа (листа) в электронном виде. Я думаю что наилучший вариант (по удобству) это хранить их в pdf формате, но только в одной файле pdf.
Помогите осуществить задуманное..Заранее благодарен!!

п.с. формат pdf нужен потому что в книге есть макрос "Сумма прописью", если сохранять книгу без поддержки макросов, то естественно сумма прописью пропадает.

[uralshans]

Сохранить отдельный лист в pdf можно так..
Но как сохранить сразу несколько (выбранных листов; можно даже по дефолту выбрать какие листы будут сохраняться) в один файл pdf?

ChDir "K:\Списание запчастей"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "K:\Списание запчастей\Заказ-Наряд No.000139.pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

Конечно интересен вариант с названием сохраняемого файла pdf. Допустим чтоб название бралось из Листа "Заказ-Наряд" ячейки С1. В ячейке С1 прописываю номер заказ-наряда.

[uralshans]

Сохранить только один лист из книги в формате pdf с названием из ячейки получилось.

ChDir "K:\Списание запчастей"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        [B8] & "_" & [C1] & "_" & [E1], Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

Помогите сохранить несколько листов в этот один файл pdf..

[uralshans]

Справился!! Вообщем получилось так:
Скрыл листы с настройками и прочим прочим..
Записал макрос с сохранением всей книги в один файл pdf.
Название файла этого склеил из 3-х ячеек.
Всё ОК и всё нравится.... но это дома, а работаю с файлом на разных компьютерах. И возможно возникнет проблема с директорией сохранения файла.
Здесь он у нас сохраняется на флешку "K:\Списание запчастей"; на другом компьютере таже флешка может быть и не "К", а "G" например..

Что прописать, чтоб файл сохранялся в папку где находится сама книга?

Вот последнее что получилось

    ChDir "K:\Списание запчастей"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        [B8] & "_" & [C1] & "_" & [D1], Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

[EducatedFool]

ActiveSheet.ExportAsFixedFormat применяется не только к выделенному листу, а ко всем выделенным листам.

Запишите макрос выделения нескольких листов, - получится ещё одна строка кода.

Пример макроса:

Sub Макрос1()
    ' в текущую папку сохраняем PDF
    Filename$ = ThisWorkbook.Path & "\" & [B8] & "_" & [C1] & "_" & [D1] & ".pdf"

    Worksheets("Лист1").Select    ' выделяем первый лист
    Worksheets("Лист2").Select False    ' добавляем к выделению другой лист
    Worksheets("Лист4").Select False    ' и ещё один

    ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename$
End Sub

[kuklp]

Разве не очевидно? Сбросить все нужные листы в один и экспортировать. Общий лист удалить.

[kuklp]

Игорь, а при таком подходе, в PDF какое-то разделение на листы сохраняется, или все так же идет одним последовательным потоком?

[EducatedFool]

Сообщение от kuklp

Игорь, а при таком подходе, в PDF какое-то разделение на листы сохраняется, или все так же идет одним последовательным потоком?

Экспорт в ПДФ, - по сути, есть распечатка
Т.е. результат точно такой же, как при печати нескольких выделенных листов (сначала первый лист, со следующей страницы - следующий, и т.д.)

[uralshans]

EducatedFool
Огромное спасибо!! Получилось!!

[kuklp]

Ок. Спасибо. Я так и думал. Просто самому никогда не надобилось.