FiveTech Software tech support forums

Antonio, thanks for your answer If I'm not wrong, the METHOD PrintPrv is used to send the preview to the printer, and there is no problem there. Print physically perfect. The problem is when he paints the lines in the preview (only the lines, the rest ...

Carlos,

In METHOD PrintPrv( oDlg, nOption, nPageIni, nPageEnd ) CLASS TPreview we use PlayEnhMetaFile()

Please replace those calls with XPlayEnhMetaFile() and lets see if that makes a difference in your case, thanks

... 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 IF oApp:lGuardarPDF IF oApp:cImprimiendo ...

... ) Here I made my changes like buttonbar and current bill number and qrcode. I made the changes in: static function PrintPrv( oDlg, nOption, nPageIni, nPageEnd, cArt, oRechnung ) if oRechnung:cDruckart <> "Kreditrechnung" if nFor = len(aFiles) //letzte ...

... ) Here I made my changes like buttonbar and current bill number and qrcode. I made the changes in: static function PrintPrv( oDlg, nOption, nPageIni, nPageEnd, cArt, oRechnung ) if oRechnung:cDruckart <> "Kreditrechnung" if nFor = len(aFiles) //letzte ...

Si añades un codeblock, por ejemplo, bPrint, y lo llamasdesde el método PrintPrv: DATA bPrint......METHOD PRINTPRV()...if ::bPrint # NIL   EVAL(::bPrint,Self,...)endif... El cambio es muy pequeño y no tiene que modificar ningún programa. Y ya ...

... oPageEnd:Disable(), .T. ) else lCancel := .f. endif if ! lCancel MsgRun( ::oDevice:cDocument, "Printing Report",; { || ::PrintPrv( nil, nOption, nFirst, nLast ) } ) endif ///puedes colocar lo que quieras hacer en mi caso me toco para una impresión particular salir al imprimir ...

... crea la primera vez, despues ya no vuelve a salir... DEFINE DIALOG oDlg RESOURCE "PRINT" REDEFINE BUTTON ID 101 OF oDlg ; ACTION oThis:PrintPrv( oDlg, nOption, nFirst, nLast ) REDEFINE BUTTON ID 102 OF oDlg ACTION oDlg:End() REDEFINE RADIO oRad VAR nOption ID 103, 104, 105 OF oDlg ; ...

Armando,

En la clase Rpreview, busca el metodo ::printprv(). Alla es donde se borra los metafiles ->DeleteEnhMetafile( hMeta ). Puedes tratarlo como quiera, p.e. hacer una copia a una carpeta, enviarlos, ... y borrarlos luego claro

Ciao.
C.

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

... local hMeta := oMeta1:hMeta local oDlg, oRad, oPageIni, oPageFin local nOption := 1 ,; nFirst := 1 ,; nLast := len(DEVICE:aMeta) if nLast == 1 PrintPrv(nil, nOption, nFirst, nLast) RETU nil endif SET RESOURCES TO cResFile DEFINE DIALOG oDlg RESOURCE "PRINT" REDEFINE BUTTON ID 101 ...

... error: Application Exception - 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 ...

... nOption := 1 ,; nFirst := 1 ,; nLast := len(DEVICE:aMeta) PRIVATE nCopias := nItem := 1 // if nLast == 1 // PrintPrv(nil, nOption, nFirst, nLast) // RETU nil // endif SET RESOURCES TO cResFile DEFINE DIALOG oDlg RESOURCE "PRINT" REDEFINE ...

... local hMeta := oMeta1:hMeta local oDlg, oRad, oPageIni, oPageFin local nOption := 1 ,; nFirst := 1 ,; nLast := len(DEVICE:aMeta) if nLast == 1 PrintPrv(nil, nOption, nFirst, nLast) RETU nil endif SET RESOURCES TO cResFile DEFINE DIALOG oDlg RESOURCE "PRINT" REDEFINE BUTTON ID 101 OF oDlg ; ...

Armando, En fwh\sources\classes\rpreview.prg la función PrintPrv() es la que finalmente imprime. Tan solo haría falta que esta función pusiese a .T. una variable static lPrinted e implementar una función PreviewPrinted() ; return lPrinted. Pruébalo, ...