在VBA中将不同选项卡上的Excel范围导出为PDF

sdnqo3pr 于 2023-08-08 发布在其他

关注(0)|答案(1)|浏览(133)

我已经尝试了下面的方法，但是它将我在Sheet 1中指定的范围应用到所有其他工作表。我也试过对每个工作表使用ActiveSheet.UsedRange.Select，但这会包含我不想在PDF中显示的无关单元格。有人有什么想法吗？我在Windows上运行Office 365。

Sub SaveRangesAsPDF()

   Sheets("Sheet1").Activate
   ActiveSheet.Range("A1:L42").Select
   Sheets("Sheet2").Activate
   ActiveSheet.Range("A1:G35").Select
  

   ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select
   Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      ThisWorkbook.Worksheets("Sheet3").Range("A2").Value, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      True
End Sub

字符串
非常感谢！

excel

来源：https://stackoverflow.com/questions/76730756/exporting-excel-ranges-on-different-tabs-as-a-pdf-in-vba

1条答案

按热度按时间

v9tzhpje1#

没有在多张图纸上打印所选内容的选项。您可以选择以下选项之一：
1.在单个工作表上进行选择。
1.活动工作表-考虑打印区域或不考虑打印区域的活动工作表或选定工作表。
1.整个工作簿-考虑打印区域或不考虑打印区域的所有工作表。
您的解决方案是在每张纸上定义打印区域并打印选定的纸。

Sheet1.PageSetup.PrintArea = "$A$1:$L$42"
Sheet2.PageSetup.PrintArea = "$A$1:$G$35"
Sheets(Array("Sheet1", "Sheet2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  ThisWorkbook.Worksheets("Sheet3").Range("A2").Value, Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
  True

字符串

赞(0）回复(0）举报 2023-08-08

我来回答

在VBA中将不同选项卡上的Excel范围导出为PDF

1条答案

相关问题

热门标签

最新问答