[akimov_aleks]

помогите решить проблему...
не разу не сталкивался по этому незнаю как.
есть Edit1 Edit2 Edit3 Edit4
нужно напичатать их на чеке
вида
--------------
| |
|имя Edit1 |
| |
|Фам Edit2 |
|отч Edit3 |
| |
| спасибо за |
| покубку |
--------------
что то так как это сделать и чтоб печать начиналась на принтор по умолчанию.

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

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

Код:

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;