Question

我有一个打印区域，我需要找到打印区域中的最后一行。任何帮助表示赞赏。

谢谢，这是我设置的打印区域。

<xsl:for-each select="REFERENCES/*[starts-with(local-name(), 'SIM_')]">
  <xsl:value-of select="$CodigoSim"/>
  ...
</xsl:for-each>

Answer 1

你可以使用这个功能：

Function PrintAreaLastRow() As Long
    With Range(ActiveSheet.PageSetup.PrintArea)
        PrintAreaLastRow = .Rows(.Rows.count).row
    End With
End Function

Answer 2

您可以设置范围，然后只计算范围内的行：

Sub t()
Dim printRng As Range, lastRow As Long

Set printRng = Range("A1:F100")
ActiveSheet.PageSetup.PrintArea = printRng
lastRow = printRng.Row + printRng.Rows.Count - 1
Debug.Print "Last row of print area is: " & lastRow
End Sub

如何找到打印区域的最后一行？

2 个答案: