Hi ramco1917,
Try this.
First you have to get Printer Parameters for the Printer.
deviceName = Printer.DeviceName
driverName = Printer.DriverName
port = Printer.Port
FromPage = Val("1")
ToPage = Val("5")
NoCopies = Val("1")
MyReport.SelectPrinter driverName, deviceName, port
MyReport.PrintOut False, NoCopies, FromPage, ToPage