The error message reads
Select Method of Range Class Failed
RunTime Error 1004
--
William<"M"




"Sunday88310" wrote:

Using 2007
The code gets hung up at
Range("Print_Area").select
------------------------------------

Public Sub PrintYTD()

'
' Procedure to print Year To Date Sales report.
'
'

Range("Print_Area").Select
With ActiveSheet.PageSetup
.Orientation = xlLandsacpe
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Selection.PrintOut Copies:=1
Range("F1").Select

End Sub
--
William<"M"