Datagriddeki veriyi yazdırma

[Fuat Şirin]

Değerli hocalarım
konunun yeri burası olmadığını biliyorum

sorum şu vb6 da datagrid de alınan verileri
süzerek

Private Sub Text5_Change()
On Error GoTo 10

Adodc1.Recordset.Filter = "durum like '" & Text5.Text & "%' "
Label3.Caption = Adodc1.Recordset.RecordCount & " kayıt bulundu"
10
End Sub

bu kodla alınan süzülen veriyi yazdırmak istiyorum
nasıl yaparım
saygılar

 

[Fuat Şirin]

bu konuda yardımcı olursanız sevinirim

 

[Fuat Şirin]

yardımcı olunursa sevinirim arkadaşlar

 

[Fuat Şirin]

değerli hocalarım yardımcı olunursa çok sevinirim

 

[modalı]

Sayın Fuat Şirin,

Datagrid bir tablodaki verileri, tablo görünümünde gösteren bir nesne. Datagriddeki verileri süzerek yazdırmak istiyorum demişsiniz, ancak bu veriler nereye yazdırılacak? Süzülmüş verileri de datagrid içine yükleyebilirsiniz.

İyi çalışmalar

 

[Fuat Şirin]

hocam süzdüğüm veriler
datagrid içinde gözüküyor
o gözüken verileri yani süzülmüş haliyle
yazdırmak istiyorum yazıcıdan

normalde datareportla sayfayı kople yazdırıyorum ama
süzülne verileri
yazdıramıyorum
saygılar hocam

 

[modalı]

Sayın Fuat Şirin,

Aşağıdaki kodları kendi uygulamanıza uydurun.

Bir düğme ekleyip CmdPrint olarak adlandırın ve klik olayına:

Private Sub CmdPrint_Click()
Dim RRow As Integer, RecCount as integer
reccount=adodc1.recordset.recordcount
printer.print ""
For RRow = 0 To reccount 

DataGrid1.Row = RRow

printerPrint DataGrid1.Columns(0).Text, Space(1), DataGrid1.Columns(1).Text, Space(1), DataGrid1.Columns(2).Text  '
Next
printer.enddoc
End Sub

İyi çalışmalar

 

[Fuat Şirin]

hocam teşekkür ediyorum
şimdi geçiyorum sayfaya
hocam buna bağlı olarak
süzülen verileri
başka bir access tablosuna geçmek için ne yapmak gerekir

yani tablo1 deki verileri süzdüm
datagride geçti
datagriddeki verileri
tablo2 ye geçmek istiyorum bunu nasıl yaparım hocam