Печать. TDBGrid

← →
Drakon © (2005-09-06 09:46) [0]

База данных: Access *.Mdb
При вводе значений в Edit -> поиск данных и вывод в TDBGrid.
Как сделать вывод на печать этих данных которые появляются в TDBGrid?

← →
ЮЮ © (2005-09-06 09:56) [1]

1) Вывести на печать DataSet, отображаемый в гриде. Используя компоненты с закладки QReport или другие компонентты (библиотеки) формирования отчетов.

2) Использовать TDBGridEh, автор которой тоже считает, что это должен уметь делать Grid :)

← →
Ильш © (2005-09-06 09:57) [2]

QuickReport

← →
Shopot © (2005-09-06 10:25) [3]

www.EhLib.com

Для русских пользователей регистрация бесплатно "ФЕВРАЛЬФЕВРАЛЬ". Качай пакет EhLib.exe (rar) распаковывай и пользуйся. Ниче делать не надо. Все за нас уже сделано. Быстро и красиво!

← →
DrAndrey (2005-09-06 10:36) [4]

Цикл по DataSet с формированием тестового файла и последующим открытием в приложении по умолчанию, наверное "Блокнот".
Работает это быстро, кроме того есть возможность последующего редактирования. Кода 5 строк и никаких компонентов.
Я использую этот прием очень часто. Если интересует - дам код.

← →
Drakon © (2005-09-06 11:58) [5]

To DrAndrey можно код глянуть? nov.v.v@mail.ru

procedure TForm_Setka.ToolBtn_TXTClick(Sender: TObject);
var RST: Recordset; b: Byte; SL: TStringList; sS: String;
begin
try
sS:=""; b:=0;

SL := TStringList.Create; //создание пустого списка строк
With (DBG_Setka.DataSource.DataSet As TADODataset) do begin
RST:= Recordset._xClone;

RST.Sort:= Sort; RST.Filter:=Filter;
end;

With RST do begin
While not EOF do begin
sS:="";
for b:= 0 to Fields.Count-1 do
sS:= sS + VarToStr(Fields[b].Value) + " * ";//разделитель столбцов любой символ, здесь - астерикс
SL.Add(sS);//добавляешь строки в список
MoveNext;
end;
end;
//путь к новому файлу
sS:= ExtractFilePath(application.ExeName)+ Caption + ".txt";
// выгружаешь список в файл
SL.SaveToFile(sS);
//запуск приложения зарег. в системе по умолчанию
ShellExecute(Application.Handle, "open", Pchar(sS), nil, nil,
SW_SHOWNORMAL);

finally
RST.Close;
SL.Free;
end;
end;

TForm_Setka - это класс родитель всех форм с DBGRidamи в моем приложении (обычно справочники), ToolBtn_TXT - это кнопка на панели

Получится наподобие

1* Иванов * Иван * Иван *
2* Петров * Петр * Петрович *
3* Сидоров * Сидор * Сидорович *

Примитивно, но для шпаргалок вполне

Всем спасибо, сделал.
EhLib - классная штука!

> EhLib - классная штука!

хе хе хе хе хе хе хе хе
еще одного подсадили :))))

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