- Katılım
- 4 Haziran 2005
- Mesajlar
- 2,745
- Excel Vers. ve Dili
- 2010-2016
Kolay gelsin.
Excelden yazıcı seçimi ile ilgili aşağıdaki kodları kullanıyorum. Ama bazı durumlarda sorun oluyor. Aktif yazıcıyı bir yere not etse, tanımlı tüm yazıcılar içerisinde örneğin ZARF yazılı olan yazıcıyı bulup yazdırma işlemi bittiktek sonra aktif yazıcısına dönse. Bu şekilde bir işlem mümkün müdür.
Kullandığım kodlar.
Excelden yazıcı seçimi ile ilgili aşağıdaki kodları kullanıyorum. Ama bazı durumlarda sorun oluyor. Aktif yazıcıyı bir yere not etse, tanımlı tüm yazıcılar içerisinde örneğin ZARF yazılı olan yazıcıyı bulup yazdırma işlemi bittiktek sonra aktif yazıcısına dönse. Bu şekilde bir işlem mümkün müdür.
Kullandığım kodlar.
Kod:
Sub YAZICI_SEC()
Dim STDprinter As String
STDprinter = Application.ActivePrinter
Application.ActivePrinter = "Ne00: üzerindeki ZARF " 'Yeni bir yazıcı tanımlanırsa ya da port eklenirse Ne00 numarası değişebiliyor ve bu da sorun çıkartıyor.
ActiveSheet.PrintOut
Application.ActivePrinter = STDprinter
End Sub