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

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

печатная форма [D6]

nyron ©   (2006-04-17 17:26:00) 

Добрый день. подскажите пожалуйста как можно распечатывать из дельфи? т.е. у меня на форме есть, ну не важно, допустим несколько Edit со словами, и эти edit'ы расположены горизонтально, так вот как сделать так, чтобы это можно было распечатать?

---

vovnuke   (2006-04-17 17:49:00) [1]

а вообще, существуют дизайнеры отчетов.

---

kilkennyCat   (2006-04-17 17:42:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
 r: TRect;
 i: Integer;
begin
 with Printer do
   begin
     r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
     BeginDoc;
     Canvas.Brush.Style := bsClear;
     for i := 0 to Memo1.Lines.Count do
      Canvas.TextOut(200,200 + (i *
                  Canvas.TextHeight(Memo1.Lines.Strings[i])),
                  Memo1.Lines.Strings[i]);

     Canvas.Brush.Color := clBlack;
     Canvas.FrameRect(r);
     EndDoc;
   end;
end;

Это примитивный пример из справки Делфи по использованию TPrinter

---

nyron   (2006-04-17 17:30:00) [3]

ну можно написать form1.print а как сделать так чтобы распечатывался текст из этой формы?

---

vovnuke   (2006-04-17 17:28:00) [4]

что это?

---

Наверх