Visual Basic - Api para seleccionar inpresora en crystal r.

Life is soft - evento anual de software empresarial
 
Vista:

Api para seleccionar inpresora en crystal r.

Publicado por Luna (3 intervenciones) el 29/11/2005 09:28:21
Hola a todos.

Me gustaria saber como puedo seleccionar una impresora cuando al mostrar un informe desde la vista preliminar de crystal report picas al botón de la impresora. Me he fijado que sale una ventana donde te dice por que impresora va a salir el documento pero no te deja hacer nada con ella. Existe la posibilidad de dejar fija y habilitada esa ultima ventana para poder seleccionarla.

Gracias. Salu2
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:Api para seleccionar inpresora en crystal r.

Publicado por Low (102 intervenciones) el 05/12/2005 09:52:09
Hola, a ver si esto te sirve de ayuda:

Create un combo llamado cmbImpresoras en el formulario desde el que quieras imprimir y para cargarlo metes esto en un procedimiento y lo llamas en el load del formulario por ejemplo:

For Each PRT In Printers
If PRT.DeviceName = Printer.DeviceName Then
CMB.AddItem PRT.DeviceName, 0
Else
CMB.AddItem PRT.DeviceName
End If
Next
If CMB.ListCount > 0 Then CMB.ListIndex = 0

Con esto vas a poder seleccionar cualquier impresora del sistema. Para luego enviar el report a esta impresora usa:
Dim PRT as Printer

For Each PRT In Printers
If PRT.DeviceName = cmbImpresoras.text Then
sPRT = Printer.DeviceName
Set Printer = PRT
End If
Next

Con esto estableces la impresora del combo como predefinida y con lo siguiente recuperamos la impresora del sistema

For Each PRT In Printers
If PRT.DeviceName = sPRT Then
Set Printer = PRT
End If
Next

Suerte con ello, 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