Assume there is a blank cell in column A within your data?

ActiveSheet.PageSetup.PrintArea = "=OFFSET(A1,,,COUNTA(A:A)+1,11)"

Other than that
set rng = Range(cells(1,1),cells(rows.count,1).End(xlup))
ActiveSheet.PageSetup.PrintArea = rng.Resize(,11).Address(external:=True)

you would need to rerun the macro each time the range changed.

--
Regards,
Tom Ogilvy

"Christy" wrote in message
...
Hi all,

I have following code to set the printarea for a
worksheet. It works but falls one row short of getting
the used data. How can I adjust to fix that?

In case I have not said it lately, what a GREAT site this
is and thanks to all of you who help our struggling!

Christy ;)


If ActiveSheet.Name = "LogReport" Then
ActiveSheet.PageSetup.PrintArea = "=OFFSET(A1,,,COUNTA
(A:A),11)" 'gets active data through column 11
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperLetter
.Zoom = 100
End With
ActiveWindow.SelectedSheets.PrintPreview
End If