Imprimir CR desde VB 6

[Jennifer_munn]

hola a todos:
tengo este código que ejecuto cuando pulso sobre el botón imprimir de un CRViewer:

Private Sub CRViewer91_PrintButtonClicked(UseDefault As Boolean)
MsgBox UseDefault
Report.PrinterSetup lHwnd
gsOrientation = Report.PaperOrientation 'Save orientation into var
Printer.Orientation = Report.PaperOrientation
Report.SelectPrinter Report.DriverName, Report.PrinterName, Report.PortName
gsPrinterName = Report.PrinterName 'Save other settings to vars
gsPrinterDriver = Report.DriverName '...
gsPortName = Report.PortName '...
'...
'Set the report source (if using already opened ADO recordset).
'Report.Database.SetDataSource oRs, 3, 1
'...
'Then you can set the report to whatever the user selected and print out.
Report.DisplayProgressDialog = True
Report.SelectPrinter gsPrinterDriver, gsPrinterName, gsPortName
Report.PaperOrientation = gsOrientation
Report.PrintOut True, 1

End Sub

Este código lo encontré por ahí y creo q se me escapa algo de lo que hace ya que primero me muestra una pantalla pidiendome la impresora por la q kiero imprimir y despues otra en la que aparece por defecto la impresora que he elegido diciendome otra vez que si acepto o cancelo, y despues de darle a aceptar me sale otra vez la misma pantalla, pq tantas veces??