السلام عليكم ورحمه الله وبركاته
من لديه طريقة او مثال لتحويل الصوره من البرنامج المبرمج في الفجوال بيسك 6 الى الورد
ولكم جزيل الشكر
مثلا بدون صوره استعمل الكود التالي :
اريد تعديل الكود السابق لتحويل صوره من البرنامج للورد
من لديه طريقة او مثال لتحويل الصوره من البرنامج المبرمج في الفجوال بيسك 6 الى الورد
ولكم جزيل الشكر
مثلا بدون صوره استعمل الكود التالي :
كود :
Static wd1 As Word.Application
Static wd1doc As Word.Document
Set wd1 = New Word.Application
wd1.Visible = False
Set wd1doc = wd1.Documents.Add(App.Path & "/report/trans_out.dot")
With wd1doc
.FormFields("Text1").Range = Text11.Text
.FormFields("Text2").Range = Text10.Text
.FormFields("Text3").Range = Text1.Text
.FormFields("Text4").Range = Text6.Text
.FormFields("Text5").Range = Text7.Text
.FormFields("Text6").Range = Format(Text13.Text, " d / m / yyyy ")
.FormFields("Text7").Range = Text2.Text
.FormFields("Text8").Range = Text3.Text
.FormFields("Text9").Range = txt_trans_out.Text
.FormFields("txt_u").Range = txt_user.Text
End With
wd1doc.PrintOut
wd1.ActiveDocument.Close False
wd1.Quit
End If
Set wd1doc = Nothing
Set wd1 = Nothing