FiveTech Software tech support forums

... this multiheader project with oBrw:report() is too hard because there many problems I use to print this command oApp:oGrid:Report( cTitle, , , { | oRep, oBrw, nCall| MyRepSetup( oRep, oApp:oGrid, nCall,1) } ) MyRepSetup static function MyRepSetUp( oRep, oBrw, nCall,ntipo )    Local oFont  ...

Done

bSetUp := {|oRep| oRep:CellView()}

xBr:Report("Printing....",.T.,,bSetUp )

... ; SIZE 80, 15 PIXEL 2007 ; NOBORDER ; PROMPT " &oBrw1:Report() " ; FILENAME c_Path1 + "REPORT.bmp" ; ACTION ( bImage := {|oRep| oRep:SayBitmap(0.2, 7, c_Path1 + "Customer.bmp")}, ; bStart := {|oRep| oRep:bStartPage := bImage}, ; oBrw1:Report("Xbrowse report ...

Gracias Karina, uso tu codigo que me colocastes y me genera error, a ti te funciona asi.

Funciona pero si quito esta linea
HEADER "REPORTE", ;
"Fecha: "+ DTOC( DATE() ), ;
"Hoja: " + STR( oRep:npage, 3 )

Gustavo,

You may check how the nTotal variable is being modified:

oRep:bFor := { || MsgInfo( nTotal ), nTotal >= 0 }

... FILE clause and then while defining REPORT, the printer object may be set as DEVICE of the report Eg. PRINTER oPrn FILE "rep.pdf" REPORT oRep {<othere caluses>] DEVICE oPrn.

Can the issue be solved by suitably setting top and bottom margins by

oRep:Margin( nPixels, RPT_BOTTOM, 0 )
and
oRep:Margin( nPixels, RPT_TOP, 0 )
?

August 2015 ========== * Enhancement: treport.prg: New data nRptAlign. By setting oRep:nRptAlign to RPT_RIGHT or RPT_LEFT, a report can be aligned to Right or Left of the page instead of the default Center. * New: function SetCustomPrintPreview( bPreview (0r) NIL ...

Please make this correction in the static function MakeRepCol( oRep, oXCol ) in xbrowe.prg Existing code:      oCol := RptAddColumn( aHeader, nil ,;                          ...

Manuel,

ya me respondió Rao:

PRINT oPrn FILE "pdffilename.PDF"
REPORT oRep <clauses> TO DEVICE oPrn

pruébalo

And oReport:bInit can be setted globally at the main function? Not possible because it is not a class data. I would even advise it is not desirable. A project would contain many reports some dealing with dbfs, some arrays, ...

... write a function which replaces Method PrintPage(), in your style. Within the function, you can use all methods and data of TPreview. bPrint := { |oRep| MyPrintPage( oRep ) } function MyPrintPage( Self ) <here write your function as if you are replacing method PrintPage() > return nil Right, ...

... write a function which replaces Method PrintPage(), in your style. Within the function, you can use all methods and data of TPreview. bPrint := { |oRep| MyPrintPage( oRep ) } function MyPrintPage( Self ) <here write your function as if you are replacing method PrintPage() > return nil

... and has the same limitations of the Report() method. We can customize the report's parameters with the clause XBREPORT .............. REPSETUP { |oRep,n| <report setup code > } This codeblock's functionality is the same as bSetUp parameter in oBrw:Report(...) method. Let us try to improve ...

... oInforme:oFont1 ; HEADER oSayEmpresa(), "Fecha: "+dtoc(Date()), "Hora: "+Time() ; FOOTER "Página: "+str(oRep:nPage,3) ; CAPTION "Vista Previa del Informe "+oInforme:cTitulo1 PREVIEW I mean, several titles, fonts, the header, footer and caption. ...