استفسار عن كود طباعة قاعدة بيانات؟

كود الطباعة هو :

Private Sub cmdPrina_Click()

If rs.State = adStateOpen Then rs.Close

rs.Open "tabltsce", db, adOpenDynamic, adLockPessimistic

Set DaReltsce.DataSource = rs

DaReltsce.Show

End Sub

و كود البحث المستخدم هو :

Private Sub cmdSearchNa_Click()

Dim gBookMark As Variant

If Trim(txtSearchNa.Text) = "" Then Exit Sub

gBookMark = rs.Bookmark

Call Command12_Click

rs.Find "[Nam] LIKE '" & Trim(txtSearchNa.Text) & "%'"

If rs.EOF Then

rs.Bookmark = gBookMark

frmSeNam.Hide

Me.Show

MsgBox "!ÚÝæÇð áã íÊã ÇáÚËæÑ Úáì äÊíÌÉ", vbOKOnly + vbInformation, "!ÊäÈíå"

frmSeNam.Command1.Enabled = False

Exit Sub

End If

Call ViewRecord

Label1.Visible = False

Text3.Visible = False

Call Command17_Click

Call Command9_Click

Call Command2_Click

End Sub

يا شباب لم أجد الرد ، أرجو المساعدة ، أرجو المساعدة ، أرجو المساعدة ، أرجو المساعدة ، أرجو المساعدة ، أرجو المساعدة.