Clase TMultiPreview de Toninho

[Cgallegoa]

Hola amigos,

Desde hace fuuu de años utilizo la clase TMultiPreview de Toninho, la cual funciona extraordinariamente y es super versátil, pero...... está sustentada sobre archivos WMF. Alguien ha logrado adaptarla para archivos EMF.

Toninho, has hecho ajustes a tu extraordinaria clase ? La que tengo dice lo siguiente:

FiveWin MultiPreview 1.3 - Toninho@fwi.com.br
1- Corrigida PRINTER.PRG compativel con FW 2.1C
2- Alterada function cTmpName() para nao ter 2 nomes iguais em
curtos intervalos de tempo

Gracias por la ayuda,

Carlos Gallego

[Antonio Linares]

Carlos,

Tenemos una versión reciente con soporte de EMF.

Envíame un email,

[Silvio]

This is a good Multipreview ( made with last fivetech TPreview class )
I can save also to emf file.




As you can see the code on you program not change !!!

this sample I made with the rep04.prg

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "report.ch"

REQUEST DBFCDX, DBFFPT
external ordkeyno, ordkeycount,ordcreate

STATIC oRpt



Function Rep04()
   RddSetDefault( "DBFCDX" )

   USE CUSTOMER ALIAS CUST
   INDEX ON CUST->Last TAG LAST TO CUSTOMER

     REPORT oRpt  TITLE  "*** My First Report ***" ;
          HEADER "This is the first line of the header", ;
                 "This is the second line of the header", ;
                 "" RIGHT ;
          FOOTER "This is the footer" CENTER ;
          PREVIEW



     COLUMN TITLE "last"         DATA CUST->Last
     COLUMN TITLE "First Name"   DATA CUST->First


     END REPORT

     ACTIVATE REPORT oRpt

     CLOSE CUSTOMER

RETURN NIL

New methods add:

Saveas() -> save to emf format. you can select wich page to save

Gopage() -> go to number page

Multipage() -> create multipages 2/4/6/8/10

SetMultiPages()-> set X/Y pages

[Cgallegoa]

Hola Antonio, gracias por tu respuesta.

Te mandé un email.

Abrazos,

Carlos Gallego