| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
печать [D7, XP]
geonew © (2005-12-23 09:43:00)Как в Delphi печатать табицы
neat (2005-12-23 10:26:00) [1]Вот простой пример:
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=1148878704&p=2
Проверил, работает. Только ycord надо побольше взять, а то строки почти сливаются.
ЮЮ (2005-12-23 09:52:00) [2]Не "табицы" уже умеешь? Точно так же.
| |
