Foros Club Delphi - Impresion en modo DOS

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Impresion en modo DOS (https://www.clubdelphi.com/foros/showthread.php?t=5021)

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

Lo primero a tener en cuenta, es que hay impresoras que ya no imprimen en modo DOS, lo segundo, es que estos códigos, no son estandar, por lo que suponiendo que tu impresora si imprima en modo DOS tienes consultar el manual de la misma para saber que códigos hay que enviarle, de tal manera que el código que publicas puede servir de ejemplo, pero haciendo las modificaciones pertinentes.

Un Saludo.

gracias por la ayuda amigo.
tienes razon, la impresora que estaba utilizando luego de revizarel manual no acepta impresion en dos.

un saludo