Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.15;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
2-1135608062
Profi
2005-12-26 17:41
2006.01.15
Странности с TComboBox ом


2-1135264803
з. танька
2005-12-22 18:20
2006.01.15
узнать кто куда лазил


2-1135339853
oleggar
2005-12-23 15:10
2006.01.15
atoms


2-1134550192
uzver.exe
2005-12-14 11:49
2006.01.15
Помогите решить плиз...


5-1121024936
cranium
2005-07-10 23:48
2006.01.15
Компонет наследник TGraphicControl как узнать цвет родителя