Процедура печать и настройки печати

[_Solomon_]

Пожалуста помогите с процедурой Печати и нанастройками принтера, имеется простой блокнот........печать будет проиходить из Memo1

[Alex21]

На, было у меня когда-то, а вообще F1 -> Printer
var
To_Prn : TextFile;
i: Integer;
.......

Screen.Cursor := crHourGlass;
Printer.Canvas.Font:=Memo1.Font;
printer.Canvas.Font.Size:=Memo1.Fon t.Size;
printer.Orientation:=poLandscape; //poPortrait, poLandscape ориентация листа

try
AssignPrn(To_Prn);
Rewrite(To_Prn);
for i := 0 to Memo1.Lines.Count do
Writeln(To_Prn, Memo1.Lines[i]);
CloseFile(To_Prn);
finally
Screen.Cursor := crDefault;
end;

[_Solomon_]

сенькью вери мач, бегу пробовать......