如何在一個文件中打印到 pdf 分隔的 excel 頁面？

Question

我制作了這個簡單的代碼，但這會創建 4 個 pdfs 文件，而不僅僅是一個，你能幫我嗎？

Sub PrintToPageX()
Worksheets("Anexo Financeiro").Select
Application.ActivePrinter = "Microsoft Print to PDF on Ne02:"
ActiveWindow.SelectedSheets.PrintOut from:=1, to:=4
If Worksheets("Anexo Financeiro").Range("p205") = 1 Then ThisWorkbook.PrintOut from:=5, to:=5
If Worksheets("Anexo Financeiro").Range("n272") = 1 Then ThisWorkbook.PrintOut from:=6, to:=6
ActiveWindow.SelectedSheets.PrintOut from:=7, to:=7
End Sub

Answer 1

假設Worksheets("Anexo Financeiro")與ActiveWindow.SelectedSheets相同，即與ThisWorkbook.ActiveSheet相同：

我創建了一個If 語句，用於檢查文檔是否可以一起打印或者是否需要分開打印。

Sub PrintToPageX()
    Application.ActivePrinter = "Microsoft Print To PDF on Ne02:"
    With Worksheets("Anexo Financeiro")
        If .Range("p205") = 1 And .Range("n272") = 1 Then
            .PrintOut From:=1, To:=7
        Else
            .PrintOut From:=1, To:=4
            If .Range("p205") = 1 Then .PrintOut From:=5, To:=5
            If .Range("n272") = 1 Then .PrintOut From:=6, To:=6
            .PrintOut From:=7, To:=7
        End If
    End With
End Sub