Página 1 de 1

REPORT.CH

Publicado: Jue Mar 03, 2005 5:34 pm
por Francisco Sanchez
Yo en mi codigo no hago referencia a ningun afonts, es el report.ch el que
si hace referencia a afonts
De todas formas hice pruebas con varias combinaciones y no hay manera de
utilizar FONTS sin que me de error, al menos no he podido, Evidentemente
estare haciendo algo mal. Pero fijate en el codigo de la equivalencia del
preprocesado de REPORT que utiliza afonts
WITH OBJECT <oReport> := TReport():New( [ <oParent> ] ) ;
[; :oTitle := TRptLine():Create( <oReport>, {<{bTitle}>},
<nTitleAlign>, "t" ) ] ;
[; :oHeader := TRptLine():Create( <oReport>,
{<{bHeader}>}, <nHeaderAlign>, "h" ) ] ;
[; :oFooter := TRptLine():Create( <oReport>,
{<{bFooter}>}, <nFooterAlign>, "f" ) ] ;
[; :aFonts := {<oFont>} ] ;
[; :oPen := <oPen> ] ;
[; :lSummary := <.lSummary.> ] ;
[; :lPreview := <.lPreview.> ] ;
[; :oDevice := <oPrinter> ] ;
[; :cJobName := <cJobName> ] ;
;:Create() ;
;END
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -