ExpressQuantumGrid 4 de yazdırma işlemleri

[oguthan]

değerli kardeşlerim,
ExpressQuantumGrid 4 'in cxgrid bileşeni ile dbtableviewdeki bilgiler gridde görünüyor ve süzme işlemlerinde bir sorun yok ancak süzülen bilgileri print etmem gerek ve xls dosyasına aktarmam gerek bu konuda bana yardımcı olmanızı beklemekteyim

Allaha emanet olun..

[Vital]

vay vay vay 3 yil olmus peki cevabi buldun mu bari oguthan?

[tuna]

vay vay vay 3 yil olmus peki cevabi buldun mu bari oguthan?

Vital pardon ama 3 yıl olan nedir ben anlayamadım. Arkadaş soruyu daha yeni sormuş. Sen cevap vereceğine dalga geçmişsin galiba

[sabanakman]

Muhtemelen eskiden tanışıklardır ve en son 3 yıl önce görüşmüş olabilirler .

[Vital]

hehe kusura bakmayin arkadaslar topic yanlis olmus ozur.

Oguthan excel e asagidaki kod ile gonderebilirsin veya jedinin JvDBGridExcelExportadlı bileseni ile gonderebilirsin.raporlamada ise freereport u oneririm arayuzu basit veya qrpt kullan ileriye donuk olmayacak ise yine yapamazsan yardimci olurum.

ben query kullandim sen table e cevirebilirsin.
var
xDS: TDataSet;
xls, wb, ws, vv: variant;
i, j: integer;
fName: string;
fDosya: textfile;
begin
SaveDialog1.Execute;
xls := CreateOleObject('Excel.Sheet');
wb := xls.Application.WorkBooks.Add;
ws := wb.Sheets.Add;
ibQuery1.DisableControls;
ibQuery1.First;
for i := 1 to ibQuery1.RecordCount do
begin
for j := 1 to ibQuery1.Fields.Count do
begin
if i = 1 then // ilk satır alan adları için.
ws.Cells(i, j) := ibQuery1.Fields.Fields[j - 1].FieldName;
vv := ibQuery1.Fields.Fields[j - 1].Value;
ws.Cells(i + 1, j) := vv;
end;
ibQuery1.Next;
end;
ibQuery1.EnableControls;
wb.SaveAs(savedialog1.FileName);

tskler.