How can I print from cell A1 to the last row ?

[Ro477]

Thanks to all for their help so far. I can find the last row okay, but how
can I now print from cell A1 through to the last row +2, column 24 ?

Dim IngLastRow As Long
With Sheets("Report(metArb)")
lngLastRow = .Cells(Rows.Count, "B").End(xlUp).Row + 2
End With

.... that finds the last row, but to print from A1 to the lastrow+2 (which is
IngLastRow) is it

ActiveSheet.PageSetup.PrintArea = "$A$1:" & "IngLastRow+2,24"

thanks again ... Roger

 

[Rick Rothstein]

There are a couple of problems with your statement. First, your IngLastRow
variable name is place inside quote marks, so VB will treat is as pure text
(anything inside quote marks is text with no meaning other than as a
collection of letters). To have VB evaluate the variable in order to
retrieve its contents, you must concatenate the variable to the fixed text.
Second, you start your range address with $A$1: and then try to finish it
off with a row-comma-column... you can't mix notations like that as VB will
have no idea what you are doing. This should be the line of code you are
looking for...

ActiveSheet.PageSetup.PrintArea = "$A$1:X" & (IngLastRow + 2)

 

[Bernard Liengme]

This works

Sub tryme()
With Sheets("sheet1")
lngLastRow = Cells(Rows.Count, "B").End(xlUp).Row + 2
myarea = "$A$1:$B" & lngLastRow
.PageSetup.PrintArea = myarea
End With
End Sub

Not sure what your 24 is about. Is it column a reference to column X?
If so use: myarea = "$A$1:$X" & lngLastRow

 

[Ro477]

Great, thanks, and especially for the explanation. I now understand it !
.... Ro