Print Code

Giganews Newsgroups
Subject: Print Code
Posted by:  Sunday88310
Date: Thu, 2 Aug 2007

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"

Replies