Visual Basic - Cambio de Impresoras con CR

Hola tengo una pregunta sencilla creo tengo dos reportes hechos en CrystalReport el Rep A y el Rep B y tengo 2 impresoras instaladas la IMP 1 y la IMP 2 ademas un formulario con 2 botones solo quiero que al pulsar el boton1 imprima el RepA en la Imp1 y al pulsar el boton 2 imprima el RepB en la Imp2

Gracias de Antemano

Mira Tienes que indicarle a CR en que impresora va a imprimir, por dafault toma la predeterminada, `prueba con lo siguiente:

With MDI.Cr
.
.
. ' Otras opciones de Crystal
.Destination = crptTointer ' El reporte sale por la impresora
.PrinterName = cNomImp ' El nombre de la impresora
.CopiesToPrinter = nCopias ' Numero de copias
AsignaPuertos cNomImp, MDI.Cr ' Asignamos los puertos
.
. ' Algunas otras opciones para el reporte
.Action ' Se ejecuta el reporte
End With

Private Sub AsignaPuertos( sN as string, xCR as CrystalReport )
Dim xx as Printer
For Each xx In Printers
If LCase(Trim(Sn)) = LCase( Trim(xx.DeviceName)) Then
xCR.PrinterPort = xx.Port
xCR.PrinterDriver = xx.DriverName
Exit For
End If
Next xx
End Sub

'''Espero te ayude este fragmento de codigo
AMM