Visual Basic - coger impresoras en red

Life is soft - evento anual de software empresarial
 
Vista:

coger impresoras en red

Publicado por jonvd (18 intervenciones) el 27/06/2001 19:55:18
Como puedo hacer para que cuando vaya a imprimir un formulario desde Crystal reports me de a elegir las impresoras que hay en red?

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:coger impresoras en red

Publicado por Miguel (243 intervenciones) el 28/06/2001 09:23:12
Hola.
A partir de la versión 6 de Crystal Reports (creo) una vez que abre el listado por pantalla , creo que hay alguna opción para hacerlo.Si es con una versión anterior con este código te servirá.Primero te abre el cuadro de impresoras y una vez que seleccionas una te abre el listado por pantalla o como quieras y al darle a imprimir tienes seleccionada la que cogiste en el cuadro de impresoras.

Me.CommonDialog1.Flags = cdlPDHidePrintToFile
Me.CommonDialog1.Flags = cdlPDPageNums
Me.CommonDialog1.CancelError = True
On Error GoTo errorimpresion:
Me.CommonDialog1.ShowPrinter
On Error GoTo 0
Informe.ReportFileName = "C:\report.rpt"
Informe.Destination = crptToWindow
Informe.WindowLeft = 100
Informe.WindowTop = 100
Informe.WindowTitle = "Listado"
Informe.RetrieveDataFiles
On Error GoTo errorimpresion:
Informe.Action = 1
Exit Sub
errorimpresion:
If Err.Number = 32755 Then
On Error GoTo 0
Else
MsgBox "Error número : " & Err.Number & " --- " & Err.Description & " Error al generar el listado.", vbCritical, "Error"
On Error GoTo 0
End If

Espero que te sirva
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar