如何修改VBA脚本将循环生成的多页工作表导出为单个PDF？

当然可行！你的核心问题是原来的代码每次循环都单独打印/导出单页PDF，我们只需要利用Excel VBA的ExportAsFixedFormat方法的追加模式，就能把所有生成的页面合并到同一个PDF文件中。

修改思路 #

1. 让用户选择PDF的保存路径（替代直接打印）；
2. 循环生成每页内容时，第一页创建新PDF，后续页面追加到已有PDF末尾；
3. 保留原有的页码范围输入逻辑，确保功能兼容。

修改后的完整代码 #

Private Sub CommandButton6_Click()

    Dim Start
    Dim Ende
    Dim X1 As Integer
    
    Dim ST1 As Integer
    Dim End1 As Integer
    
    Dim pdfPath As String
    Dim MSGTitel As String
    MSGTitel = "PDF导出设置" ' 可根据需要修改标题

    X1 = 0
    
    Start = InputBox("Auf welcher Seite soll der Ausdruck beginnen ?", MSGTitel)
    
    If Start <> "" Then
        If IsNumeric(Start) = True Then
        
        Ende = InputBox("Bis zu welcher Seite soll gedruckt werden ?", MSGTitel)
        
            If Ende <> "" Then
                If IsNumeric(Ende) = True Then
                                    
                    If Start > Ende Then
                         ST1 = Ende
                         End1 = Start
                    Else
                         ST1 = Start
                        End1 = Ende
                    End If
                    
                    ' 弹出对话框让用户选择PDF保存位置
                    pdfPath = Application.GetSaveAsFilename( _
                        FileFilter:="PDF 文件 (*.pdf), *.pdf", _
                        Title:="选择PDF保存路径")
                    
                    ' 如果用户取消保存对话框，直接退出
                    If pdfPath = "False" Then Exit Sub
                                    
                    Do Until ST1 + X1 = End1 + 1
                        
                        ' 生成当前页的内容（和原逻辑一致）
                        Tabelle6.Cells(11, 2).Value = (Val(ST1 + X1) * 20) - 19
                        Label1.Caption = Val(ST1 + X1)
                        Tabelle6.Cells(6, 31).Value = Label1.Caption
                        
                        ' 导出当前页到PDF：第一页创建新文件，后续页追加
                        Tabelle6.ExportAsFixedFormat _
                            Type:=xlTypePDF, _
                            Filename:=pdfPath, _
                            Quality:=xlQualityStandard, _
                            IncludeDocProperties:=True, _
                            IgnorePrintAreas:=False, _
                            Append:= (X1 > 0) ' 核心：X1=0时创建新PDF，X1>0时追加
                            
                        X1 = X1 + 1

                    Loop
                    
                    ' 导出完成后提示用户
                    MsgBox "PDF已成功保存至：" & vbCrLf & pdfPath, vbInformation, MSGTitel
                        
                End If
            End If
        End If
    End If
End Sub

关键细节说明 #

• Append参数：这是实现多页合并的核心。当X1=0（第一页）时，Append:=False会创建新的PDF文件；后续循环中X1>0，Append:=True会把当前生成的页面追加到已有PDF的末尾，最终得到包含所有指定页码的单个PDF。
• GetSaveAsFilename：让用户自主选择保存路径，避免硬编码路径带来的灵活性问题，同时Excel会自动处理文件覆盖的提示。
• 保留原有逻辑：原有的页码范围输入、内容生成逻辑完全保留，只是把PrintOut替换为PDF导出，确保功能一致性。

注意事项 #

• 确保Tabelle6是工作表的代码名称（在VBA编辑器的工程窗口中显示的名称），如果是工作表的显示名称，需要改为Sheets("你的工作表名称")。
• 如果你的工作表设置了打印区域，IgnorePrintAreas:=False会沿用该打印区域，和原打印行为一致；如果不需要打印区域，可改为True。

内容的提问来源于stack exchange，提问作者Max