VPF::Как распечатать всю таблицу DBGrid

Guest

Дата 26.6.2005, 13:56 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как можно распечатать всю таблицу DBGrid? То есть чтобы печатались все линейки: столбцы, строки?

Это сообщение отредактировал(а) Alex - 26.6.2005, 14:47

mvdr

Дата 26.6.2005, 14:00 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

http://forum.vingrad.ru/index.php?showtopi...ечатать+таблицу а вообще есть поиск
Добавлено @ 14:08

Код


uses ComObj, ActiveX;

...

var
Excel, Wb, Ws: Variant;
Unknown:IUnknown;
Result:HRESULT;
AppProgID:string;
i, j: integer;
begin
try
 AppProgID:='Excel.Application';
 Result:=GetActiveObject(ProgIdToClassId(AppProgID),nil,Unknown);
 if Result=MK_E_UNAVAILABLE
  then
   Excel:=CreateOleObject(AppProgId)
  else
   Excel:=GetActiveOleObject(AppProgId);
 Excel.Visible:=False;
 Wb := Excel.WorkBooks.Add(1);
 Ws := Wb.WorkSheets[1];
 for i:=0 to StringGrid1.ColCount-1 do
  for j:=0 to StringGrid1.RowCount-1 do
    Ws.Cells[j+1, i+1] := StringGrid1.Cells[i,j];
 Excel.Visible := True;
finally
 Excel := Unassigned;
 Excel := null;
end;
end;

Автор Pakshin A.S.

http://forum.vingrad.ru/index.php?showtopic=31909&hl= или вот здесь читай

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Гость_Elvis

Дата 30.6.2005, 03:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Femida, не получается. Ошибка выходит.
У меня не StringGrid а DBGrid. Я бы знад как изменить, так изменил бы. И Вас не терроризировал. Но я не знаю. Подскажешь. А?

Vit

Дата 30.6.2005, 05:13 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Есть такая замечательная штука - репортинговые системы называется!

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Akella

Дата 30.6.2005, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

А еще есть такая замечательная штука EhLib называется.
Там есть классный DBGridEh, к нему подключается PrintDBGridEh и выполняется всего одна строчка кода

Код


 PrintDBGridEh1.Preview;
или
 PrintDBGridEh1.Print;

очень просто. Печатает таблицу так, как видишь ты DBGrid, т.е. шрифт, цета, ширины колонок и т.д., а также у PrintDBGridEh есть всякий футеры и хэдэры, причёт в формате RTF smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »