Yazdırma esnasında sıstemdekı prınterları lısteleme

[mtbi00]

ıyı gunler,

benım öğrenmek istediğim şey yazdır komutunu vermeden once sısteme tanıtılan prınterları lısteleyıp secme sansımız varmı eger varsa bunu makroyla yapabılırmıyım. Ornek olarak benım bılgısayarıma baglı 3 adet prınter var. Sayfada yazdır butonu koysam ve butona basıldıgında ekrana prınterları lısteleyıp, secım yapıp yazdırma sansım varmı? ılgılenenlere sımdıden tesekkurler.

 

[hamitcan]

http://www.excel.web.tr/showthread.php?t=55296&highlight=aktif+printer

 

[teonet]

Merhaba
Aşağıdaki kodu command a uygularmısın?

sor = Application.Dialogs(xlDialogPrinterSetup).Show
If sor = False Then Exit Sub

Alıntıdır.
Kolay gelsin

 

[mtbi00]

Arkadaşlar çok teşekkür ederim. Olayı çözdüm sayenizde teşekkürler.