Visual Basic - ayuda con Crstal Report

Life is soft - evento anual de software empresarial
 
Vista:

ayuda con Crstal Report

Publicado por yeni (146 intervenciones) el 07/12/2005 02:59:35
Ps .. yo no utilizo crystal report... Alguien me podria mencionar una Web de algun manual

Y ps por aka tienen un problema con la impresion de campos memos
y como hace para imprimir en una impresora k se conecta mediante USB

POR FA .. YO se k aka hay regenios k alguien me ayudeeeeee
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:ayuda con Crstal Report

Publicado por low (102 intervenciones) el 07/12/2005 15:41:37
Hola, yo te ayudo con el tema de la selección de la impresora

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