FiveTech Software tech support forums

... ... ) 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 ::aCallLog1906:      oPdf:oPrn   := Self1907:      HB_ExecFromArray( oPdf, aCall[ 1 ], ...

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 ...

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 )

... 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 https://xbhosts.com/.

... // 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 ] )

... 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( ...

... 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:Preview() ...

... 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

... hDC. 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( cFileName, ...

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, ...

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." ...

... 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

... informe(cCaption,cTitulo1,cTitulo2,cCabecera1,cCabecera2,; aContenido,aPicture,aEncabezado,aAnchura,aTotaliza,; bTextoSubgr,campoSubgr,nLtrSize,lPreview,lPrinterSetup) local oRpt local oFontNorm, oFontNegr local oPen1, oPen2 local i:=0 local cImpresoraSalida:="" default cTitulo1 TO ...

... your help. // Testing FiveWin built-in report engine and print preview #include "FiveWin.ch" #include "Report.ch" static oWnd, lPreview := .F. http://i.imgur.com/Rp0IsQF.png function Main() local oBar, oCursorHand DEFINE WINDOW oWnd ; TITLE "Testing FiveWin ...