Hola nuevamente me veo en la necesidad de pedirle ayuda a los expertos de leandroascierto 
tengo la necesidad de colocar el software compartido, la necesidad es que necesito imprimir un reported dos veces desde un mismo lugar a diferentes impresoras, pero en realidad ya me canse de utilizar el datareport y quisiera saber que arian ustedes como lo harian por que ami ya se me agotaron las ideas 
Bueno yo también recomendaría Crystal Report, pero lo que tu preguntas si se puede resolver con el bien querido y nada ponderado DataReport
Imprimir un reporte dos veces es bastante sencillo:
MiReport.Printreport
MiReport.Printreport
Si fuera necesario, en el medio puedes poner un Msbgox("Verifique que el segundo papel este colocado")
Ahora, hacerlo a dos impresoras también se puede hacer... 3, 4, n, impresoras.
Asi lo haría.
Primero que nada esto es un modulo:
'------------ PARA LA SELECCION DE IMPRESORAS -----------------
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam As String) As Long '
Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
'----------------------------------------------------------------
Luego en tu boton de imprimr:
On Error GoTo ControlErrores
Mensaje = "Desea Imprimir?"
Estilo = vbYesNo + vbQuestion + vbDefaultButton2
Titulo = "PREGUNTA"
Respuesta = MsgBox(Mensaje2, Estilo2, Título2)
If Respuesta = vbYes Then
memImpresoraPredeterminada = Printer.DeviceName
r = WriteProfileString("windows", "Device", "Impresora1," + Printer.DriverName + "," + Printer.Port)
MiReporte.PrintReport
'SI QUIERES AQUI PONES UNA ADVERTENCIA O AVISO DE QUE LA SEGUNDA IMPRESORA ESTE PRENDIDA, SINO NO PONGAS NADA
r = WriteProfileString("windows", "Device", "Impresora2," + Printer.DriverName + "," + Printer.Port)
MiReporte.PrintReport
procRestaurarImpresoraPredeterminada
ControlErrores:
Select Case Err.Number
Case 8555 'No hay la impresora
MsgBox ("Problema de Impresion, no se pudo imprimir el documento porque la impresora no existe, vuelva a crearla y configure al papel adecuado")
Resume Next
End Select
Ahora, Impresora1 e Impresora2 deben ser los nombres exactos de tus impresoras, un poco de cuidado cuando esta compartida porque a veces se comparte como por ejemplo "EpsonXXX en PC01" , Sin embargo hay un truquito (que ahora no recuerdo) en el que se puede lograr poner la impresora compartida con el puro nombre de esta sin el Epsopn en tal PC.
Te recomiendo que no uses el nombre de la impresora por defecto, sino cambialo por un nombre mas adecuado y que tenga el papel especifico para tal fin. Yo por ejemplo tengo impresoras creadas como: "Reportes", "OVenta", "BolVenta" y "Factura" cada una con un tipo de papel diferente.
Por la linea:
r = WriteProfileString("windows", "Device", "Factura," + Printer.DriverName + "," + Printer.Port)
el código sabe a cual impresora debe ir el documento a imprimirse.
Insisto en usar el DataReport por el tema de la licencia, el CrystalReport creo que esta como 10 lucas y el cliente no quiere pagar. Espero haberte ayudado.
