我正在尝试使用vba将Excel中的当前工作表另存为PDF . 代码正在运行,但正在发布的PDF是整个工作表(其中包含几百个空白行和列,超过了我的文本 . 在此链接1,有一个关于如何通过"Options"菜单执行此操作的教程在“另存为”窗口中 . 我希望我的代码能够为我执行此操作,并选择仅包含文本的范围 . 此导出的工作表将被许多人用于创建PDF,并且大小会发生变化这个工作表中的数据 . 这解释了我想在文件导出时自动通过代码执行此操作的原因 . 任何帮助都会很棒 . 谢谢!
设置打印区域,这会将打印区域从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
1 回答
设置打印区域,这会将打印区域从A1设置为“D”列中的最后一个单元格