Impresion en modo DOS

[frankmch]

Hola a todos..

He estado probando una manera de agilizar la impresion y encontre este codigo, bastante ilustrativo para lo que necesito.

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

[marcoszorrilla]

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.

[frankmch]

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

un saludo