31-10-15, 04:13 PM
(آخر تعديل لهذه المشاركة : 03-11-15, 07:28 PM {2} بواسطة hamada salah90.)
السلام عليكم ورحمة الله وبركاته
لدي كود لفتح ملف الوورد وهو
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
ولكن أريد كود لطباعة الملف الذي تم فتحه وحفظه سابقا
وهذا مثال مرفق
"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah