Печать через TRichEdit

← →
Polo © (2005-02-09 14:48) [0]

procedure MPrint(str:Tstrings;podp:string); var tr:TRichEdit; begin tr:=TRichEdit.Create(Form1); with tr do begin Parent:=Form1; Visible:=false; Font.Name:="Courier New"; Lines.SetText(str.GetText); Print(podp); Destroy; end; end;
При этом на Форме при печати мигает появляющийся РичЕдит.. может не так инициализирую?

← →
Александр Иванов © (2005-02-09 14:50) [1]

Polo © (09.02.05 14:48)
Смысл этой конструкции в печати строки podp?

← →
Polo © (2005-02-09 14:54) [2]

нет.. печати str
а podp - это то как документ называется при печати в окне с очередью печати принтера

← →
Polo © (2005-02-09 14:58) [3]

вместо Lines.SetText(str.GetText);
можно:
Lines:=str;
чтоб виднее было...

← →
Александр Иванов © (2005-02-09 14:58) [4]

Вот так попробуй (пример из хелпа):
uses Printers;
...
procedure MPrint(str:Tstrings;podp:string);
var
r: TRect;
i: Integer;
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
for i := 0 to Str.Count-1 do
Canvas.TextOut(200,200 + (i *
Canvas.TextHeight(str.Strings[i])),str.Strings[i]);
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;
end;

← →
Polo © (2005-02-09 15:12) [5]

помогло с дороботками... попробую применить ! Спасибо!

тока как название документа применить podp:string

Печать через TRichEdit Найти похожие ветки