如何使用 VBA 将具有选定页面范围的多页打印到单个 PDF 文件中

Question

我有一个包含 8 张工作表的工作簿，我打算将它们全部导出到一个 PDF 文件中，但有些工作表只有一页，有些需要打印 2 或 3 页。用VBA怎么写呢？我试图找出一些想法，但所有示例都解释了打印多张纸而不考虑每张纸上的页数的情况，这可能吗？谢谢。

Answer 1

如果您想将整个工作簿和其中的所有页面打印成一个 pdf，请尝试：

Sub Print_Workbook()
    ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "[C:\your_filename_here].pdf"
End Sub

Answer 2

给你。测试和工作。

Sub SaveToPDF()

'This is where we will save the file to a PDF
   Sheets(Array("Sheet1", "Sheet2")).Select
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   "insert file path here\insertfilename.pdf", _
   IgnorePrintAreas:=False, OpenAfterPublish:=True

结束子

Answer 3

我通过菜单选项视图 -> 分页视图控制了每个 Sheet，从 Sheet1...Sheet8，我在右侧通过鼠标打印边距进行了调整和下侧。然后简单的例程打印得很好，没有麻烦：

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2",... "Sheet8")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\my_workbook.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True

目前有效。我不知道 Excel 版本 (2000 - 2013) 是否存在某种依赖性，因为我无法检查它。感谢大家的光临和帮助。

如何使用 VBA 将具有选定页面范围的多页打印到单个 PDF 文件中

How to print multiply sheets with selected page range into single PDF file with VBA

pdf

excel

vba

export-to-pdf