+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كيف يمكن الطباعة من الفجول بيسك 6 في الأكسل او الورد (/showthread.php?tid=20890)
كيف يمكن الطباعة من الفجول بيسك 6 في الأكسل او الورد - refathafez - 01-07-17
[attachment=14721][attachment=14721][attachment=14721][attachment=14721] بعد الصلاة والسلام علي رسول الله
عملت برنامج ومرفق صورة له
بعد ربط البرنامج بجدول اكسس عاوز اطبع ذلك في الأكسل
هل هذا ممكن
وجزاكم الله خيرا
RE: كيف يمكن الطباعة من الفجول بيسك 6 في الأكسل او الورد - sher - 05-09-17
هذا هو الكود
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