Excel: сохранение выбранных рабочих листов в файл PDF

Question

Хотя этот вопрос уже задан, я не нашел для него реального ответа. Мне нужно программно выбирать рабочие листы в книге и сохранять их в PDF-файле БЕЗ создания временной книги и копирования выбранных листов в нее.

Альтернативно, как создать книгу без ее отображения - то есть в памяти, а затем на HD? Это опять-таки может помочь решить первый вопрос ...

Answer 1

Попробуйте это:

Sub SaveToPdf() 

Dim ws As Worksheet 

Dim sfName As String 

For Each ws In Worksheets 

sfName = ws.Name 
sfName = "C:\Misc\" & sfName & ".pdf" 

     ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
     sfName, Quality:= _ 
     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ 
     OpenAfterPublish:=False 

Next ws 


End Sub 

Вы должны были бы убедиться, что ваша область печати на каждый листе были установлены первым я думаю