frankmch
06-11-2003, 05:01:46
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
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