منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

[attachment=14721][attachment=14721][attachment=14721][attachment=14721] بعد الصلاة والسلام علي رسول الله 
عملت برنامج ومرفق صورة له 
بعد ربط البرنامج بجدول اكسس عاوز اطبع ذلك في الأكسل 
هل هذا ممكن 
وجزاكم الله خيرا

هذا هو الكود

Static wd1 As Word.Application
Static wd1Doc As Word.Document
Set wd1 = New Word.Application
wd1.Visible = True

Set wd1Doc = wd1.Documents.Add(App.Path & "\sher.dotx")








With wd1Doc


.FormFields("id").Range = Label2


.FormFields("اسم").Range = Label3
.FormFields("الكنية").Range = Label4
.FormFields("الاب").Range = Label5
.FormFields("الام").Range = Label20
.FormFields("تولد").Range = Label6
.FormFields("شهادة").Range = Label21
.FormFields("بدء").Range = Label22
.FormFields("جهة").Range = Label24
.FormFields("اسباب").Range = Label25
.FormFields("ملاحظات").Range = Label27
End With
Set wd1 = Nothing
Set wd1Doc = Nothing

End Sub