This will do it from anywhere in the workbook, withOUT selections. Pay
attention to the . s in the with statement.

Sub printrng()
With Sheets("PDSR")
lr = .Columns("y").Find(0).row
..Range(Cells(1, 1), Cells(lr, 12)).Printout 'Preview
End With
End Sub

--
Don Guillett Excel MVP
SalesAid Software

"ADK" wrote in message
...
macro beginner


I have the following set to a command button to print. So far the macro
sets the print area perfectly the way I want it. I just need to know what
is missing after the print area is defined to actually send it to the
printer

Private Sub CommandButton1_Click()
Worksheets("PDSR").Activate
Set c = Worksheets("PDSR").Columns("Y"). _
Find("0", LookIn:=xlValues)
If Not c Is Nothing Then
Worksheets("PDSR").Range(Cells(1, 1), Cells(c.Row, 12)).Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
End If
End Sub