چطور اطلاعات يك فرد را چاپ كنم؟

[seleron]

با سلام
اساتيد عزيز من بانك اطلاعاتي اكسس رو به VB6 متصل كردم. اطلاعات 10 نفر داخل بانك اطلاعاتي هستش من مي خوام وقتي بر روي پرينت كليك مي كنم در صفحه چاپ فقط گزينه مشخص شده نمايان بشه اما اينطور نيست تمامي اطلاعاتي كه داخل ديتابس هستش نمايان ميشه | لطفا راهنمايي كنيد.

[saeedharati]

سلام ميتوني از گزينه فيلتر استفاده كني اول اون ركورد رو فيلتر كني بعد عمليات چاپ رو انجام بدي

نمونه كد :

Adodc2.Recordset.Filter = "Codesabt='" & Adodc1.Recordset.Fields("codesabt") & "'"
If Adodc2.Recordset.BOF = False Then
On Error Resume Next
Adodc2.Recordset.Clone
Set DataReport2.DataSource = Adodc2
DataReport2.Sections(1).Controls(8).Caption = Adodc1.Recordset.Fields("dat")
DataReport2.Sections(1).Controls(14).Caption = Adodc1.Recordset.Fields("jahat")
DataReport2.Sections(5).Controls(4).Caption = Adodc1.Recordset.Fields("karshenasi")
DataReport2.Sections(5).Controls(6).Caption = Adodc1.Recordset.Fields("moaven")

DataReport2.Show 1
End If