FiveTech Software tech support forums

... the invoice button is pressed, these steps are executed: Best regards, Otto    oDevice := DEVICE   aFiles  := oDevice:aMeta   hMeta   := oMeta1:hMeta    cUniqueID := cUniqueID()       CursorWait()   ...

on a Report from Xbrowse I use a function I wisth show the total pages I tried with LTrim( Str( Len( oRep:oDevice:oDevice:aMeta ) ) ) but not run oBrw:Report( cTitle, , , ; { |oRep, oBrw| MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,aFields ) }) function MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,afields ...

... Local aFiles:={} aFiles:=Directory(getenv('TEMP')+'\emf.*') PRINT oPrn NAME 'impresión' PREVIEW MODAL aEval(aFiles,{|x,y| aAdd(oPrn:aMeta, cPath+x[1] ) }) ENDPRINT aEval(aFiles,{|x,y| FERASE( cPath+x[1] ) }) RETU .T. Informacion correspondiente a la clase printer.prg de las versiones ...

Look Len( ::oDevice:aMeta )

Antonio

El método BuildListView() de la clase TPrview es el causante del consumo de memoria.
Al cargar las imágenes en TImageList() del arreglo ::oDevice:aMeta

Saludos

Tienes que crear un objeto metafile: ::oMeta1 := TMetaFile():New( 0, 0, 0, 0,; ::oDevice:aMeta[ 1 ],; ::oWnd,; CLR_BLACK,; CLR_WHITE,; ::oDevice:nHorzRes(),; ::oDevice:nVertRes() ) que es el que visualiza los metafiles en el preview

Marcelo: la solucion sirve SOLO si haces PREVIEW. Si mandas directo a la impresora no se crea oPrn:aMeta Estuve revisando la clase TImprime.prg de TheFull y tiene el siguiente codigo:        if lPageCount .AND. ::oPrn:lMeta    // Quiero poner ...

... CLASS TPreview local hMeta := ::oMeta1:hMeta local oDlg, oRad, oPageIni, oPageEnd local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE local oThis := Self local lCancel := .t. if nLast != 1 DEFINE DIALOG oDlg SIZE 400, 183 TITLE FWString( "Printing" ) oDlg:lTruePixel ...

... temporal metafile could not be created",; "Printer object Error" ) MsgAlert("Could not create temporary file: "+Atail(::aMeta)+CRLF+CRLF+; "Please check your free space on your hard drive "+CRLF+; "and the amount of files handles available." ,; "Print ...

... http://youtu.be/LWdBL191l40 Para poder controlar los .EMF, incluí el siguiente código en el prv2pdf.prg y antes del "AEval( oDevice:aMeta, { | cMeta | oPdf:AddMeta( cMeta ) } )" AEval( oDevice:aMeta, { | cMeta | Tracelog( "cMeta:" + cMeta ) } ...

... 1,  2,va150 ,ofont1)ENDPAGEENDPRINT Como se en este ejemplo el nombre del archivo EMF que crea el PREVIEW. Gracias Carlos Estara en oPrn:aMeta[1], si no me equivoco Prueba esto directamente: #include "fivewin.ch"#include "print.ch"Function Main()Local oFont1Local ...

... I got the gpf between MsgInfo("cName") and MsgInfo("cFile"). There is only 1 line in between : cFile := cFilePath( ::oDevice:aMeta[ 1 ] ) + StrTran( cName, '.', '' ) + ; Left( HB_TToS( HB_DateTime() ), 14 ) + ".pdf" Any idea? Thanks.

... .T. ) ; OF oDlg REDEFINE GET oPageFin ; VAR nLast ID 107 PICTURE "@K 99999" ; VALID If( nLast < nFirst .or. nLast > Len( ::oDevice:aMeta ), ; // DEVICE ( MsgBeep(),.F. ), .T.) OF oDlg oPageIni:Disable() oPageFin:Disable() SetResources( hOldRes ) ACTIVATE DIALOG oDlg ON INIT Msginfo( ...

Este tema a sido el coco para muchos de nosotros aMeta, conforme va generando la pagina va incrementando el valor del array, asi que no vale si no hasta el final que termina de generar. solucion no muy ortodoxa es contar cuantos registros caben en ...

Tras las pruebas hechas, Con : LEN(oReport:oDevice:aMeta) , no se si la pongo donde toca pero me sale pagina 1 de 1, pagina 2 de 2 así hasta el final, pero no pagina 1 de 12 La pongo en : FOOTER OemtoAnsi("Pagina: ")+str(oReport:nPage,3)+" ...