This will print A1:X(lastusedrow of column A):

Option Explicit
Sub testme()
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("a1:x" & LastRow).PrintOut preview:=True
End With
End Sub

Tamsyn wrote:

I need to create a Macro to select a print area and then print. This range
will change as more data is added.

--

Dave Peterson