FoxPro/Visual FoxPro - DOSPRINT3

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder