09/03/2006, 11:04
|
| | Fecha de Ingreso: marzo-2006
Mensajes: 7
Antigüedad: 18 años, 2 meses Puntos: 0 | |
codigo Uso:
*********
dim ImpSalida as RawPrinter
Set ImpSalida = New RAWPrinter
' *** Inicializacion obj
ImpSalida.SelectImpresora ("nombre de la impresora de windows")
ImpSalida.NewDoc ("texto de salida en el manejador de spool de windows")
' *** envio del archivo plano
nomsalida="c:\desarrollo\test.txt"
ImpSalida.PrintFile NomSalida
' **** envio de datos a la impresora
Salida=crh(27) & "F Texto en negrilla"
ImpSalida.PrintText Salida
' ***** Cierre de la impresion
ImpSalida.EndDoc
Set ImpSalida = Nothing |