Cystal Report XI R2 11.5.9.1076 using RDC and VB6. SelectPrinter not work

Question

I have been using crystal report since version 3.0
I am trying to re-directed a report output directly to a printer. (Not the default printer)
The following is the relevant code.
It executes, but the report doesn't go to the proper printer and in design mode it crashes the environment sometimes.
            If PrinterName <> "" Then
                Dim DriverName As String
                Dim PrtName As String
                Dim PortName As String
                Dim Prt As Printer
                For Each Prt In Printers
                    If UCase(Prt.DeviceName) = UCase(PrinterName) Then
                        PrtName = Prt.DeviceName
                        DriverName = Prt.DriverName
                        PortName = Prt.Port
                        Rpt.SelectPrinter DriverName, PrtName, PortName
                        Rpt.PaperSize = Printer.PaperSize
                        Rpt.PaperSource = Printer.PaperBin
                        Exit For
                    End If
                Next
            End If
Any help would be greatly appreciated.
Kalman Skulski

Answer 1

Thanks for your quick response Elaine.
I tried your suggestion. 
I changed my code and added Rpt.PaperOrientation = crDefaultPaperOrientation
                        Rpt.SelectPrinter DriverName, PrtName, PortName
                        Rpt.PaperSize = Printer.PaperSize
                        Rpt.PaperSource = Printer.PaperBin
                        Rpt.PaperOrientation = crDefaultPaperOrientation
But it still is printing to my default printer and not the printer I am setting it to.    It used to work in 8.5.
Kalman Skulski