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 Type：= xlTypePDF生成pdf

子测试（）示例代码：

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

从多个工作表中选择范围并导出为单个pdf

1 个答案: