Question

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

Answer 1

设置打印区域，这会将您的打印区域从A1设置为列＆＃34; D＆＃34;

中的最后一个单元格

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

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

1 个答案: