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

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)

--
Rick (MVP - Excel)


"Ro477" <help-(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> 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
>
>
>

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
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Ro477" <help-(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> 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
>
>
>

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



"Rick Rothstein" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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)
>
> --
> Rick (MVP - Excel)
>
>
> "Ro477" <help-(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> 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
>>
>>
>>
>