Delphi - Delphi con impresoras Fiscales

procedure ImprimeTicket;

var

  iImpresora : TextFile;

  sPuertoImpre: string;

begin

  sPuertoImpre := 'LPT1'; //No recuerdo si es LPT1 o LPT1: hay que probar //Puerto: LPT1, LPT2, COM1, COM2, etc; depende de tu sistema operativo

  Assignfile(iImpresora,sPuertoImpre);

  Rewrite(iImpresora);

  Writeln(iImpresora,'Hola mundo');

  Writeln(iImpresora,'Texto para el ticket');

  Writeln(iImpresora,'');

  Writeln(iImpresora,'');

  Writeln(iImpresora,'');

  CloseFile(iImpresora);

end;

//Este metodo se recomienda para impresoras termicas y de alta velocidad de impresion, olvidalo si es impresora de impacto porque tarda en imprimir

//Hay que agregar al uses la unidad "printers"

procedure ImprimeTicket;

var

  x, y: integer;

begin

  Printer.PrinterIndex := Printer.Printers.IndexOf('Tu impresora de windows');// es obvio que aqui va el nombre de la impresora tal cual la tienes en tu lista de impresoras instaladas

  Printer.BeginDoc;

  //puedes seleccionar fuentes distintas asi

  //Printer.Canvas.Font.Name := 'Arial';

  x := 15;

  y := 30;

  Printer.Canvas.TextOut(X, Y, 'Hola mundo');

  y := y + Printer.Canvas.TextHeight('I') + 5; // con esta linea recorres la posicion "y" justo la altura del texto mas 5 pixeles

  Printer.Canvas.TextOut(X, Y, 'Texto para el ticket');

  y := y + Printer.Canvas.TextHeight('I') + 5;

  Printer.Canvas.TextOut(X, Y, '');

  y := y + Printer.Canvas.TextHeight('I') + 5;

  Printer.Canvas.TextOut(X, Y, '');

  y := y + Printer.Canvas.TextHeight('I') + 5;

  Printer.Canvas.TextOut(X, Y, '');

  Printer.EndDoc;

end;