Makbuz(??) isimli word dökümanını kapalı iken yazdırma

[kelkitli]

Değerli Dostlar Selamlar,
"Taşınır net"ten makbuz yazdırırken makbuzu kaydet deyince masaüstünde Makbuz(Deyişken numara) adıyla dökümanı "aç" diye bir seçenek sunuyor.
Bu dökümanı yazdırmam gerekiyor.
Ya excelden makro ile kapalı iken yazdırıp dökümanı kapatmalıyım, yada açıp yazdırıp kapatmalıyım.

Sub Çalıştır()
Set WDApp = GetObject(, "Word.Application")
Set WDDoc = WDApp.ActiveDocument
WDApp.PrintOut
WDDoc.Close
End Sub

Şu kodla yazdırabiliyorum. Ancak benim istediklerimi sağlamıyor.
Yada webden böyle bir döküman geldiğinde nasıl otomatik açılmasını sağlarım. Nasıl bir kod kullanmalıyım.

 

[kelkitli]

Selamlar,
PiCo16Light isimli program aracılığı ile "A" tuşuna basınca (aşağıda resim olarak ekledim)netten word dökümanını açıyorum. Yapmak istediğim şu:

Sub Çalıştır()
Set WDApp = GetObject(, "Word.Application")
Set WDDoc = WDApp.ActiveDocument
"A" Tuşuna kendiliğinden basılmış işlemi yapsın.
If (word açıksa)Then WDApp.PrintOut
word kapalı ise makrodan çıkılsın
WDDoc.Close
End Sub