marco to Print range until blank cells

[biffothebear0]

Help Please,

I need a macro to print a range, IE: columns A:J but the number of rows will always change as I do not know how much data there will be between these rows. I need a macro to print a set print area until there are blank cells arcoss each column, thus printing out all the required data

please can someone help

 

[VoG]

Try

Sub prt()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
With ActiveSheet
    .PageSetup.PrintArea = "A1:J" & LR
    .PrintOut
End With
End Sub

 

[biffothebear0]

Hi

This doesn't work, all it does it print out the first two lines on the spreadsheet and ignores the rest of the data below.

thanks

 

[VoG]

Then maybe

Sub prt()
Dim LR As Long
With ActiveSheet
    LR = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    .PageSetup.PrintArea = "A1:J" & LR
    .PrintOut
End With
End Sub