Visual Basic - imprimir reporte

Life is soft - evento anual de software empresarial
 
Vista:

imprimir reporte

Publicado por carlos (5 intervenciones) el 16/04/2010 00:36:57
Hola
Tengo un reporte en crystal reports pero no quiero que el usuario lo vea sino que halla un botón imprimir y automáticamente se construya el reporte y se imprima
De antemano muchas gracias
shalom
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:imprimir reporte

Publicado por Vicente (26 intervenciones) el 16/04/2010 01:57:48
Carlos, mira yo estoy utilizando VB6 y CR6 con mySql. estas instrucciones son las que utilizo para enviar por ejemplo un Edo. de Cta. sin que el reporte se vea previamente, lo envia directo a la impresora

With CrystalReport1
.Reset
.Connect = "DSN=SisAdm;Database=SisAdm;UID=admin;PWD=epale69"
.ReportFileName = App.Path & "\EdoCtaC.rpt"
.Formulas(0) = "cNumeId= " & Chr$(34) & lcNumeId & Chr$(34)
.Formulas(1) = "cClienteId= " & Chr$(34) & Trim$(lcCliente) & Chr$(34)
.Formulas(2) = "cZonCte= " & Chr$(34) & Trim$(lcZoncte) & Chr$(34)
.Formulas(3) = "cDescEmp= " & Chr$(34) & Trim$(frmCobCte.cbxEmpresa.Text) & Chr$(34)
.Formulas(4) = "cNom= " & Chr$(34) & Trim$(lcNom) & Chr$(34)
.Formulas(5) = "cDom= " & Chr$(34) & Trim$(lcDom) & Chr$(34)
.Formulas(6) = "cCol= " & Chr$(34) & Trim$(lcCol) & Chr$(34)
.Formulas(7) = "cCiu= " & Chr$(34) & Trim$(lcCiu) & Chr$(34)
.Formulas(8) = "cTel= " & Chr$(34) & Trim$(lcTel) & Chr$(34)

' Estas inst. lo envia directo a la impresora
.Destination = crptToPrinter
.PrintReport
.PageLast

' Estas inst. lo envia a la pantalla
' .WindowShowRefreshBtn = True
' .WindowShowCancelBtn = True
' .WindowShowCloseBtn = True

' .WindowState = crptMaximized
' .PrintReport

End With

Suerte !!!
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

RE:imprimir reporte

Publicado por carlos (5 intervenciones) el 16/04/2010 16:05:21
muchas gracias
solo tengo una inquietud que contiene la variable crptToPrinter
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

RE:imprimir reporte

Publicado por Pedro Luis (128 intervenciones) el 19/04/2010 09:23:23
No es una variable es un comando, Crystal Report a la Impresora.
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

imprimir reporte

Publicado por diego (1 intervención) el 06/09/2012 23:04:28
donde "crlistados" es el nombre del objeto cristal report tenes que usar estas propiedades

crlistados.Destination = crptToPrinter

y en total todo el codigo para que dispare la impresion una vez ejecutado el disparador quedaria asi:

crlistados.DiscardSavedData = True
crlistados.ReportFileName = " - camino adonde tenes guardado el informe "
sql = "select * from tb_listar_presupuesto_OSBA order by ordenar" 'sentencia de seleccion de datos a informar

crlistados.SQLQuery = sql
crlistados.PrinterSelect '- esta accion es para elejir impresora
crlistados.PrinterCopies = 1
crlistados.Action = 0
crlistados.Destination = crptToPrinter ' esto hace que la impresion salga automaticamente.-


Espero que te sirva.

Saludos Cordiales!

Diego Magan
Desarrollador de Software
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