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

我试图保存和导出Excel中的当前工作表作为PDF使用VBA。 该代码正在工作，但是正在发布的PDF是整个工作表（其中包括几百个空白行和列，通过我有文本的地方。在这个链接1 ，有一个教程，如何通过“选项“菜单中的”另存为“窗口，我希望我的代码能够为我做这个，并且select只包含文本的范围，这个导出的工作表将被很多人用来创buildPDF文件，这个工作表中的数据大小，这解释了我希望通过代码自动执行的原因，因为文件被导出，任何帮助都会很好，谢谢！

Answer 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