печать с помощью компонентов EhLib

← →
lety (2002-11-13 19:05) [0]

Что-то не могу разобраться ни с печатью, ни с экспортом данных с помощью компонентов EhLib. Экспорт, впрочем, важнее!

А еще в описании есть компонент TPreviewBox, но он у меня почему-то не установился.

Помогите! :)

← →
Kombat (2002-11-13 23:20) [1]

авторство не мое, нашел в доках
procedure TfBaseGridForm.aExportExecute(Sender: TObject);
var
ExpClass: TDBGridEhExportClass;
Ext: string;
begin
Screen.Cursor := crHourGlass;
try
if (ActiveControl is TDBGridEh) then
ActiveGrid := (ActiveControl as TDBGridEh)
else
ActiveGrid := dbgMain;
end;
SaveDialog1.FileName := Caption;
if (ActiveGrid.Selection.SelectionType = gstNon) then
dbgMain.Selection.SelectAll;
if SaveDialog1.Execute then begin
case SaveDialog1.FilterIndex of
1: begin
ExpClass := TDBGridEhExportAsText;
Ext := "txt";
end;
2: begin
ExpClass := TDBGridEhExportAsCSV;
Ext := "csv";
end;
3: begin
ExpClass := TDBGridEhExportAsHTML;
Ext := "htm";
end;
4: begin
ExpClass := TDBGridEhExportAsRTF;
Ext := "rtf";
end;
5: begin
ExpClass := TDBGridEhExportAsXLS;
Ext := "xls";
end;
else
ExpClass := nil;
Ext := "";
end;
if ExpClass <> nil then begin
if UpperCase(Copy(SaveDialog1.FileName, Length(SaveDialog1.FileName) - 2,
3)) <>
UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + "." + Ext;
SaveDBGridEhToExportFile(ExpClass, ActiveGrid,
SaveDialog1.FileName, False);
end;
end;
if (ActiveGrid.Selection.SelectionType = gstAll) then
dbgMain.Selection.Clear;
finally
Screen.Cursor := crDefault;
end;
end;

в uses DBGridEhImpExp

Печать при помощи PrintDBGridEh
PrintDBGridEh.BeforeGridText.Clear;
PrintDBGridEh.PageFooter.LeftText.Clear;
PrintDBGridEh.PageFooter.RightText.Clear;
PrintDBGridEh.BeforeGridText.Add(Caption);
PrintDBGridEh.PageFooter.LeftText.Add(Caption);
PrintDBGridEh.PageFooter.RightText.Add(DateTimeToStr(Now));
PrintDBGridEh.Preview;

← →
lety (2002-11-14 18:17) [2]

Спасибо

печать с помощью компонентов EhLib Найти похожие ветки