VBA将活动工作表上的可见单元格另存为PDF

Sub ExportVisibleCellsToPDF()
    ' 设置PDF文件路径和文件名
    Dim filePath As String
    filePath = "C:\path\to\save\file.pdf"
    
    ' 创建一个新的工作簿，并将当前工作表复制到其中
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Add
    ThisWorkbook.ActiveSheet.Copy Before:=newWorkbook.Sheets(1)
    
    ' 隐藏新工作簿中的不可见单元格
    Dim visibleRange As Range
    Set visibleRange = newWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
    newWorkbook.ActiveSheet.Rows.Hidden = True
    visibleRange.EntireRow.Hidden = False
    
    ' 将新工作簿另存为PDF文件
    newWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard
    
    ' 关闭新工作簿并释放资源
    newWorkbook.Close SaveChanges:=False
    Set newWorkbook = Nothing
End Sub