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

السلام عليكم ورحمة الله وبركاته

لدي كود لفتح ملف الوورد وهو

Static MonWd As Word.Application

Static wmonwd As Word.Document

Set MonWd = New Word.Application

MonWd.Visible = True

Dim z

z = List1.Text

Set wmonwd = MonWd.Documents.Open(App.Path & "\Tests\" & (z) & ".doc")

With wmonwd

ولدي ايضا كود لحفظ ملف الوورد وهو

.SaveAs FileName:=App.Path & "\Tests\Archeive\" & Trim$(txtCode.Text) & " " & Trim$(z) & ".doc"

'======--------------------=============------------==============

End With

Set MonWd = Nothing

Set wmonwd = Nothing

ولكن أريد كود لطباعة الملف الذي تم فتحه وحفظه سابقا

وهذا مثال مرفق