Para Fredy (Fast Report)
Publicado: Sab Oct 06, 2007 8:55 am
Te agradezco la ayuda proporcionada.
Cambíe ShowReport() por PrinReport(), pero al imprimir el informe me sale
la ventana de la impresora y sus propiedades (Archivo adjunto), pero al
darle click en ok no lo imprime, o sea no sale nada en la impresora.
Este es el codigo que tomé como ejemplo que se puso en este foro, con
ShowReport() funciona bien.
Al inicio de mi formulario tengo
DATA oFR As OBJECT
En el evento oninitialize escribo lo siguiente
METHOD FormInitialize( oSender ) CLASS CAPTURAR_DEPOSITOS
::oFR := CreateObject( "FastReport.TfrxReport" )
::oFR := CreateObject( "FastReport.TfrxReport" )
::oFR:Addvariable("mis variables","numero_socio",'::numero_socio')
::oFR:Addvariable("mis variables","nombre_socio",'::nombre_socio')
RETURN Nil
Y en el boton donde envio mi reporte escribo lo siguiente
METHOD GRABARClick( oSender ) CLASS CAPTURAR_DEPOSITOS
::oFR:LoadReportFromFile (".ReportesRECIBO_DEPOSITO.fr3")
::oFR:SetVariable("numero_socio",::numero_socio)
::oFR:SetVariable("nombre_socio",::nombre_socio)
::oFR:PrintReport()
RETURN Nil
Si no es mucho pedirte, y tienes un ejemplo mas facil que este y que
funcione con PrintReport() pasalamelo por favor.
Te lo agradezco.
Repito con ShowReport() Funciona bien.
Attached files
Cambíe ShowReport() por PrinReport(), pero al imprimir el informe me sale
la ventana de la impresora y sus propiedades (Archivo adjunto), pero al
darle click en ok no lo imprime, o sea no sale nada en la impresora.
Este es el codigo que tomé como ejemplo que se puso en este foro, con
ShowReport() funciona bien.
Al inicio de mi formulario tengo
DATA oFR As OBJECT
En el evento oninitialize escribo lo siguiente
METHOD FormInitialize( oSender ) CLASS CAPTURAR_DEPOSITOS
::oFR := CreateObject( "FastReport.TfrxReport" )
::oFR := CreateObject( "FastReport.TfrxReport" )
::oFR:Addvariable("mis variables","numero_socio",'::numero_socio')
::oFR:Addvariable("mis variables","nombre_socio",'::nombre_socio')
RETURN Nil
Y en el boton donde envio mi reporte escribo lo siguiente
METHOD GRABARClick( oSender ) CLASS CAPTURAR_DEPOSITOS
::oFR:LoadReportFromFile (".ReportesRECIBO_DEPOSITO.fr3")
::oFR:SetVariable("numero_socio",::numero_socio)
::oFR:SetVariable("nombre_socio",::nombre_socio)
::oFR:PrintReport()
RETURN Nil
Si no es mucho pedirte, y tienes un ejemplo mas facil que este y que
funcione con PrintReport() pasalamelo por favor.
Te lo agradezco.
Repito con ShowReport() Funciona bien.
Attached files