+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=26923)
من لديه طريقة او مثال لتحويل الصوره من الفجوال بيسك 6 الى الورد - scsi7000 - 13-10-18
السلام عليكم ورحمه الله وبركاته
من لديه طريقة او مثال لتحويل الصوره من البرنامج المبرمج في الفجوال بيسك 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