FiveTech Software tech support forums

... cOutFile) */ Return .T. ************************************** FUNCTION SetRT(cOutFile) ************************************** LOCAL oRTF Public oPrinter,aSize DEFINE RTF oRTF FILE cOutFile ; FONTS "Times New Roman", "Courier New", "Arial Cyr" ; FONTFAMILY "froman","fswiss","fmodern"; ...

... cOutFile) */ Return .T. ************************************** FUNCTION SetRT(cOutFile) ************************************** LOCAL oRTF Public oPrinter,aSize DEFINE RTF oRTF FILE cOutFile ; FONTS "Times New Roman", "Courier New", "Arial Cyr" ; FONTFAMILY "froman","fswiss","fmodern"; ...

Me respondo. Controlando el valor de oPrinter:hDC Si = 0 pulsó ESC. /* **************************************************** */ Hola a todos, Estoy usando esta instrucción: PRINTER oPrinter FROM USER PREVIEW NAME "Llista d'avisos i errors." ...

... Estoy intentando generar un PDF de 11 páginas (irá creciendo poco a poco) desde Tprinter. La intención es hacerlo de manera automática sin usar el oPrinter:Preview(), directamente con FWSavePreviewToPDF( oPrinter, oPrinter:cFile, .T. ), pero pierde alguna página a veces sobre todo en el primer ...

... 0.5 ,; // medio cm. para margenes de PAGE nAncho := 0,; nAlto := 0 if nAncho <= 0 nAncho := 5 endif if nAlto <= 0 nAlto := 5 endif xCor := ::oPrinter:Cmtr2Pix( nArriba,nIzq ) yCor := ::oPrinter:Cmtr2Pix( nAncho,nAlto ) IF lPage yCor[1] := ::oPrinter:nHorzRes() - xCor[2]*2 // Restando lo mismo ...

Hi Antonio, Both the TEMP and TMP variables were a strange folder that doesn't even exist and that was also the oprinter:cdir folder. So I created my own temp folder and changed oprinter:cdir to that folder. When running your sample code 2 emf files appeared in that folder, but ...

... Please check these values remotely: MsgInfo( GetEnv( "TEMP" ) ) MsgInfo( GetEnv( "TMP" ) ) MsgInfo( GetWinDir() ) MsgInfo( oPrinter:cDir ) will tell you which one is in use as this is the code where the preview sets the temporary folder:      ::cDir   = GetEnv( "TEMP" ...

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 )

... is the result I am looking for .. on certain machines .. TSHIREY.1.pdf for some reason is generated with the wrong resolution. Question ... How is oPrinter object created in this code .. nView = 3 //nView := 3 Do Case Case nVIEW = 1 PRINTER oPRINT FROM USER ; PREVIEW MODAL ; NAME "Request ...

Please try it this way and lets check if there is a difference:

PrnLandscape( oPrinter:hDC )
...
PrnPortrait( oPrinter:hDC )

... con el de versiones anteriores y es igual. Hay algo que mantiene los emf capturados y impide actuar al ferase() del metodo end(). He probado con oprinter:end() y oprinter:=nil y nada Ya me canse voy a tratar por otro lado Muchas gracias. Pd. Cuando cierro la aplicacion los archivos se liberan.poe ...

... de las versiones 10 y 18 de Fivewin. ************************* FWH 18 CLASS - printer.prg ************************* function PrintEnd() if oPrinter:lMeta if Empty( oPrinter:cFile ) oPrinter:Preview() elseif "pdf" $ Lower( oPrinter:cFile ) FWSavePreviewToPDF( oPrinter, If( Lower( ...

... := SPACE(13) public ocodigo if msgyesno ("Imprime Codigo de trazabilidad ","Trazabilidad Compras") printersetup() printer oprinter NAME "IMPRESION CODIGO DE BARRAS" oprinter:lPrvmodal := .T. define brush oBr color CLR_YELLOW define font oFont name 'ARIAL' size ...

Without the NOWAIT the dialog showed on the screen and waited until closed. I tried to send a reference to an oPrinter object also. same results - the system either hung or GPF'ed depending on what and how I passed it. I can't readily see how to gain access to an object created ...