Farklı Yazıcıyı Kullanmak

[wishm]

Değerli site üyleri forumda arama yapmama karşın Exceldeki aktif sayfayı kod yardımı ile varsayılan yazıcıya değilde ağ üzerindeki kullanılabilir bir yazıcıya nasıl gönderilebilirim sorusuna yanıt bulamadım. Bu konuda yardımcı olabilirseniz memnun olurum. Yardımlarınız ve yanıtlarınız için şimdiden teşekkür ederim. Saygılarımla.

 

[Mahir64]

Merhaba,

http://www.excel.web.tr/f48/sayfada-yazycy-secimi-t109792.html

Bu konudan faydalabilirsiniz.

 

[wishm]

Sayın Mahir ilginiz ve yanıtınız için teşekkür ederim. Ancak önerdiğiniz sayfa malesef sorunuma çözüm oluşturamadı. Saygılarımla.

 

[chngrcn]

Değerli site üyleri forumda arama yapmama karşın Exceldeki aktif sayfayı kod yardımı ile varsayılan yazıcıya değilde ağ üzerindeki kullanılabilir bir yazıcıya nasıl gönderilebilirim sorusuna yanıt bulamadım. Bu konuda yardımcı olabilirseniz memnun olurum. Yardımlarınız ve yanıtlarınız için şimdiden teşekkür ederim. Saygılarımla.

Sub YAZICIAYARLARI() 'yazıcı ayarları
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

bu kod ile yazici seçebilirsiniz..

not: paylaşımı açık olan bilgisayarın yazıcısını daha önceden kendi bilgisayariniza tanımladıysanız, yazıcı listesinde görünecektir..

 

[wishm]

Sayın chngrcn amacım yazıcı seçen pencere aracılığıyla yazıcı seçerek yazdırmak değil. Benim yapmak istediğim sayfa üzerinde yer alan yazdır butonuna tıklayarak aktif sayfayı varsayılan yazıcıya değilde ağ üzerindeki kullanılabilir bir yazıcıya gönderip yazdırmak. Dolayısiyle bu kod bu anlamda yapmak istediğime malesef çözüm oluşturmuyor. İlginiz ve yanıtınız için teşekkür ederim. Saygılarımla.

 

[chngrcn]

kod ile yazıcı belirleme mümkün degil sanırsam.. ağ üzerindeki yazıcıyı " varsayılan yazıcı olarak ata" yapıp, ancak o şekilde direkt olarak ağ üzerindeki yazıcıya gönderebilirsiniz..
saygılar..

 

[Korhan Ayhan]

Merhaba,

Ben makro kaydet yöntemini kullanarak aşağıdaki kodu elde ettim. Siz yazıcı yolunu kendinize göre düzenleyiniz.

Sub AKTİF_SAYFAYI_AĞDAKİ_YAZICIYA_GÖNDER()
    Application.ActivePrinter = "Ne04: üzerindeki [URL="file://\\MuhSef\MUHKASA_Xerox"]\\MuhSef\MUHKASA_Xerox[/URL] "
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[chngrcn]

Merhaba,

Ben makro kaydet yöntemini kullanarak aşağıdaki kodu elde ettim. Siz yazıcı yolunu kendinize göre düzenleyiniz.

Sub AKTİF_SAYFAYI_AĞDAKİ_YAZICIYA_GÖNDER()
    Application.ActivePrinter = "Ne04: üzerindeki [URL="file://\\MuhSef\MUHKASA_Xerox"]\\MuhSef\MUHKASA_Xerox[/URL] "
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Korhan hocam makro kaydet yöntemi ile bende denedim ama sonuç alamamiştim.. bilgi için teşekkürler hocam.. saygılar..

 

[wishm]

Sayın Korhan Ayhan verdiğiniz kodu denedim ancak sonuç alamadım.