oscarac
10-06-2011, 06:33:48
buenas noches
Tengo esta rutina que me sirve para imprimir un ticket de consumo, el problema que tengo es que la impresora imprime pero la fuente no es la de una matricial, mas bien la fuente es como dibujada (tipo arial), me gustaria saber como puedo mandar a imprimir pero con las fuentes de la impresora
procedure TfrmValesdeConsumo.ImprimirTicket;
var
impresora:TextFile;
vCadena : string;
begin
AssignPrn(Impresora);
rewrite(Impresora);
Writeln(Impresora,'Servicial Peru S.A.C.');
Writeln(Impresora,'R.U.C. : 20509227234');
Writeln(Impresora,'');
Writeln(Impresora,'Cajero : ' + dmComedor.g_NombreUsuario);
Writeln(Impresora,'');
Writeln(Impresora,'Codigo : ' + edtTrabajador.Text);
Writeln(Impresora,'');
Writeln(Impresora,lbltrabajador.caption);
Writeln(Impresora,'');
Writeln(Impresora,'Fecha :' + FormatDatetime('dd/mm/yyyy', dmComedor.g_fecha));
Writeln(Impresora,'Doc. :' + _DOC);
Writeln(Impresora,'');
CDSConsumo.First;
while not CDSConsumo.Eof do
Begin
vCadena := IntToStr(CDSConsumoCantidad.Value) + ' ' +
CDSConsumoCodigo.AsString + ' ' +
CDSConsumoDescripcion.AsString + ' ' +
FloatToStr(CDSConsumoTotal.Value);
Writeln(Impresora, vCadena);
CDSConsumo.Next;
End;
Writeln(Impresora,'');
Writeln(Impresora,'');
Writeln(Impresora,'');
Writeln(Impresora,'');
Writeln(Impresora,#27+'m');
CloseFile(impresora);
end;
Tengo esta rutina que me sirve para imprimir un ticket de consumo, el problema que tengo es que la impresora imprime pero la fuente no es la de una matricial, mas bien la fuente es como dibujada (tipo arial), me gustaria saber como puedo mandar a imprimir pero con las fuentes de la impresora
procedure TfrmValesdeConsumo.ImprimirTicket;
var
impresora:TextFile;
vCadena : string;
begin
AssignPrn(Impresora);
rewrite(Impresora);
Writeln(Impresora,'Servicial Peru S.A.C.');
Writeln(Impresora,'R.U.C. : 20509227234');
Writeln(Impresora,'');
Writeln(Impresora,'Cajero : ' + dmComedor.g_NombreUsuario);
Writeln(Impresora,'');
Writeln(Impresora,'Codigo : ' + edtTrabajador.Text);
Writeln(Impresora,'');
Writeln(Impresora,lbltrabajador.caption);
Writeln(Impresora,'');
Writeln(Impresora,'Fecha :' + FormatDatetime('dd/mm/yyyy', dmComedor.g_fecha));
Writeln(Impresora,'Doc. :' + _DOC);
Writeln(Impresora,'');
CDSConsumo.First;
while not CDSConsumo.Eof do
Begin
vCadena := IntToStr(CDSConsumoCantidad.Value) + ' ' +
CDSConsumoCodigo.AsString + ' ' +
CDSConsumoDescripcion.AsString + ' ' +
FloatToStr(CDSConsumoTotal.Value);
Writeln(Impresora, vCadena);
CDSConsumo.Next;
End;
Writeln(Impresora,'');
Writeln(Impresora,'');
Writeln(Impresora,'');
Writeln(Impresora,'');
Writeln(Impresora,#27+'m');
CloseFile(impresora);
end;