imprimir en DRAFT
Necesito activar la impresi贸n m谩s b谩sica de la impresora (EPSON LX-810 u otras similares)
Utilic茅 lo siguiente y funcion贸 con Windows 98 pero NO en Windows XP:
??? ' ' && activa la impresora
@1,1 say chr(15) && activa letra condensada
@1,5 say 'Letral condensada'
@2,1 say chr(18) && desactiva letra condensada
@2,5 say 'Letral normal'
Adem谩s, c贸mo hago para imprimir reportes utilzando la letra m谩s r谩pida de la impresora (DRAFT) ??????
Utilic茅 lo siguiente y funcion贸 con Windows 98 pero NO en Windows XP:
??? ' ' && activa la impresora
@1,1 say chr(15) && activa letra condensada
@1,5 say 'Letral condensada'
@2,1 say chr(18) && desactiva letra condensada
@2,5 say 'Letral normal'
Adem谩s, c贸mo hago para imprimir reportes utilzando la letra m谩s r谩pida de la impresora (DRAFT) ??????
Hola yo utiliz贸estas instrucciones para menejar el tipo de letra de la impresora, espero te sea 煤til.
*===== Imprimir factura Normal =====*
Proc ImpFacNor
SELE 1
SET PRINTER ON
SET DEVICE TO PRINTER PROMPT
SET PRINTER FONT 'Arial',8 STYLE 'N'
@12,141 SAY DTOC(FrmFactura.TexFecFac.Value)
@16,8 SAY NomCte
@RENGL,8 SAY FrmFactura.TexDir.Value
@24,80 SAY NomAge
...
...
...
SET PRINTER TO
SET DEVI TO SCRE
Messagebox("Finaliz贸 la impresi贸n de la factura",48,WTITLE())
RETU
*===== Imprimir factura Normal =====*
Proc ImpFacNor
SELE 1
SET PRINTER ON
SET DEVICE TO PRINTER PROMPT
SET PRINTER FONT 'Arial',8 STYLE 'N'
@12,141 SAY DTOC(FrmFactura.TexFecFac.Value)
@16,8 SAY NomCte
@RENGL,8 SAY FrmFactura.TexDir.Value
@24,80 SAY NomAge
...
...
...
SET PRINTER TO
SET DEVI TO SCRE
Messagebox("Finaliz贸 la impresi贸n de la factura",48,WTITLE())
RETU
