Question

我想在四个选项卡中将数据透视表打印为一个pdf。标签应按代码中的顺序排列，但将另存为两个拆分的PDF

大家好，我想在四个选项卡中将数据透视表打印为一个pdf。选项卡应按代码所示顺序排列。我已经为它编写了以下代码。我的问题是它正在将“第一选择列表”打印为单独的pdf，接下来的三个选项卡作为一个单独的pdf打印。换句话说，它提示两个单独的“另存为PDF”对话框。我的代码有什么问题，我们将不胜感激。感谢。

P.S：页脚代码可以正常工作。

Private Sub CommandButton3_Click()

Application.ScreenUpdating = False

CDSID = Environ("USERNAME")


For Each ws In Worksheets


If ws.Name = "1st Pick List" Or ws.Name = "Part Comments" Or ws.Name = "Material Comments" Or ws.Name = "Blank Process Comments" Then
ws.Activate

With ActiveSheet
   .PageSetup.PrintArea = .PivotTables(1).TableRange2.Address
End With


With ActiveSheet.PageSetup

    ActiveSheet.PageSetup.CenterFooter = "PRINTED BY:" & CDSID


End With


End If
Next


Worksheets(Array("1st Pick List", "Part_Comments", "Material_Comments", "Blank_Process_Comments")).PrintOut



End Sub

在一个PDF输出中的多个选项卡中打印数据透视表

0 个答案: