FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Impresion en modo DOS
Hola a todos..
He estado probando una manera de agilizar la impresion y encontre este codigo, bastante ilustrativo para lo que necesito. Código:
procedure TForm1.Button1Click(Sender: TObject); Var MyPrinter: TextFile; begin AssignFILE(MyPrinter,'LPT1'); ReWrite(MyPrinter); Write(MyPrinter, CHR(27) + CHR(64)); // Inicializar Impresora Write(MyPrinter, CHR(27)+CHR(67)+CHR(44)); // Fijar Tamaño en Lineas Write(MyPrinter,CHR(27)+ CHR(103)); // Tipo de Letra Chicas Write(MyPrinter,CHR(27)+CHR(197)); // Negrita Write(MyPrinter,CHR(27)+CHR(179)+CHR(28)); // Espacio entre Lineas Write(MyPrinter,' ESTA ES UNA PRUEBA '); Write(MyPrinter,' DE IMPRESION! '); Write(MyPrinter,#12); // Expulsar la Hoja System.CloseFile(MyPrinter); End; __________________ el problema es que al correrlo en mi programa este no hace nada. es decir no envia nada al puerto de impresora, estando esta online y conectada, es decir con la impresora no hay problema. se me ocurre que podria estar obviando algo en el uses del programa o algun otro comando... por favor podrian ayudarme??? de antemano muchas gracias
__________________
ing. frankmch |
|
|
|