DOSPRINT3
Publicado por Geo (9 intervenciones) el 31/10/2001 17:47:32
Hola amigos,
tengo problemas para utilizar la clase DOSPRINT3, he utilizado el DOSPRINT2 y me ha funcionado perfectamente, pero ahora quiero utilizar los mismos programas en la CLASE 3 y no me funciona, siempre me devuelve .F. el metodo PRINT().
Aca les envio un ejemplo con el que prové ambas versiones.
Como podran darse cuenta es el mismo procedimiento que ponen en el ejemplo del DOSPRINT2, pero en el DOSPRINT3 no me funciona.
Tambien trate de ejecutar los ejemplos que acompañan al DOSPRINT3, y me funcionan para imprimir a un archivo, pero cuando cambio el PRINTTOFILE() POR EL PRINT(), no me envia el informe a la impresora. Siempre me devuelve .F.
Les agradecería cualquier ayuda que me puedas enviar, ya que me parecen grandiosas las mejoras que han realizado a esta nueva version.
Muchas gracias por tu tiempo.
PROCEDURE PRUEBA
private oRep
set classlib to dosprint3
oRep=create("cDOSPrint")
oRep.PaperLenght=30
oRep.StartConfString=chr(27)+"C"+chr(30)+chr(15)
oRep.TopMargin=0
oRep.HeaderString="XYZ C.A. $CRLF$"+;
"Informe de clientes $CRLF$"+;
"$CRLF$" + ;
"CODIGO NOMBRE $CRLF$" + ;
"====== ===================="
oRep.FooterString="$CRLF$$CRLF$Página: $PAGENO$ Fecha: $DATETIME$"
oRep.FooterLenght=3
oRep.Clear()
select 0
use clientes
go top
scan
oRep.WriteLn(alltrim(str(codigo))+" "+nombre)
endscan
oRep.Eject()
oRep.Print()
close all
tengo problemas para utilizar la clase DOSPRINT3, he utilizado el DOSPRINT2 y me ha funcionado perfectamente, pero ahora quiero utilizar los mismos programas en la CLASE 3 y no me funciona, siempre me devuelve .F. el metodo PRINT().
Aca les envio un ejemplo con el que prové ambas versiones.
Como podran darse cuenta es el mismo procedimiento que ponen en el ejemplo del DOSPRINT2, pero en el DOSPRINT3 no me funciona.
Tambien trate de ejecutar los ejemplos que acompañan al DOSPRINT3, y me funcionan para imprimir a un archivo, pero cuando cambio el PRINTTOFILE() POR EL PRINT(), no me envia el informe a la impresora. Siempre me devuelve .F.
Les agradecería cualquier ayuda que me puedas enviar, ya que me parecen grandiosas las mejoras que han realizado a esta nueva version.
Muchas gracias por tu tiempo.
PROCEDURE PRUEBA
private oRep
set classlib to dosprint3
oRep=create("cDOSPrint")
oRep.PaperLenght=30
oRep.StartConfString=chr(27)+"C"+chr(30)+chr(15)
oRep.TopMargin=0
oRep.HeaderString="XYZ C.A. $CRLF$"+;
"Informe de clientes $CRLF$"+;
"$CRLF$" + ;
"CODIGO NOMBRE $CRLF$" + ;
"====== ===================="
oRep.FooterString="$CRLF$$CRLF$Página: $PAGENO$ Fecha: $DATETIME$"
oRep.FooterLenght=3
oRep.Clear()
select 0
use clientes
go top
scan
oRep.WriteLn(alltrim(str(codigo))+" "+nombre)
endscan
oRep.Eject()
oRep.Print()
close all
Valora esta pregunta


0