05-09-17, 05:52 PM
اهلا اخي تستطيع الطباعة من خلال الكود التالي عن طريق برنامج وورد
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 & "\fail.name.dotx")
With wd1Doc
.FormFields("id").Range = Label2
.FormFields("اسم").Range = Label3
.FormFields("ملاحظات").Range = Label27
End With
Set wd1 = Nothing
Set wd1Doc = Nothing
End Sub
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 & "\fail.name.dotx")
With wd1Doc
.FormFields("id").Range = Label2
.FormFields("اسم").Range = Label3
.FormFields("ملاحظات").Range = Label27
End With
Set wd1 = Nothing
Set wd1Doc = Nothing
End Sub
