将特定范围的单元格导出为 PDF - VBA答案

【问题标题】：Exporting Specific Range of Cells to PDF - VBA将特定范围的单元格导出为 PDF - VBA
【发布时间】：2016-07-21 15:54:50
【问题描述】：

我正在尝试使用 vba 将 Excel 中的当前工作表保存并导出为 PDF。该代码正在运行，但是正在发布的 PDF 是整个工作表（其中包括我有文本的几百个空白行和列。在此链接1，有一个关于如何通过“另存为”窗口中的“选项”菜单。我希望我的代码为我执行此操作，并选择仅包含我有文本的范围。正在导出的此工作表将被许多人用于创建 PDF，并进行更改在此工作表中的数据大小中。这解释了我希望在导出文件时通过代码自动执行此操作的原因。任何帮助都会很棒。谢谢！

【问题讨论】：

PDF 基于您的打印范围，请在 PDF 之前设置您的打印范围
@Davesexcel 打印范围会改变。数据的大小会发生变化，比以前大或小几倍。
显示现有代码是在这里获得帮助的最快方式。

标签： vba excel pdf

【解决方案1】：

设置打印区域，这会将您的打印区域从 A1 设置为“D”列中的最后一个单元格

Sub Set_PrintRnag()
    Dim LstRw As Long
    Dim Rng As Range
    LstRw = Cells(Rows.Count, "D").End(xlUp).Row
    Set Rng = Range("A1:D" & LstRw)
    ActiveSheet.PageSetup.PrintArea = Rng.Address

End Sub

【讨论】：