تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب: كيفية عمل طباعة لملف الوورد بواسطة الطباعة الإفتراضية للحاسوب
#1
السلام عليكم ورحمة الله وبركاته

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


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



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




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


الملفات المرفقة
.zip   From_WORD.zip (الحجم : 4.05 ك ب / التحميلات : 67)
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة: princeofislam
#2
PHP كود :
MonWd.PrintOut 
الرد }}}
تم الشكر بواسطة: hamada salah90
#3
شكراااا Smile
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة: princeofislam
#4
(31-10-15, 08:40 PM)hamada salah90 كتب : شكراااا Smile

العفو
الرد }}}
تم الشكر بواسطة: hamada salah90 , princeofislam


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [vb6.0] مجموع : حاصل جمع عمود في ListView1 بواسطة Adodc1 Xima 7 2,736 09-12-22, 12:23 PM
آخر رد: Amir_Alzubidy
  [سؤال] هل هنالك برنامج طباعة شيكات اردنية ؟؟ princeofislam 6 7,151 15-11-22, 06:49 PM
آخر رد: esamsamir777
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 14 8,481 14-06-22, 04:01 PM
آخر رد: sher
  الطباعة ابو ياسين ويزن 0 861 26-01-22, 09:58 PM
آخر رد: ابو ياسين ويزن
  عمل QR Code بواسطة VB6.0 عدنان باسلامة 1 1,807 05-09-21, 11:51 AM
آخر رد: hima223384
  كيف اطبع بواسطة الداتا ريبورت lkjnfg 1 1,072 28-08-21, 03:55 PM
آخر رد: مصمم هاوي
  [vb6.0] كيفية قراءة الباركود على مكينات الكاشيير والمخازن باستعمال خط 3OF9_NEW hamada salah90 1 1,043 28-05-21, 02:48 AM
آخر رد: ahmedabdelaliem
  كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ gedo 4 3,568 19-03-21, 03:01 AM
آخر رد: mhqom2020
Lightbulb [سؤال] كيفية إيجاد (رقم معين) بعد عدة فواصل محددة أبو خالد الشكري 2 1,529 04-02-21, 02:23 AM
آخر رد: أبو خالد الشكري
  كيفية اضافة خواص لاداة UserControl ؟ gedo 1 1,978 18-09-20, 06:46 PM
آخر رد: SoftWare Haker

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم