Page 1 of 1
TdosPrn y preview para matricales
Posted: Wed Jul 12, 2006 9:16 pm
by goosfancito
Amigos,
Estoy tratando de ubicar algun ejemplo del uso del PREVIEW para impresoras matricales.
Alguien posee alguno?
Gracias.
Posted: Tue Jul 18, 2006 2:42 am
by 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
Posted: Tue Jul 18, 2006 3:31 am
by goosfancito
nop, no me llego nada a
goosfancito@gmail.com
Posted: Tue Jul 18, 2006 8:27 am
by Antonio Linares
Carlos,
Puedes ponerlo en
www.hyperupload.com y publicar aqui el link de descarga para todos ? gracias
Posted: Tue Jul 18, 2006 9:24 am
by 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
Posted: Tue Jul 18, 2006 9:45 am
by 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
Posted: Tue Jul 18, 2006 10:10 am
by Antonio Linares
Carlos,
Gracias
Posted: Tue Jul 18, 2006 10:30 pm
by 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
Posted: Wed Jul 19, 2006 1:16 am
by 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
Re: TdosPrn y preview para matricales
Posted: Thu Apr 03, 2014 4:23 pm
by jnavas
Colega
En donde puedo descargar la clase TDOSPRN