首页 文章

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

提问于
浏览
0

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

1 回答

  • 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
    

相关问题