Печать DBGrid - Как определить размер ячейки в TDBGrid

@[XandeR] · Регистрация: 18.03.2009

Студворк — интернет-сервис помощи студентам

Необходимо распечатать DBGrid, потратил 2 дня на поиск и установку компонентов для отчетов для bcb 2009, и все БЕСПОЛЕЗНО!!!
Пытался сделать как описано здесь Печать поля Memo и RichEdit и здесь Печать данних с GroupBox
не получается потому что незнаю как определить размер ячейки в TDBGrid

C++
1
2
3
4
5
6
7
8
9
10
int x=40,y=40;
Printer()->BeginDoc();
Printer()->Canvas = DBGrid1->Canvas;
for (int i = 0; i < DBGrid1->Columns->Count; i++) {
    for (int i2 = 0; i2 < DBGrid1->DataSource->DataSet->RecordCount; i2++) {
 
        Printer()->Canvas->TextOut(x+DBGrid1->c;
    }
}
Printer()->EndDoc();

@[XandeR] · 24.01.2011, 18:33 **[ТС]**

разобрался, ну вот что собственно получилось в итоге

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
if (DBGrid1->DataSource->DataSet->RecordCount<1) {
    return;
}
  int x=300,y=200;
  TPrintDialog *printDialog = new TPrintDialog(this);
  if(printDialog->Execute())
 {
 Printer()->BeginDoc();
 Printer()->Canvas->Font->Size=10;
 Printer()->Canvas->Font->Pitch=fpFixed;
  DBGrid1->DataSource->DataSet->First();
  Printer()->Canvas->TextOut(x,y,"Отчет по дате посещений");
  y+=200;
   Printer()->Canvas->Font->Size=8;
  for (int i2 = 0; i2 < DBGrid1->Columns->Count; i2++) {
    Printer()->Canvas->TextOut(x,y,DBGrid1->Columns->Items[i2]->Title->Caption);
    x+=DBGrid1->Columns->Items[i2]->Width*6;
  }
     Printer()->Canvas->Font->Size=8;
   for (int i = 0; i < DBGrid1->DataSource->DataSet->RecordCount; i++) {
    for (int i2 = 0; i2 < DBGrid1->Columns->Count; i2++) {
        AnsiString text2,text= DBGrid1->DataSource->DataSet->FieldByName(DBGrid1->Columns->Items[i2]->FieldName)->AsAnsiString;
        int maxchar=50;
        if (i2==0) {
            Printer()->Canvas->Font->Style<<fsBold;
        }  else {
            Printer()->Canvas->Font->Style>>fsBold;
        }
        if (text.Length()>maxchar) {
            for (int i3 = 0; i3 < (text.Length()/maxchar+1); i3++)
            {
                text2=text.SubString((maxchar+1)*i3,maxchar);
                Printer()->Canvas->TextOut(x,y,text2);
                if (i3<(text.Length()/maxchar)) {
                 y+=200;
                }
            }
        } else {
            Printer()->Canvas->TextOut(x,y,text);
        }
 
        x+=DBGrid1->Columns->Items[i2]->Width*6;
    }
    y+=200;
    x=300;
    DBGrid1->DataSource->DataSet->Next();
    if (y>6700) {
     Printer()->NewPage();
     y=200;
    }
   }
 
 Printer()->EndDoc();
 }

@Lord_Voodoo · 24.01.2011, 23:58

[XandeR], а не проще это сделать в генераторе отчетов?

@l_nrifonova · 13.04.2011, 14:29

Сообщение от [XandeR

;1313788]

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
if (DBGrid1->DataSource->DataSet->RecordCount<1) {
 return;
}
 int x=300,y=200;
 TPrintDialog *printDialog = new TPrintDialog(this);
 if(printDialog->Execute())
{
Printer()->BeginDoc();
Printer()->Canvas->Font->Size=10;
Printer()->Canvas->Font->Pitch=fpFixed;
 DBGrid1->DataSource->DataSet->First();
 Printer()->Canvas->TextOut(x,y,"Отчет по дате посещений");
 y+=200;
Printer()->Canvas->Font->Size=8;
 for (int i2 = 0; i2 < DBGrid1->Columns->Count; i2++) {
    Printer()->Canvas->TextOut(x,y,DBGrid1->Columns->Items[i2]->Title->Caption);
    x+=DBGrid1->Columns->Items[i2]->Width*6;
 }
Printer()->Canvas->Font->Size=8;
for (int i = 0; i < DBGrid1->DataSource->DataSet->RecordCount; i++) {
 for (int i2 = 0; i2 < DBGrid1->Columns->Count; i2++) {
 AnsiString text2,text= DBGrid1->DataSource->DataSet->FieldByName(DBGrid1->Columns->Items[i2]->FieldName)->AsAnsiString;
 int maxchar=50;
 if (i2==0) {
   Printer()->Canvas->Font->Style<<fsBold;
 }else {
  Printer()->Canvas->Font->Style>>fsBold;
}
 if (text.Length()>maxchar) {
   for (int i3 = 0; i3 < (text.Length()/maxchar+1); i3++)
   {
 text2=text.SubString((maxchar+1)*i3,maxc

Вот, попробовала код...выводит ошибку

C++
1
[C++ Error] Unit11.cpp(82): E2316 'AsAnsiString' is not a member of 'TField'

...что не так делаю?

@MsGuns · 13.04.2011, 15:36

ИМХО, самое правильное решение - выгрузить содержимое сетки в Excel. При этом можно даже сохранить стиль, размер и шрифт колонок.

@[XandeR] · 14.04.2011, 22:35 **[ТС]**

В эксель долго, нужна печать напрямую

@MsGuns · 15.04.2011, 09:59

А что мешает "напрямую" напечатать из Экселя ?

@Lord_Voodoo · 15.04.2011, 10:20

l_nrifonova, E2316 'AsAnsiString' is not a member of 'TField' - эта ошибка говорит о том, что вы используете метод, которого нет в классе, надо AsString... и пора бы уже изучать капризы IDE, в жизни пригодится, тем более ошибки более-менее понятные по смыслу

@Hagk · 20.08.2014, 16:27

Из всего выше сказанного кажется, что вывод отчета напрямую через DBGrid оформить нельзя! Выходит, все через TQuickRep и т.д. А что делать тем, у кого нету данного компонента (C++ Builder xe)? Вернее он есть, но это все плод воображения, релиза и просто битого продукта((
Подскажите пожалуйста!

@D1973 · 20.08.2014, 17:47

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

Выходит, все через TQuickRep и т.д.

Вот именно, через "т.д." Если мне склероз не изменяет, то начиная с BCB6 повился редактор отчетов RAVE Report, а в Builder XE3 встроен FastReport 4.0

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	24.01.2011, 23:58
	[XandeR], а не проще это сделать в генераторе отчетов? 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	13.04.2011, 15:36
	ИМХО, самое правильное решение - выгрузить содержимое сетки в Excel. При этом можно даже сохранить стиль, размер и шрифт колонок. 0

@[XandeR] 31 / 31 / 3 Регистрация: 18.03.2009 Сообщений: 381 Записей в блоге: 2
	14.04.2011, 22:35 [ТС]
	В эксель долго, нужна печать напрямую 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	15.04.2011, 09:59
	А что мешает "напрямую" напечатать из Экселя ? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	15.04.2011, 10:20
	l_nrifonova, E2316 'AsAnsiString' is not a member of 'TField' - эта ошибка говорит о том, что вы используете метод, которого нет в классе, надо AsString... и пора бы уже изучать капризы IDE, в жизни пригодится, тем более ошибки более-менее понятные по смыслу 1

@Hagk -1 / 0 / 2 Регистрация: 11.08.2014 Сообщений: 46
	20.08.2014, 16:27
	Из всего выше сказанного кажется, что вывод отчета напрямую через DBGrid оформить нельзя! Выходит, все через TQuickRep и т.д. А что делать тем, у кого нету данного компонента (C++ Builder xe)? Вернее он есть, но это все плод воображения, релиза и просто битого продукта(( Подскажите пожалуйста! 0