Выберите диапазон из нескольких листов и экспорта в один PDF

Question

Я прочитал это решение объединить листы одного PDF из другого поста:

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"C:\tempo.pdf", Quality:= xlQualityStandard, IncludeDocProperties:=True, _ 
IgnorePrintAreas:=False, OpenAfterPublish:=True 

Однако для меня он печатает весь лист. Как выбрать диапазоны для печати для каждого листа, когда я объединяю несколько листов.

Я могу сделать это, если я экспортирую каждый лист в один PDF каждый, но не знаю, как это сделать, если бы я их совмещал.

Большое спасибо заранее

Answer 1

Это возможно путем создания массива листов, а затем навигации по каждому листу, чтобы выбрать желаемые диапазоны. когда-то сделали использование Selection.ExportAsFixedFormat Тип: = xlTypePDF для создания PDF-файл

Sub Test() Пример кода:

Sub test() 
Sheets(Array("A", "B")).Select 
Sheets("A").Activate 
Range("A1:J32").Select 
Sheets("B").Activate 
Range("A6:J37").Select 
Selection.ExportAsFixedFormat Type:=xlTypePDF, _ 
Filename:=ActiveWorkbook.Path & "\Test.pdf", _ 
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True 
End Sub