如何将打印区域设置为行和列中的最后一个可见文本？

Question

工作表有 100 行和大约 150 列。

在任何给定时间，其中只有 20/40 是可见的。

CTRL+UP 表示行 = 100（行）

Ctrl+LEFT = CS（列）

有没有办法让 VBA 只为可见的 rows.columns 设置打印区域？

我无法弄清楚动态名称范围打印区域功能，但提前谢谢你。

Worksheets("Sheet1").PageSetup.PrintArea = Range("B:H").Address

这是一个有效的相邻设置打印区域，范围将是 A1：到具有可见数据的最后一行/列。

提前谢谢你。

Answer 1

试试这个：

看看我如何找到最后一列和最后一行，然后构建范围

Public Sub PrintRange()
    
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    
    Dim lastRow As Long
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
    
    Dim lastColumn As Long
    lastColumn = targetSheet.Cells(1, targetSheet.Columns.Count).End(xlToLeft).Column
    
    Dim printRange As Range
    Set printRange = targetSheet.Range("A1", targetSheet.Cells(lastRow, lastColumn))
    
    targetSheet.PageSetup.PrintArea = printRange.Address
    
End Sub