Amigos,
Estoy tratando de ubicar algun ejemplo del uso del PREVIEW para impresoras matricales.
Alguien posee alguno?
Gracias.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TdosPrn y preview para matricales
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
nop, no me llego nada a goosfancito@gmail.com
Carlos,
Puedes ponerlo en www.hyperupload.com y publicar aqui el link de descarga para todos ? gracias 
Listo, esta es la dirección para descarga:
http://hyperupload.com/download/027a9a5577/REPDOS.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.:
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
http://hyperupload.com/download/027a9a5577/REPDOS.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.:
////*********************
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 NILYa 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
Les dejo esta otra dirección para descargar la RepDos:
http://hyperupload.com/download/027a9a5573/REPDOS.ZIP.html
Es que, por estar tratando de ver el error con (x)Harbour, en el anterior zip deje la MPreview de esta forma:
Y lo correcto es:
Para que se regrese el archivo de recursos anterior al Preview.dll, en este nuevo zip ya esta arreglado.
Saludos,
Carlos Sincuir
http://hyperupload.com/download/027a9a5573/REPDOS.ZIP.html
Es que, por estar tratando de ver el error con (x)Harbour, en el anterior zip deje la MPreview de esta forma:
ACTIVATE WINDOW oWnd ;
MAXIMIZED ;
ON INIT RCambia(oFontT,oPage) ;
VALID (RExit(fcFile),;
oWnd:=NIL,;
.t.)
Return (NIL)
// SetResources(hOldRes) ,;Y lo correcto es:
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
Carlos,
Gracias
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
Edgar Mauricio Arévalo Mogollón.
Bogotá DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programación....
Bogotá DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programación....
Mauro, lo mismo estaba pensando, ya que ese error solo me la da con la DLL prev32 que lleva el ejemplo.
Saludos.
Carlos Sincuir
Colega
En donde puedo descargar la clase TDOSPRN