Печать сводной таблицы на нескольких вкладках в одном выводе PDF - PullRequest
Новая
       16

Печать сводной таблицы на нескольких вкладках в одном выводе PDF

0 голосов
/ 18 июня 2019

Я хочу напечатать сводные таблицы на четырех вкладках в виде одного файла PDF.Вкладки должны быть в порядке, как показано в коде, но они сохраняются в виде двух разделенных PDF-файлов

Привет всем. Я хочу напечатать сводные таблицы на четырех вкладках в виде одного PDF-файла.Вкладки должны быть в порядке, как показано в коде.Я написал код ниже для него.У меня проблема в том, что он печатает «первый список выбора» в виде отдельного PDF, а следующие три вкладки - в виде отдельного PDF.Другими словами, он вызывает два отдельных диалога «Сохранить как PDF».Что не так в моих кодах, любая помощь будет принята с благодарностью. Спасибо.

PS: Коды нижнего колонтитула работает отлично. 

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
...