設置打印區域直到最后一行

Question

我的工作簿中有300個不同的工作表，並且它們的長度都不同。 我需要全部打印出來。 我想使用VBA設置打印區域，直到使用范圍的最后一行，然后打印它們，因為它們都不同。

列相同，直到“ I”列和行變化

請幫忙 ！！

Answer 1

我相信以下內容將幫助您實現所需的目標，它將遍歷所有工作表並在列I上找到帶有值的最后一行，然后將打印區域設置為：

Sub PrintArea()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
'loop through all sheets in workbook
    LastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    'get the last row with data on Column I
    ws.PageSetup.PrintArea = "A1:I" & LastRow
    'set print area from A1 to last row on column I
Next ws
End Sub

Answer 2

您可以循環瀏覽紙張並設置打印區域

Sub DoIt()
    Dim sh As Worksheet
    Dim LstRw As Long, Rng As Range

    For Each sh In Sheets
        With sh
            LstRw = .Cells(.Rows.Count, "I").End(xlUp).Row
            Set Rng = .Range("A1:I" & LstRw)
            .PageSetup.PrintArea = Rng.Address
        End With
    Next sh
End Sub