Excel“打印为 PDF”创建多个文件

Excel“打印为 PDF”创建多个文件

我正在尝试将工作簿打印为 PDF,但出于某种原因,它试图保存到多个文件。大约 10 页需要保存为每个文件 2-3 页,然后其余部分(另外 15 页)保存到剩余文件中,总共约 6 个独立文件。Adobe 和 CutePDF Writer 都会发生这种情况。

如何将整个工作簿打印到一个文件中?

答案1

我理解您尝试打印整个工作簿而不是仅打印一个工作表(见屏幕截图)。如果是这种情况,则默认的 Excel 行为是将每个工作表分别发送到打印机。这会导致 PDF 编写器创建一个单独的文件。

Excel - 打印整个工作簿

解决方案很简单,我借鉴了本网站- 谢谢海伦布拉德利! 按着这些次序:

  • 选择所有工作表(右键单击任意工作表选项卡,然后单击“选择所有工作表”
  • 选择“文件”、“打印...”和“将活动工作表打印”为 PDF。

由于某些神奇的原因,Excel 现在将所有输出附加到打印机,而不是单独发送每个工作表。这会创建一个包含所有工作表的 PDF 文件。

答案2

我遇到了类似的问题,我发现这是由于每个页面的 DPI 设置不同造成的。

我按照这些说明进行操作并且效果很好:

为了为每个单独的页面设置 DPI 值,您必须遵循以下步骤:

  1. 打开 Excel 工作簿
  2. 选择要设置 DPI 的纸张
  3. 在 Microsoft Excel 2007/2010/2013 中,转到“页面布局”,然后单击“页面设置”对话框的展开按钮(对于 Microsoft Excel 2003 或更早版本,转到“文件”->“页面设置”)
  4. 在“打印质量”部分输入您希望文档具有的 DPI 值(请注意,这也是您必须为每张纸设置的 DPI 值),然后按“确定”

来源将整个 Excel 工作簿打印为单个 PDF 文件

答案3

要为每个工作表创建单独的 PDf 文件,并指定工作表名称,您需要创建一个宏。为此

  1. Alt+F11
  2. 主菜单 > 插入模块
  3. 插入以下代码
Sub SaveAsPDF()
    Dim CurWorksheet As Worksheet
    Dim FileName As String
    For Each CurWorksheet In ActiveWorkbook.Worksheets
        FileName = Application.ActiveWorkbook.Path
        FileName = FileName & "\"
        FileName = FileName & CurWorksheet.Name
        CurWorksheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName, Quality:=xlQualityStandard,    OpenAfterPublish:=False, IgnorePrintAreas:=False
    Next CurWorksheet
End Sub
  1. 关闭窗口

  2. 转到“开发人员”选项卡并按“宏”

  3. 运行 SaveAsPDF

答案4

对我而言唯一有用的方法是另存为,然后选择类型为 PDF,然后在选项按钮上选择“整个工作簿”。

相关内容