利用VBA将表格保存为PDF文件

表格保存为PDF

在VBA编程处理数据时，经常会需要将处理完成的数据或是报表保存输出为PDF文件，以便进行传播。下面的函数即可以实现将指定表的内容保存为PDF文件。
保存文件前，需要确认表格内容已经是排版完成的内容，此函数没有排版的功能，具体请大家自行测试。

函数代码

Function SaveAsPDF(Optional FlName As String = "当前文件名")
On Error GoTo err
If FlName = "当前文件名" Then
    FlName = ActiveWorkbook.FullName
    FlName = Left(FlName,