从多个表，并出口到一个单一的PDF

我读这个解决方案，张从另一个岗位相结合，一个PDF选择范围：从多个表，并出口到一个单一的PDF

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

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

但是对我来说，打印出整个页面。当我组合多张纸时，如何选择要打印的每张纸的范围。

，如果我每个表导出到一个单一的PDF每个但我不知道如何，如果我把它们结合在一起，我可以做到这一点。

提前非常感谢

来源

2014-02-06 MerC

'1'创建一个新的片材。 '2'将不同的表格中的相关范围导出到这张表格'3'中创建pdf。 –

是否有可能添加的范围之间的分页符，如果我做这种方式？ – MerC

是的。这是可能 –

这是可能通过创建一个片阵列，然后通过每个片材进行导航来选择期望的范围。一旦完成利用Selection.ExportAsFixedFormat类型：= 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

来源

2015-11-07 08:28:53

从多个表，并出口到一个单一的PDF

回答

相关问题