Sayfada yazıcı seçimi

[guneyyilmaz]

Bir fatura yazdırma programı hazırladım. (Tamamen bittiğinde buraya yükleyeceğim) Ancak kullanımda bir sorunum var. Bilgisayarıma bağlı iki yazıcı ve ağda yazıcılar var. Her fatura yazdırmak istediğimde önce varsayılan yazıcıyı değiştirmek zorunda kalıyorum. Bazen de unutuyorum tabi ki...

Bir sayfada ComboBox içerisinde bilgisayarda yüklü bulunan tüm yazıların görüntülenmesini, bu yazıcılardan biri seçildiğinde ise o excel kitabının tüm sayfalarından, bilgisayarda varsayılan yazıcı ne olursa olsun, varsayılan yazıcı değiştirilse dahi, seçilmiş olan yazıdan çıktı alınmasını istiyorum. Bu kodu yazabilecek olan var mı?

Örnek dosya ektedir.

 

[paranormal]

Bir fatura yazdırma programı hazırladım. (Tamamen bittiğinde buraya yükleyeceğim) Ancak kullanımda bir sorunum var. Bilgisayarıma bağlı iki yazıcı ve ağda yazıcılar var. Her fatura yazdırmak istediğimde önce varsayılan yazıcıyı değiştirmek zorunda kalıyorum. Bazen de unutuyorum tabi ki...

Bir sayfada ComboBox içerisinde bilgisayarda yüklü bulunan tüm yazıların görüntülenmesini, bu yazıcılardan biri seçildiğinde ise o excel kitabının tüm sayfalarından, bilgisayarda varsayılan yazıcı ne olursa olsun, varsayılan yazıcı değiştirilse dahi, seçilmiş olan yazıdan çıktı alınmasını istiyorum. Bu kodu yazabilecek olan var mı?

Örnek dosya ektedir.

Selamlar, Ufak bi kod yazdim. bilmem isinize yarar mi? kolay gelsin

 

[security]

Application.Dialogs(xlDialogPrinterSetup).Show
kodunu kullanabilirsiniz...

 

[guneyyilmaz]

Selamlar, Ufak bi kod yazdim. bilmem isinize yarar mi? kolay gelsin

Kod gönderir misiniz.

 

[guneyyilmaz]

Örnek dosyaya göre yardım edebilecek olan yok mu?

 

[Mahir64]

Yazıcı penceresinden seçebilirsiniz.

Sayın security önerisini bu şekilde butona atayın.

Sub YAZICI_PENCERESİ()
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[Seyit Tiken]

Dosya indirme izni yok. Şöyle bir şey yapabilirsiniz : Makro Kaydetle yazıcı seçimi yapın, bunu bir butona atayıp kendinize uyarlayın, bu şekilde yazıcı seçimi derdiyle uğraşmazsınız.

 

[Excelmy]

Sayın guneyyilmaz

Ekli dosyayı inceleyiniz.

 

[guneyyilmaz]

Herkese katkılarından dolayı teşekkür ederim. Uygulamayı yaptıktan sonra sizlerle paylaşacağım.