如何在VBA中仅将可见的列和行打印/保存到XLSX文件？

Sub PrintVisibleRowsAndColumns()
    Dim ws As Worksheet
    Dim rng As Range
    Dim visibleRows As Range
    Dim visibleColumns As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取可见的行
    Set visibleRows = ws.Rows.SpecialCells(xlCellTypeVisible)
    
    ' 获取可见的列
    Set visibleColumns = ws.Columns.SpecialCells(xlCellTypeVisible)
    
    ' 将可见的行和列合并为一个范围
    Set rng = Intersect(visibleRows, visibleColumns)
    
    ' 打印可见的行和列
    rng.PrintOut
    
    ' 保存可见的行和列到XLSX文件
    rng.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs "C:\Path\To\Save\File.xlsx", FileFormat:=51
    Application.DisplayAlerts = True
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
End Sub