FiveTech Software tech support forums

... Same as DATA member Eval)

Return Value: None

Usage Example: (Internal use only - method version for codeblock usage)

244. Report( cTitle, lPreview, lModal, bSetUp, aGroupBy, cPDF, aCols )

Description: Accessor for Report (same as DATA member, method version for codeblock usage).

Parameters ...

... Iterates through all rows and displays "Column1" value in each row.
content_copy
download
Use code with caution.
Harbour

170. Report( cTitle, lPreview, lModal, bSetUp, aGroupBy, cPDF, aCols )

Description: Generates a report from the browse data, allowing for preview, printing, and exporting to ...

... my program crashes with
Unrecoverable error 9003: Too many recursive error handler calls

Here a snippet from METHOD GenHaruPDF( cFile, lPreview ) of CLASS TPrinter
1905: for each aCall in ::aCallLog
1906: oPdf:oPrn := Self
1907: HB_ExecFromArray( oPdf, aCall[ 1 ], aCall[ 2 ] ) // here ...

Hello Detlef,

oPrinter:lPreview

Interesting, just yesterday I was dealing with this issue.

https://www.facebook.com/groups/modharbour.club/?multi_permalinks=1114768252410734

I tried to open the oReport with and without preview.

I didn't find out how this works with the oReport ...

Dear Tim,

I am checking with Rao and Cristobal to implement a

oPrinter:SayRTF()

based on:

REPrintBox5( oRTF:hWnd, If( lPreview, oPrn:hDCOut, oPrn:hDC ), ;
oRTF:IsSelection(), ;
aRTF[ 1 ] + 20, 110, aRTF[ 1 ] + 1000, aRtf[ 2 ] + 990, 0 )

... line: 130

Source:
0128: ENDCLASS
0129:
0130 =>//------------------------------------------------------------------------------
0131:
0132: METHOD New( cFileName, cPassword, cOwnerPassword, nPermission, lPreview ) CLASS TPdf

could they help me? I would like to use this example in my hosting at m.

... usarla.
// Para estos dos: mira esto -> m
// hDCOut: si es a pantalla
// hDC: si es a impresora

// IsSelection: si hay texto seleccionado o no

aRTF := REPrintBox5( oRTF:hWnd, If( lPreview, oPrn:hDCOut, oPrn:hDC ), ;
oRTF:IsSelection(), ;
aRTF[ 2 ] + 10, 510, 1490, aRTF[ 2 ] + 990, aRTF[ 1 ] )

... Disculpen mi ignorancia.

Algun amigo me puede explicar lo que significa este Código que esta en Testrtf5.prg, en la función " function PrintBox( lPreview,oRTF ) ":

oPrn:Box( aRTF[ 2 ], 500, aRTF[ 2 ] + 1000, 1500 ) aRTF := REPrintBox5( oRTF:hWnd, If( lPreview, oPrn ...

... Lower( oPrinter:cFile )
FWSavePreviewToPDF( oPrinter, If( Lower( cFileExt( oPrinter:cFile ) ) == "pdf", ;
oPrinter:cFile, nil ), oPrinter:lPreview )
oPrinter:End()
elseif "emf" $ Lower( oPrinter:cFile )
CopyFile( oPrinter:aMeta[ 1 ], oPrinter:cFile, 0 )
If oPrinter:lPreview
oPrinter ...

... app. To make things simplier, I just added a button with xBrowse:Report(), fast an easy.
But... in one of them I need to put lines, like in formal report with CELLVIEW().

xBrowse:Report( cTitle, lPreview, lModal, bSetUp, aGroupBy, cPDF )

bSetup is for that, How?

Thanks in advance
From Chile
Adolfo

... Maybe there is a way to build in a standard error handling for that.

Best regards,
Otto

oVRD.prg

after:
::oPrn := PrintBegin( ::cTitle,, ::lPreview, ;
IIF( EMPTY( ::cPrinter ), NIL, ::cPrinter ), ;
IIF( ::lPreview, lModal, .F. ) )
insert:
//kein Drucker gefunden
if ::oPrn:hDC = 0
RETURN ...

... en TharuPdfBase :

1._ declarar un static oPrinter en la clase ( como tiene tprinter )
2.- añadir 2 datas nuevas :
DATA bPreview
DATA lPreview

3.- Cambio en new ( añadiendo lPreview )
//------------------------------------------------------------------------------METHOD New&#40 ...

Tim,

In FWH\samples\testrtf.prg function PrintBox( lPreview ) you have an example to preview or print a richedit

static function PrintBox( lPreview )   local oPrn   local aRTF := { 100, 1000 }  // { nFrom, nTop }   DEFAULT lPreview := .f.&nbsp ...

Hola,

En source/printer.prg hay que usar FWStrings en :

METHOD New( cDocument, lUser, lPreview, cModel, lModal, lSelection, cFile ) CLASS TPrinter

MsgStop( "There are no printers installed!" + CRLF + ;
"Please exit this application and install a printer." )


METHOD _EndPage() CLASS TPrinter ...

... syntax error:
default cTitulo1 TO ''
default cTitulo2 TO ''
default cCaption TO cTitulo1
default cCabecera1 TO ''
default cCabecera2 TO ''
default campoSubgr TO ''
default campoSubgr TO ''
default lPreview TO .T.
default lPrinterSetup TO .T.

You can not compile the above program with FWH