[gebs]

Здравствуйте. Помогите сделать отчёт с нумерацией строк.
Сейчас это выглядит так


Отчёт формируется так:

Код:

...
PrinterPreview.Previewer.ViewMode:=vm150;
PrintDBGridEh_orgastat.Preview;
...

Свойство грида ShowRecNo=true но в отчёт нумерация не попадает:

Если можно поделитесь правильным кодом или наведите на путь истинный. Спасибо.

[Pilot_Red]

Я бы не стал придумывать велосипед а использовал бы готовые построители отчетов например FastReports или RaveReports.

[gebs]

Сообщение от Pilot_Red

Я бы не стал придумывать велосипед а использовал бы готовые построители отчетов например FastReports или RaveReports.

Но: на событии OnGetCellParams в новом созданном столбце делаем:

Код:

...
if (DataModule10.MyQ_orgstat.RecNo > 0) then
Params.Text:= IntToStr(DataModule10.MyQ_orgstat.RecNo);
...

При этом в отчёте появляется нумерация в вгриде нет. Я так понимаю надо на событии в гриде OnDrowDataCell что-то сделать...

[Pilot_Red]

Сообщение от gebs

Но: на событии OnGetCellParams в новом созданном столбце делаем:

Код:

...
if (DataModule10.MyQ_orgstat.RecNo > 0) then
Params.Text:= IntToStr(DataModule10.MyQ_orgstat.RecNo);
...

При этом в отчёте появляется нумерация в вгриде нет. Я так понимаю надо на событии в гриде OnDrowDataCell что-то сделать...

так я не понимаю, тебе в гриде нужна нумерация, или в самом отчете???

[gebs]

Сообщение от Pilot_Red

так я не понимаю, тебе в гриде нужна нумерация, или в самом отчете???

Ну в отчёте я уже сделал, осталось в гриде.

[Pilot_Red]

в гриде... можно конечно использовать DrawColumnCell. и в нем чисто recNo отрисовывать. Но этот фокус прокатит, если у тебя таблица будет выводится в чистом виде, без всяких фильтров, т.к. может получиться такое
............
1
2
3
4
10
11
55
56
57