[Страдалецъ]

Примерно так можно:

Код:

implementation
 Uses Printers;

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);
begin
 Printer.BeginDoc;
 Printer.Canvas.Font.Name := 'Courier New';
 Printer.Canvas.Font.Size := 16;
 Printer.Canvas.TextOut(10,10,Edit1.Text);
 Printer.Canvas.TextOut(10,160,Edit2.Text);
 Printer.Canvas.TextOut(10,320,Edit3.Text);
 Printer.Canvas.TextOut(10,480,StringOfChar('-',10));
 Printer.Canvas.TextOut(10,640,'Спасибо');
 Printer.Canvas.TextOut(10,800,'за покупку');
 Printer.EndDoc;
end;