Текущий архив: 2006.05.07;
Скачать: CL | DM;

Вниз

печатная форма   Найти похожие ветки 

← →
nyron ©   (2006-04-17 17:26) [0]

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

---

← →
vovnuke ©   (2006-04-17 17:28) [1]

что это?

---

← →
nyron ©   (2006-04-17 17:30) [2]

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

---

← →
kilkennyCat ©   (2006-04-17 17:42) [3]

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

---

← →
vovnuke ©   (2006-04-17 17:49) [4]

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

---

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

Текущий архив: 2006.05.07;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.01 c