manipular impresoras
Hola:
Aguien me podria proporcionar los codigos para manipular las impresoras atraves de programacion en visual fox pro por ejemplo la oriantacion el tamaño
la reinicializacion de la impresora y todo lo relacionado
Aguien me podria proporcionar los codigos para manipular las impresoras atraves de programacion en visual fox pro por ejemplo la oriantacion el tamaño
la reinicializacion de la impresora y todo lo relacionado
*/ O relatorio tem que ser externo ao projecto
*/ Antes de mandares imprimir o relatoria tens que o abrir
*/ Para entenderes melhor olha o help do PRTINFO()
*/ Olha tambem o que esta no campo Expr do relatorio no registo
*/ onde o campo ObjType=1
*/ Nota que os relatorios do foxpro são tabelas com a extensao FRX.
*/ Podes abria-las com USE ???????.FRX
cConf="PAPERSIZE=256"+CHR(13)+CHR(10)+;
"PAPERLENGTH=300"+CHR(13)+CHR(10)+;
"PAPERWIDTH=150"+CHR(13)+CHR(10)+;
"YRESOLUTION="+Alltrim(Str(PRTINFO(11),4))
USE (meu_retatorio.frx) IN 0 ALIAS xxx
SELECT xxx
Go 1
If ObjType=1
Replace Expr with cConf,;
Tag with "",;
Tag2 with ""
ENDIF
USE IN xxx
KeyBoard "{CTRL+F10}"
Report Form (Meu_Relatorio) NOCONSOLE PREVIEW
Espero que te ajude
JCMB
*/ Antes de mandares imprimir o relatoria tens que o abrir
*/ Para entenderes melhor olha o help do PRTINFO()
*/ Olha tambem o que esta no campo Expr do relatorio no registo
*/ onde o campo ObjType=1
*/ Nota que os relatorios do foxpro são tabelas com a extensao FRX.
*/ Podes abria-las com USE ???????.FRX
cConf="PAPERSIZE=256"+CHR(13)+CHR(10)+;
"PAPERLENGTH=300"+CHR(13)+CHR(10)+;
"PAPERWIDTH=150"+CHR(13)+CHR(10)+;
"YRESOLUTION="+Alltrim(Str(PRTINFO(11),4))
USE (meu_retatorio.frx) IN 0 ALIAS xxx
SELECT xxx
Go 1
If ObjType=1
Replace Expr with cConf,;
Tag with "",;
Tag2 with ""
ENDIF
USE IN xxx
KeyBoard "{CTRL+F10}"
Report Form (Meu_Relatorio) NOCONSOLE PREVIEW
Espero que te ajude
JCMB
