12.12.2006, 07:04
общий
это ответ
Здравствуйте, Delphi-n!
Вот Вам рабочий код, в хелпе можете почитать Printing Example поподробнее или просмотреть TPrinter находящийся в QPrinters.
Приложение:
procedure TForm1.Button1Click(Sender: TObject);var prnt:Tprinter;i:integer;beginprnt:=Tprinter.Create;prnt.BeginDoc;prnt.Canvas.Font.Name:=‘Comic Sans MS‘;prnt.Canvas.Font.Size:=12;prnt.Canvas.TextRect(Rect(200,200,prnt.PageWidth-200,prnt.PageHeight-200), 200, 200, Memo1.Lines.Text);prnt.EndDoc;end;