| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Polo ©   (2005-02-09 14:48:00) 


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 15:23:00) [1]

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

---

Polo   (2005-02-09 15:20:00) [2]

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

---

Polo   (2005-02-09 15:12:00) [3]

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

---

Polo   (2005-02-09 14:58:00) [4]

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

---

Александр Иванов   (2005-02-09 14:58:00) [5]

Вот так попробуй (пример из хелпа):
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 14:54:00) [6]

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

---

Александр Иванов   (2005-02-09 14:50:00) [7]

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

---

Наверх