在Excel中输出范围对象数据为PDF文件的工作表，我希望将每个范围另存为单独的pdf页？
在Excel中输出范围对象数据为PDF文件的工作表，我希望将每个范围另存为单独的pdf页？
提问于 2021-06-07 14:52:37
我想从不同页面上的多个范围创建PDF。
例如：
PDF的第一页有前5列活动工作表和6-10列。因此，范围A1:E10 && F1:J10
PDF的第2页有前5列活动工作表和第10-15列。因此，范围从A1:E10 && K1:O10
第3页的范围为A1:E10和P1:T10
以此类推..代码
Private Sub cmdPrintJul_Click()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets("YTD")
ws1.PageSetup.PrintArea = "A1:K48"
Set ws2 = Worksheets("July")
ws2.PageSetup.PrintArea = "A1:G45"
Worksheets(Array(ws1.Name, ws2.Name)).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="e:\saved\July2016.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ws1.Activate
Range("A1").Select
End Sub这是否跨越多个工作表，我需要它在单个工作表上，但将多个范围连接在一起。设置页面可能是通过PageSize完成的，选择一个页面将每个组合的范围拆分为它自己的页面。
我尝试过：
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets("Celo leto 2019")
ws1.PageSetup.printArea = "B2:K39"
Set ws2 = Worksheets("Celo leto 2019")
ws2.PageSetup.printArea = "AQ2:BS39"
Worksheets(Array(ws1.Name, ws2.Name)).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strPathFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ws1.Activate
Range("A1").Select但它只导出ws2范围。
回答 1
Stack Overflow用户
发布于 2021-06-07 21:34:29
在示例2中，您似乎正在尝试打印同一工作表中的标题列。我假设您希望在每一页上重复列b到k。(示例1显示为两个工作表)尝试添加列标题
Dim ws1 As Worksheet
Set ws1 = Worksheets("Celo leto 2019")
With ws1
.PageSetup.PrintTitleColumns = "$b:$k"
.PageSetup.PrintArea = "$aq2:$bs39"
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strPathFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
ws1.Activate
Range("A1").Select页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/67867141
复制相关文章
相似问题
腾讯云开发者
