Скачать: CL | DM;

Печать через 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]

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

---

← →
Polo ©   (2005-02-09 15:20) [6]

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

---

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

Polo ©   (09.02.05 15:20) [6]
Printer.Title:=podp;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c