TdosPrn y preview para matricales

[goosfancito]

Amigos,

Estoy tratando de ubicar algun ejemplo del uso del PREVIEW para impresoras matricales.

Alguien posee alguno?

Gracias.

[Carlos Sincuir]

Goosfancito, si aún no has encontrado nada, te evié a tu correo un trabajo que hice con una clase TRepDos, donde se puede previsualizar los reportes de la TdosPrn, antes de enviarlos a imprimir.

Saludos.

Carlos Sincuir

[goosfancito]

nop, no me llego nada a goosfancito@gmail.com

[Antonio Linares]

Carlos,

Puedes ponerlo en www.hyperupload.com y publicar aqui el link de descarga para todos ? gracias

[Carlos Sincuir]

Listo, esta es la dirección para descarga:
http://hyperupload.com/download/027a9a5 ... S.ZIP.html

En el zip va la clase "TRepDos" que hice para tener reportes tipo columnas, como la Report, solo que para impresoras de matriz utilizando TDosPrn, Ej.:

Code: Select all

////*********************
Function Main()
Local oRepdos, i, oBase

Use .\Inven New Shared
DataBase oBase
oBase:bEof := NIL

REPDOS oRepDos ;
       HEADER "TecniSistemas","Servicio y Asesoria en Sistemas","",;
              "Reporte de Prueba, Clase TRepDos", ;
              "Fecha del Reporte: "+Dtoc( Date() ) ;
       PREVIEW CONDENSED ;
       CAPTION "Prueba de TRepDos..."

ADD COLUMN TO oRepDos ;
    TITLE "Codigo" CENTER ;
    DATA oBase:Clave ;
    SIZE  15 

ADD COLUMN TO oRepDos ;
    TITLE "Descripcion" CENTER ;
    DATA oBase:Producto ;
    SIZE  50 

ADD COLUMN TO oRepDos ;
    TITLE "Precio" CENTER ;
    DATA oBase:Precio1 ;
    SIZE  14 ;
    PICTURE "999,999,999.99"

oRepDos:bSkip  := { || oBase:Skip() }
oRepDos:bWhile := { || !oBase:Eof() }

ACTIVATE REPDOS oRepDos ;
         ON END ( oRepDos:AddLine(), ;
                  oRepdos:Say( "No. de Productos Listados: "+Transform( oBase:Lastrec(),"99999999") ) )

oBase:Close()

RETURN NIL

Ya hecho el reporte utilizo la MPreview, que modifico Paco Soriano para hacer la previsualización. Yo he impreso reportes con mas de 50 páginas sin ningún problema.

Solo les comento que con Clipper5.3+FW2.4 funciona muy bien todo, pero al usar (x)Harbour+FWH2.5, no se si es por la DLL, porque me presenta bien la previsualización de las hojas pero al presionar el boton de imprimir me da un error en los gets al querer mostrar el dialogo "Print" del Preview.dll y querer escoger las páginas a imprimir, y aún no encuentro porque da ese error, si laguien lo soluciona espero nos diga como lo hizo.

Por último, me quedo pendiente hacer lo de los grupos, por tiempo ya no lo hice, pero algo parecido hice pero para generar reportes tipo columnas pero para Excel, "TRepXls", con esta si ya se puede hacer un grupo, si alguien le interesa preparo una demo y la envío.

En el ZIP envío las dos DLL's, de 16 y 32 bits, solo tienen que cambiarlas o utilizar la que tengan y cambiarla en el "Mpreviw.prg"

Espero les sirva.

Carlos Sincuir

[Carlos Sincuir]

Les dejo esta otra dirección para descargar la RepDos:
http://hyperupload.com/download/027a9a5 ... S.ZIP.html

Es que, por estar tratando de ver el error con (x)Harbour, en el anterior zip deje la MPreview de esta forma:

Code: Select all

     ACTIVATE WINDOW   oWnd                      ;
          MAXIMIZED ;
          ON INIT RCambia(oFontT,oPage) ;
          VALID (RExit(fcFile),;
                           oWnd:=NIL,;
                            .t.)
Return (NIL)
//                           SetResources(hOldRes) ,;   

Y lo correcto es:

Code: Select all

     ACTIVATE WINDOW   oWnd                      ;
          MAXIMIZED ;
          ON INIT RCambia(oFontT,oPage) ;
          VALID (RExit(fcFile),;
                          SetResources(hOldRes) ,;   
                           oWnd:=NIL,;
                            .t.)
Return (NIL)

Para que se regrese el archivo de recursos anterior al Preview.dll, en este nuevo zip ya esta arreglado.

Saludos,

Carlos Sincuir

[Antonio Linares]

Carlos,

Gracias

[MauroArevalo]

Carlos:
Utlizo tu clase en Xharbour y no tengo problemas, claro le hice unas pequeñisimas modificaciones:

No utilizo el preview.dll pase los recursos que tenia esta y los adicione a mis propios recursos .RC, por tanto deshabilite del mpreview.prg la llamada a los rercursos

//* SET RESOURCES TO "PREVIEW.DLL"



Saludos

Mauricio Arévalo

[Carlos Sincuir]

Mauro, lo mismo estaba pensando, ya que ese error solo me la da con la DLL prev32 que lleva el ejemplo.

Saludos.

Carlos Sincuir

[jnavas]

Colega
En donde puedo descargar la clase TDOSPRN