dim icopies as integer = 1
dim sprinter as string = "\\ALITER\Kyocera FS-1118MFP (ICT)"
rpt.PrintOptions.PaperOrientation = PaperOrientation.Portrait
rpt.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Auto
rpt.PrintOptions.PrinterName = sprinter
rpt.PrintToPrinter(icopies, False, 1, 1)
rpt.Close()