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

我有一个8张工作簿，我打算把它们全部导出到一个PDF文件中，但是一些工作表只包含一个页面，其中一些页面打印2或3页。 如何使用VBA编写它？ 我试图找出一些想法，但是所有的例子都解释了多张纸打印时没有考虑每张纸上的页数的情况，这是可能的吗？ 谢谢。

Answer 1

如果要将整个工作簿和所有页面打印到一个PDF中，请尝试：

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

Answer 2

干得好。 testing和工作。

 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

我已经控制了每张纸，从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年）的一些依赖，因为我无法检查它。 感谢所有的访问和帮助。