FiveTech Software tech support forums

I made this changes in rpreview.prg, in: METHOD PrintPage() CLASS TPreview .... if ! lCancel MsgRun( ::oDevice:cDocument, "Imprimiendo Reporte",; { || ::PrintPrv( nil, nOption, nFirst, nLast ) } ) // daniel 2016-07-29 * ? 'ACA GUARDAR PDF',oApp:lGuardarPDF,oApp:cImprimiendo ...

Por qué no haces solo un EXTEND CLASS del METHOD BuildButtonBar y en el ACTION del PrintPage, haces antes una llamada a tu funcion?
.... ACTION ( MiFunc(), ::PrintPage(), .. )

Aunque lo interesante seria tener las acciones de los botones en un array de codeblocks para poderlos modificar

Hola Leandro como dice el Maestro Antonio Linares Modifica la clase rpreview METHOD PrintPage() CLASS TPreview local hMeta := ::oMeta1:hMeta local oDlg, oRad, oPageIni, oPageEnd local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE local oThis ...

Purpose of bPrint is to enable you have your own dialog. You need to 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 ...

Purpose of bPrint is to enable you have your own dialog. You need to 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 ...

... :wink: ) Optimización IV - Walter Negro 605 palabras totales en este texto (24 Lecturas) Versión Imprimible <modules.php?name=Sections&op=printpage&artid=13> ------------------------------------------------------------------------ Comando With Object WITH OBJECT ... END Esta es ...

Buenas Antonio Me ocurre una cosa muy muy rara. En un reporte que tenga más de una pagina, el boton de imprimir muestra el dialog ; DEFINE DIALOG oDlg RESOURCE "PRINT" Pero.. si salgo he intento imprimir, el dialogo ya no vuelve a aparecer. He puesto unos warnigs; SET RESOURCES TO ::cResFi...

I tried to change a preview but i got this errormessage Error description: Warning BASE/1004 Message not found: TRBTN:PRINTPAGE Stack Calls =========== Called from: source\rtl\tobject.prg => TRBTN:ERROR(172) Called from: source\rtl\tobject.prg => TRBTN:MSGNOTFOUND(205) Called ...

... static lImprime debes declararla al inicio de tu prg principal. Luego, por ejemplo haces esto: DEFINE TBBUTTON OF oBar ; ACTION ( lImprime:=.t., ::PrintPage() ) ; //aqui sería .t. TOOLTIP Strtran(TXT_PRINT,"&","") ; MESSAGE TXT_PRINT_CURRENT_PAGE DEFINE TBSEPARATOR OF oBar ...

Hola Juan, creo que puedes hacer lo siguiente: Busca en el rPreview los botones y menu relacionados con ::oWnd:End() en las llamadas a ::PrintPage() y agregale tu variable static: ( lImprime := .t., ::oWnd:End() ) , o ( lImprime := .f., ::oWnd:End() ), según el caso. Es sólo una idea. Con ...

... ) METHOD SetOrg2( nX, nY ) METHOD CheckKey( nKey, nFlags ) METHOD CheckMouseWheel( nKeys, nDelta, nXPos, nYPos ) METHOD SetFactor( nValue ) METHOD PrintPage() METHOD PrintPrv( oDlg, nOption, nPageIni, nPageEnd ) // Esteban METHOD CambiaPrinter() // Esteban ENDCLASS //----------------------------------------------------------------------------// ...

... "á", "a" ) ; MESSAGE TXT_PREVIEW_ON_TWO_PAGES DEFINE TBSEPARATOR OF oBar DEFINE TBBUTTON OF oBar ; ACTION PrintPage() ; TOOLTIP Strtran(TXT_PRINT,"&","") ; MESSAGE TXT_PRINT_CURRENT_PAGE DEFINE TBSEPARATOR OF oBar DEFINE TBBUTTON ...

... - C:\prueba\IMPRESION\TESTPRN3.exe Terminated at: 2008.07.09 18:56:58 Called from ENDDOC(0) Called from TPREVIEW:PRINTPRV(0) Called from TPREVIEW:PRINTPAGE(0) Called from (b)BUILDBUTTONBAR(0) Called from TBTNBMP:CLICK(0) Called from TBTNBMP:LBUTTONUP(0) Called from TWINDOW:HANDLEEVENT(0) Called ...

... ; ACTION IIF(MsgYesNo ("R e c h n u n g abschließen?"),; ( TGif():New( oWnd, ".\gifs\halo.gif", 200, 200 ),; oBtnExit:hide(),; oRechnung:Save(),; PrintPage(cArt:="Rechnung",oRechnung),; oZahlung := TZahlung():New(oRechnung),; oZahlung:offen() ,; oZahlung:end() ,; oRechnung:CheckOut(cArt) ,; oDlgRg:End(),; ...

You will have to slightly modify RPreview.prg in order to do this, due to a slight oversight in METHOD PrintPage(). In this method, you will have to add code for a button that calls PrinterSetup(), as shown below. Here is the defect in the standard version... Although the ...