Я пытался найти решение везде, но я только нахожу функции для экспорта нескольких листов в одном PDF. Я хочу экспортировать тот же лист и тот же диапазон, который изменяется с помощью функции, в один файл PDF.
Например, в следующем коде есть цикл, который изменяет значения диапазона 3раз. Как я могу сохранить один файл PDF, который содержит диапазон в трех экземплярах и изменен?
Я пытался использовать массивы, но я не знаю, как реализовать его в этом конкретном случае.
Dim i As Long
For i = 1 To 3
Call function_to_change_values 'this function change the values of range A1 to D5
'config printing:
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$5" 'print area
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = 77
.Draft = False
.PaperSize = xlPaperA4
End With
'create PDF:
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\myfile.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next i
Большое спасибо за помощь