Как вывести на печать содержимое DBGrid?

12.06.2007, 17:57. **Показов** 2038. **Ответов** 6

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

Добрый день!
Подскажите пожалуйста как вывести на печать содержимое DBGrid.
Printer.Print DBGrid1.Text - печатает только первую ячейку из первой строки.
Заранее благодарю!

12.06.2007, 22:21

Сделай отчет, например с помощью DataReport, с теми же данными, что и в гриде и рапечатывай отчет, отчеты же для этих целей и созданы.
Можно конечно и с помощью Printer как тебе советовали для текстбокса, маленько усложнить обработчик, но одно дело распечатать значение из текстбокса, другое таблицу данных. Делай отчет и не мучайся.

13.06.2007, 09:48

Так-то оно так, но мне нужен отчет в котором кроме полей из Recordset'a должны быть и итоговые расчетные данные из текстовых полей, которые к базе в данный момент отношения не имеют.
Они должны быть как-бы в заголовке Reporta.
Что-то типа:
Всего было заказов _____
Из них .1 категории ______
.2 категории ______

'Плохие' клиенты (по отдельному критерию)
Вот тут и нужна таблица (форматированная):
ФИО, дата1, дата2, прим.

13.06.2007, 09:57

Ну так сделай например функции, которые бы тебе это возвращали и и спользуй их в отчете, или передавай в еще отчет ссылку на форму в которой у тебя выводятся эти сведения и через эту ссылку уже в отчете помещай их на него.

13.06.2007, 11:29

Простите чайника, но что-то я не пойму как в PageHeader в Reporte сделать ссылку на текстовое поле в форме?
Или это не-возможно?
Тогда как можно сделать чтобы в заголовке отчета среди текста можно было вставить число из текстового поля из другой формы?
Подскажите пож-ста, пли-и-из...

13.06.2007, 12:12

Делаешь так, в отчете в ReportHeader помещаешь Lable1.

Затем в модуле этого отчета делаешь к примеру свойство Header:

Property Let Header(h As String)
Me.Sections('ReportHeader').Controls('La bel1').Caption = h
End Property

А в форме из котрой ты открываешь отчет и в которой есть к примеру текстбокс по имени Text1, делаешь следующим образом:

MyReport.Header=Text1.Text
MyReport.Show

В отчете в хедере отобразится содиржимое текстбокса из формы.

13.06.2007, 12:54

Спасибо огромное!!! Все получилось.
С меня пиво...

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 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-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

Mavr
	12.06.2007, 22:21
	Сделай отчет, например с помощью DataReport, с теми же данными, что и в гриде и рапечатывай отчет, отчеты же для этих целей и созданы. Можно конечно и с помощью Printer как тебе советовали для текстбокса, маленько усложнить обработчик, но одно дело распечатать значение из текстбокса, другое таблицу данных. Делай отчет и не мучайся.

ger
	13.06.2007, 09:48
	Так-то оно так, но мне нужен отчет в котором кроме полей из Recordset'a должны быть и итоговые расчетные данные из текстовых полей, которые к базе в данный момент отношения не имеют. Они должны быть как-бы в заголовке Reporta. Что-то типа: Всего было заказов _____ Из них .1 категории ______ .2 категории ______ 'Плохие' клиенты (по отдельному критерию) Вот тут и нужна таблица (форматированная): ФИО, дата1, дата2, прим.

Mavr
	13.06.2007, 09:57
	Ну так сделай например функции, которые бы тебе это возвращали и и спользуй их в отчете, или передавай в еще отчет ссылку на форму в которой у тебя выводятся эти сведения и через эту ссылку уже в отчете помещай их на него.

ger
	13.06.2007, 11:29
	Простите чайника, но что-то я не пойму как в PageHeader в Reporte сделать ссылку на текстовое поле в форме? Или это не-возможно? Тогда как можно сделать чтобы в заголовке отчета среди текста можно было вставить число из текстового поля из другой формы? Подскажите пож-ста, пли-и-из...

Mavr
	13.06.2007, 12:12
	Делаешь так, в отчете в ReportHeader помещаешь Lable1. Затем в модуле этого отчета делаешь к примеру свойство Header: Property Let Header(h As String) Me.Sections('ReportHeader').Controls('La bel1').Caption = h End Property А в форме из котрой ты открываешь отчет и в которой есть к примеру текстбокс по имени Text1, делаешь следующим образом: MyReport.Header=Text1.Text MyReport.Show В отчете в хедере отобразится содиржимое текстбокса из формы.

ger
	13.06.2007, 12:54
	Спасибо огромное!!! Все получилось. С меня пиво...