Excel VisualBasic Script

Sub PrintRpt2()   '
    Range("myRange").PrintOut
End Sub