печать

← →
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 надо побольше взять, а то строки почти сливаются.

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