Question

我将Excel工作簿的工作表另存为pdf。打印时，第二张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

ExportAsFixedFormat切断第二页

0 个答案: