将多个工作表保存到.pdf

Question

我有一个报告电子表格，该电子表格从数据库中获取一些数据并形成三页摘要报告信息。我想从命令行自动运行电子表格，并让它自动将所有三个报告表另存为PDF文件。最初，我以为我可以在工作表上使用VBA宏通过一系列“以PDF格式打印”来执行此操作，但是这需要一个中间交互对话框来指定输出文件名。然后我发现我可以将其另存为pdf，并且宏可以设置输出文件名。但是，这将创建三个单独的文件，然后我必须稍后在外部将它们放在一起以合并它们。（奇怪的是，另存为pdf只保存一张纸，而其他保存方式似乎可以保存整个工作簿。）是的，有一些工具可以在以后合并这三个文件，但是我想知道是否有一些简单的方法可以使Excel将多个工作表保存为一个pdf文件。我现在通过一系列类似的信息进行打印：ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ...我可以代替一条语句，例如（伪代码）：ThisWorkbook.Sheets(1,2,3,4).ExportAsFixedFormat Type:=xlTypePDF, ...

Answer 1

首先选择要合并的图纸：

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

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

    "C:\tempo.pdf", Quality:= xlQualityStandard, IncludeDocProperties:=True, _

     IgnorePrintAreas:=False, OpenAfterPublish:=True