Yazdır butonuna yazıcı tanımlama

[rk42080]

Arkadaşlar excelde yazdır butonu oluşturdum yazdıracağı yeride tanımladım fakat bende iki yazıcı olduğu için benim varsayılan yazıcım laserjet diğeri ise nokta vuruşlu yazıcı butona tıkladığımda varsayılana gönderiyor ben ise direk nokta vuruşlu yazıcıya göndermesini istiyorum yazdır butonuna yazıcıyı nasıl tanımlarım. Yardımlarınız için şimiden teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/f48/varsayylan-yazycyyy-secmek-t24047.html

 

[rk42080]

İlginiz için teşekkür ederim ama vermiş olduğunuz linkten birşey anlamadım.

yaz butonundaki kodlar aşağıdaki gibi yazdırmak istedğim yazcının adı Datamax E-4203 bu yazıcıyı tanımlamak istiyorum.

Sub yaz()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

 

[Necdet]

Merhaba,

Makro kaydet ile elde ettiğim kodları ekliyorum. Sizde makro kaydet ile ilgili yazıcıyı seçip yazdırın ve kodları inceleyin ve kendinize uyarlayın.

Sub Makro1()
    Application.ActivePrinter = "Ne05: üzerindeki [URL="file://printserver1/PRINTER-77"]\\Printserver1\PRINTER-77[/URL] "
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Ne05: üzerindeki [URL="file://printserver1/PRINTER-77"]\\Printserver1\PRINTER-77[/URL] ", Collate:=True
End Sub