[Paskal]

Все спс сам нашел в книге
вот для тем кому интересно ---->

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
Line: TextFile;
I: integer;
begin
If PrintDialog1.Execute then
 begin
       AssignPrn(Line);
       ReWrite(Line);
       Printer.Canvas.Font := Memo1.Font;
   for I := 0 to Memo1.Lines.Count -1 do Writeln (Line, Memo1.Lines[i]);
       System.CloseFile(Line);
end;