Форум: "Начинающим";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Вниз

печать   Найти похожие ветки 

← →
geonew   (2005-12-23 09:43) [0]

Как в Delphi печатать табицы

---

← →
ЮЮ ©   (2005-12-23 09:52) [1]

Не "табицы" уже умеешь? Точно так же.

---

← →
neat   (2005-12-23 10:26) [2]

Вот простой пример:

TForm1.PrintTableClick(Sender: TObject);
var
 xcord: integer;
 ycord: integer;
 recordbuffer: string;
begin
 xcord := 10;
 ycord := 10;
 Table1.First;
 Printer.BeginDoc;
 Printer.Canvas.Font.Name := "Courier New";
 while not Table1.EOF do
 begin
   recordbuffer := concat((Table1.Fields[0].AsString), " ",
     (Table1.Fields[1].AsString));
   recordbuffer := recordbuffer + concat(" ", (Table1.Fields[2].AsString));
     {пока все поля не будут в recordbuffer}

     Printer.Canvas.TextOut(xcord, ycord, recordbuffer);
     ycord := ycord + 50;

     Table1.next;
 end;
 Printer.Enddoc;
end;

ссылка-  http://narod.yandex.ru/cgi-bin/yandmarkup?cluster=14&prog=0x2757571A&HndlQuery=1256426816&PageNum=2&g=24&d=0&q0=11488787 04&p=2

Проверил, работает. Только ycord надо побольше взять, а то строки почти сливаются.

---

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

Форум: "Начинающим";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Наверх

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