Aynı ağ üzerindeki iki bilgisayar

numan şamil

Destek Ekibi
Destek Ekibi
Katılım
27 Ocak 2011
Mesajlar
1,231
Excel Vers. ve Dili
Ofis 2013 Türkçe
Merhaba Arkadaşlar
Örneğin A bilgisayarı ve B bilgisayarı aynı ağ üzerinde
B bilgisayarına yazıcı bağlı
Not: Yazıcının eternet bağlantısı yok
Her iki bilgisayar açıkken A bilgisayarda her hangi bir dosyayı B bilgisayarına bağlı
Yazıcıdan nasıl yazdırabilirim yazdıracağım dosya değişebiliyor
Bunu makro ile yapabilir miyim veya bunun yolları nelerdir
Şimdiden teşekkürler
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Lokal bilgisayara (A) bağlı yazıcı paylaştırılırsa, ağdaki diğer (B) bilgisayarı bunu görür. O zaman, (A) bilgisayarına bağlı yazıcıdan çıktı alınabilir.

Bunu manel olarak gerçekleştirdiğiniz anda, söz konusu yazıcıya gönderilecek komut da VBA ile yazılabilir.

İlk önce, test etmek için yukarıda dediğim gibi manuel olarak (b) bilgisayarından (A) bilgisayarına bağlı yazıcıya bir test dokümanı göndermeniz lazım.

.
 

numan şamil

Destek Ekibi
Destek Ekibi
Katılım
27 Ocak 2011
Mesajlar
1,231
Excel Vers. ve Dili
Ofis 2013 Türkçe
Merhaba Haluk bey
Bunu yarın deneyeceğim
Manuel olarak yazdırılabiliniyorsa
örnek bir kod yazabilirmisiniz
 

systran

Destek Ekibi
Destek Ekibi
Katılım
15 Aralık 2007
Mesajlar
1,573
Excel Vers. ve Dili
2007 [TR], 2013 [TR]
paylaşılan yazıcıyı aktif yazıcı olarak seçip şu kodu çalıştırn. (msgbox Application.ActivePrinter)
sonuca görede şu kodda gerekli değişikliği yapın

Application.ActivePrinter = "\\PC1\XEROX on NeXX:"
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
İşletim sistemi Türkçe ise, aşağıdaki gibi kullanmak gerekir...

Rich (BB code):
 "\\PC1\NeXX: üzerinde XEROX "

Aslında en iyisi; yazıcının göründüğü pencerenin ekran görüntüsü olursa, oradan yazıcının adı daha doğru alınır...


.
 

numan şamil

Destek Ekibi
Destek Ekibi
Katılım
27 Ocak 2011
Mesajlar
1,231
Excel Vers. ve Dili
Ofis 2013 Türkçe
Teşekkürler arkadaşlar
 
Üst