Print Code

[Sunday88310]

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

 

[Sunday88310]

The error message reads
Select Method of Range Class Failed
RunTime Error 1004

 

[Sunday88310]

I found this web site address and found out what is causing
This problem. "Copying the sheet programmatically"

http://support.microsoft.com/default.aspx/kb/210684

Thank you, anyone that may have been working on it..