dbgrid yazdırma..

[ElectroNick]

dbgrid bileşeni üzerinde filtreleme ile bazı verileri eliyorum. eleme sonucunda kalan birkaç veriyi yazdırmak istiyorum. bunu en kolay yoldan nasıl yapabilirim?

not: filtreleme sonucunda kalan verileri doğrudan yazdırmak yerine word e excel e aktarıp yazdırma işlemi de işimi görür..

[F.Atagun]

Merhaba,

Hocam bunu birçok yoldan yapabilirsin. Forumda çok örneği var.

Bir sitede gördüğüm kod belki sana yardımcı olabilir. Lütfen bir incele

Kolay gelsin

Kod: Tümünü seç

 Komponent Kullanmadan DbGrid'den Exele Aktar 

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

var
i,Adet:integer;
uygulama:variant;
begin
Query1.Open;
Adet:=Query1.RecordCount;
uygulama:=CreateOleObject('Excel.Application');
uygulama.visible:=true;
uygulama.WorkBooks.Add;

Query1.First;
for i:=2 to Adet+1 do begin
uygulama.ActiveSheet.Cells[i,1] := DBGrid1.Columns[0].Field.Text;
uygulama.ActiveSheet.Cells[i,2] := DBGrid1.Columns[1].Field.Text;
uygulama.ActiveSheet.Cells[i,3] := DBGrid1.Columns[2].Field.Text;
uygulama.ActiveSheet.Cells[i,4] := DBGrid1.Columns[3].Field.Text;
uygulama.ActiveSheet.Cells[i,5] := DBGrid1.Columns[4].Field.Text;
uygulama.ActiveSheet.Cells[i,6] := DBGrid1.Columns[5].Field.Text;
uygulama.ActiveSheet.Cells[i,7] := DBGrid1.Columns[6].Field.Text;
uygulama.ActiveSheet.Cells[i,8] := DBGrid1.Columns[7].Field.Text;
uygulama.ActiveSheet.Cells[i,9] := DBGrid1.Columns[8].Field.Text;
uygulama.ActiveSheet.Cells[i,10]:= DBGrid1.Columns[9].Field.Text;
Query1.Next;
end;
end;


Tabi Uses Kısmına comobj yi eklemeyi unutmuyoruz, birde süslenmek isterse kodlar o zaman baya kalabalık oluyor.
Komponent kullanmadan exele aktarım bana çok lazım olmuştu biraz uğraştırdı çözerken belki ihtiyacı olanlar vardır diye yayınladım.

[ElectroNick]

denedim çalıştı.. çok teşekkürler..