طلب تعديل كود لطباعة صفحة معينه في الوورد

[أبو نادر]

السلام عليكم احبابي

عندي ملف وورد من 3 صفحات

وابي اطبع صفحة معينه

........

الكود المرفق لطباعة الملف كامل

ما هي الإضافة لطباعة صفحة معينه ؟

Function asa_1()

Dim appword As Word.Application
Dim doc As Word.Document
Dim path As String

On Error Resume Next
Error.clear

Set appword = GetObject(, "word application")
If Err.number <> 0 Then
Set appword = New Word.Application
appword.Visible = False
End If
path = "\\ip\1-11\V-document\afrad\M-VACATION-D.docx"

Set doc = appword.Documents.Open(path, , True)
With doc
     .FormFields("a1").Result = byanat![bb3]


     .PrintOut
     '.PrintOut , Pages = "1"
appword.Visible = False
appword.Activate
End With
Set doc = Nothing
Set appword = Nothing
End Function

 

[ابوخليل]

تفضل

doc.ActiveDocument.ActiveWindow.PrintOut _
    Range:=wdPrintFromTo, From:="2", To:="2"

باعتبار ستطبع الصفحة رقم 2

 

[أبو نادر]

مييييييييييييه ميييييييييييه 

الله بجزاك خير يا وحش

[أبو نادر]

يبو خليل عند طباعة الملفات يبقى الوورد مفتوح في الخلفية لكل ملف تتم طباعته

هل توجد إضافة للكود تنهي مهمته من الخلفية بعد الطباعة ؟

 

[ابوخليل]

جرب

doc.Quit

 

[أبو نادر]

المعذره يبو خليل ماني متواجد بكثره لارتباطي باعمال

ما زبطت

وجربت

appword.Quit

وكأنها تبي نزبط

لكن تخرج رسالة من الوورد بالحفظ او الالغاء

كيف أقول للوورد لا تحفظ وورني عرض اكتافك 

 

 

تم تعديل أغسطس 25, 2017 بواسطه أبو نادر

[أبو نادر]

خلاص يبو خليل تمت العملية بنجااااح 

بارك الله فيك

appword.ActiveDocument.Saved = False
appword.Quit

[ابوخليل]

 

الآن انت الوحش

[أبو نادر]

9 دقائق مضت, ابوخليل said:

 

الآن انت الوحش

لا بالله توي اتمشى بأول الغابة  هههههههه