Quickreport çıktısını txt yada excele aktarma

[ertline]

Merhaba arkdaşalar bir quickreport dosyasını açtığımızda txt te yada excel ortamına nasıl atabiliriz.(Print preview görünümünde iken)

[mucit]

Merhaba,

Kod: Tümünü seç

procedure TxtExport(FileName: string; Report: TQuickRep);
var
  TxtExp: TQRAsciiExportFilter;
begin
  if not Assigned(Report) then
    Exit;
  TxtExp:= TQRAsciiExportFilter.Create(FileName);
  try
    Report.ExportToFilter(TxtExp);
  finally
    TxtExp.Free;
  end;
end;

procedure XlsExport(FileName: string; Report: TQuickRep);
var
  XLSExp: TQRXLSFilter;
begin
  if not Assigned(Report) then
    Exit;
  XLSExp:= TQRXLSFilter.Create(FileName);
  try
    Screen.Cursor:= crHourGlass;
    Report.ExportToFilter(XLSExp);
  finally
    Screen.Cursor:= crDefault;
    XLSExp.Free;
  end;
end;

 // Kullanımı :
 TxtExport('C:\MyReport.txt', MyReport);
 XlsExport('C:\MyReport.xls', MyReport);

şeklinde yapabilirsin. Fakat Uses kısmına QRExport'u eklemeyi unutma.

Kolay Gelsin.

[ertline]

Mucit bey bu kodları quicreport nesnesinin neresine yazacağız buton falan kabul etmiyor report nesnesinin bulunduğu form .
nereye yazacağım konusunda biraz daha bilgi verirseniz sevinirim
teşekkürler..

[nitro]

ben bu kodu denedim

TQRXLSFilter undeclared identifier diyor.
çalışmadı.
fikri olan varsa yardımcı olursa sevinirim.
saygılarımla

[hbahadir]

senin kullandığın quicrep versiyonunda (delphi 7 -qr3 diye düşünüyorum) xls filter özelliği yok. bunu satın alman yani prof sürümüne geçmen gerekiyor.