试图只在有文字的地方打印

Question

我有一个项目将信息粘贴到B19：J1500的范围内。我希望能够打印这些信息，但如果我不需要，我不想打印所有1481行。 （保存树木！）在vba中是否有任何方法让计算机读取最后一行文本的位置，然后只打印到该行？

到目前为止，这是我的代码。

Sub PrintPlease()

With ActiveSheet.PageSetup
    .Zoom = False
    .Orientation = xlPortrait
    .FitToPagesWide = 1
    .FitToPagesTall = 1

    ExecuteExcel4Macro ("PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})")
    If .Zoom < 30 Then
        .Zoom = 50
    Else
        .Zoom = False
        .FitToPagesWide = 1
    End If

End With

Range("B18:J1500").PrintOut Copies:=1, Preview:=True

End Sub

我希望你能帮助我！