Printing data in a changing range

[4lowie]

HI all

I need to create a macro that prints columns A:S down to the last active cell in column A.

There may be data further down the sheet or across the sheet but I need the cut off point to be the last cell with data in column A.

Idea's please?

Thanks Dave

[quekbc]

Are you looking for something like this?

Sub SetPrintArea()
Dim l As Long
    l = Range("A1").EntireColumn.Find("*", Range("A1"), , , , xlPrevious).Row

    With ActiveSheet
        .PageSetup.PrintArea = Range("A1:S" & CStr(l)).Address
        .PrintPreview
    End With
        
End Sub

[alansidman]

Try this:

Sub PrintRange()
    Dim FinalRow As Long

    FinalRow = Cells(Rows.Count, "A").End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = "A1:S" & FinalRow
    ActiveSheet.PrintPreview
End Sub