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
