السلام عليكم احبابي
عندي ملف وورد من 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