ExportAsFixedFormat вырезать вторую страницу - PullRequest
Новая
       8

ExportAsFixedFormat вырезать вторую страницу

0 голосов
/ 03 октября 2018

Я сохраняю листы книги Excel в формате PDF.Первый лист 2-го PDF («#Occupants») составляет 2 страницы при печати.Однако файл .pdf обрезает вторую страницу.

Что мне здесь не хватает? 

Sub SavePDF()
    saveCensus = "\Census " & Format(Now(), "mm-dd-yy") & ".pdf"
    Sheets(Array("A BLDG", "B BLDG", "C BLDG", "SUMMARY")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & saveCensus, IgnorePrintAreas:=False

    saveSnapshot = "\Snapshot " & Format(Now(), "mm-dd-yy") & ".pdf"
    Sheets(Array("#Occupants", "Snapshot")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & saveSnapshot, IgnorePrintAreas:=False
End Sub
...