SoloCodigo
Bases de Datos => Crystal Reports => Mensaje iniciado por: seba_m en Domingo 26 de Junio de 2005, 19:06
-
Buenas a todos, en esta oportunidad estoy buscabndo lograr qu antes de poder realizar la impresion de un formulario echo en CR, controle el sistema si podeo o no impresora, y que si no poseo me avise y no me deje imprimir, obviamente.
Gracias
-
Evidentemente si no hay una impresora instalada, Crystal arroja un error, para evitarlo, hay que detertar si hay o no impresora.
'variables declaradas como globales, para porder ser utilizardas desde cualquier parte
Global G_Prn As Printer
Global G_HayImpresora As Boolean
Global NombreImpresora As String
'Detectar impresora
For Each G_Prn In Printers
If Printer.DeviceName = G_Prn.DeviceName Then
NombreImpresora = G_Prn.DeviceName
G_HayImpresora = True
Exit For
End If
Next
' asi se obtiene lo siguiente:
'Si hay impresora, la variable G_HayImpresora, tendra el valor TRUE
'Ademas la variable NombreImpresora, tendra el valor de la impresora que tiene'el
'el sistema instalada por defecto
Con lo cual, si G_HayImpresora = False, pues no se manda imprimir el report
espero que esto solucione tus problemas
www.scgestion.com (http://www.scgestion.com)
pegale un vistazo, no te arrepentiras
-
Gracias lo probare y luego te cuento
-
Bueno, he probado el codigo pero lo he modificado, ya que cualquier variable booleana visual la inicializa en true asi que puse que si encuentra in ipresora me devuelva false.
Funcionara.
Tendrias un ejempllo en un proyecto
te mando mi mail
seba_m@net-2.com.ar
MUCHAS GRACIAS