Soru Yazıcı ayarları

[muratgunay48]

Kendinize uyarlarsınız.

Option Explicit

Sub Yazdir()
    Eski_Yazici = Application.ActivePrinter
    Application.ActivePrinter = "RENKLİ-A"
    Sheets("Sayfa1").PrinOut
    Application.ActivePrinter = Eski_Yazici
End Sub

Teşekkür ederim hocam.

 

[muratgunay48]

Kendinize uyarlarsınız.

Option Explicit

Sub Yazdir()
    Eski_Yazici = Application.ActivePrinter
    Application.ActivePrinter = "RENKLİ-A"
    Sheets("Sayfa1").PrinOut
    Application.ActivePrinter = Eski_Yazici
End Sub

Hocam, şöyle bir hata alıyorum ama.

 

[Korhan Ayhan]

Hata veren bölüm için önce makro kaydet ile bahsi geçen yazıcıyı varsayılan yazıcı yapın. Sonra makro kaydını durdurun. Bu işlem size RENKLİ-A yazısının tam adını vermesi gerekir. Bu işlem bazen sonuç vermiyor. Duruma göre linkteki kodları denersiniz.

varsayılan yazıcıyı seçmek

Makro ile yazıcı seçimi yapıyorum ve yazdıracağım evrağa uygun olarak kullanıyorum; ancak makro bitince seçtiğim yazıcı, haliyle seçili kalıyor. Makronun sonuna varsayılan yazıcıyı seçen kod ilave etmek istiyorum; nasıl yapabilirim? Yazıcı seçme mantığıyla, kodların sonunda, varsayılan yazıcı...

www.excel.web.tr