Печать в *.pdf выбранных листов

[Hugo121]

Проверьте.
Использовано 6 ячеек столбца B, сохраняются файлы как "C:\Лист" & i & ".pdf"

Option Explicit

Sub TEST()
Dim i&
For i = 1 To 6
If Cells(i, 2).Value = True Then
    Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Лист" & i & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        From:=1, To:=1, OpenAfterPublish:=False
End If
Next
End Sub

[artsanox]

В вашем случае, я думаю что печать на виртуальный принтер Adobe PDF самый оптимальный вариант. Не экспорт в PDF и не сохранить как PDF а именно печать. Почему? Потому что при печати вы можете указать какие листы печатать и какое количество. При экспорте в PDF у вас будут ограниченные возможности с выбором копий, листов, путей и т.д. и т.п., определенные стандартными возможностями MO Excel. По этому то, что я вам скинул это оптимальный вариант для вас при ваших запросах.

Что касается названия файла по имени листа, подсказать ничего не могу, ибо не такой уж профи, т.е. как бы наработки есть, но сырые. Подождите, может специалисты подтянутся, (я имею в виду специ в VBA) и помогут вам оптимизировать код печати в PDF.

P.S. Печать в PDF по моему собственному мнению, (т.е. ИМХО) всегда справедливей экспорта в PDF потому, что там у вас больше возможностей выбора настроек, или даже у вас там просто есть выбор, в отличии от экспорта.