ActivePrinter:="Microsoft XPS Document Writer"

Yukarıdaki tırnak içindeki yere yazıcı ismini yazarsanız default oluyormuş

---

Application.Dialogs(9).Show

Yukarıdaki kodlada yazıcı seçiyormuşsunuz.
Yani önce bu kodu altınada önceki kodu eklyip deneyebilirsiniz

---

Alttada konu işlenmiş tam inceleyemefim belki buda yardımcı olur.

Yazıcı seçme ve yazdırma