Hücrede belirtilen yazıcıya döküman gönderme

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

F65 hücresinde pc de tanımlı olan yazıcıların ismi var.
(şuanda pc de 2 tane yazıcı tanımlı ama daha sonra bu sayı artabilir)

Genel olarak samsung yazıcıya gidecek dökümanlar. Ancak bazende Hp ye
göndermem gerekebilir.

F65 hücresinde yazılı olan yazıcıya göndersin. Bu hücredeki yazıcıyı değiştirdiğimde, Tanımlı yazıcıyı değiştirmek istediğinizden
emin misiniz diye uyarı versin.

Değiştirme işlemi bir kereye mahsus olmalı, daha sonra tekrar F65 hücresi samsung diye tanımlanmalı.

Bu işlemi fatura yazdırmak için kullanacağım, faturalar samsung yazıcıdan alınacak. Pc de varsayılan yazıcı olarak HP tanımlı.

Yardım ve fikirlerinizi bekliyorum.

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$F$65" Then Exit Sub
    If TRIM(Target) = "SAMSUNG" Then
        Application.ActivePrinter = "Samsung SCX-4300 Series"  'pc nin kendi üzerindeki yazıcı
    ElseIf TRIM(Target) = "HP" Then
        Application.ActivePrinter = "MEHMETKOSE üzerinde otomatik HP LaserJet 1020" ' hp nin ağ yolu
    End If
End Sub

 

[Emir Hüseyin Çoban]

Sy Hamitcan,
F65 hücresinde seçtiğim yazıcıya değil, varsayılan tanımlı yazıcıya gidiyor.

 

[hamitcan]

Kodu düzenledim, bir daha deneyin.

 

[Emir Hüseyin Çoban]

Kodlar aynı Sy Hamitcan, bir değişiklik yok.

 

[hamitcan]

Düzenlediğim kodları denediniz mi ?

 

[Emir Hüseyin Çoban]

#2 deki kodlarda bir değişiklik yok Sy hamitcan, ilk verdiğiniz kodlarla aynı.

 

[hamitcan]

Hayır değil, iyi incelememişsiniz. Veri doğrulama içindeki kelimelerin içinde boşluklar mevcut olduğundan kod çalışmadı ben de trim fonksiyonu ile bu boşlukları sildim.

 

[Emir Hüseyin Çoban]

TRIM

kodlarını

Trim

olarak değiştiriyor Visual Basic de.

Aynı şekilde Pc de varsayılan yazıcıya gönderiyor dökümanı yine.

 

[hamitcan]

Kodu Sayfa2'nin kod kısmına eklemeniz gerekiyor ayrıca Trim = TRIM aynıdır, kodu burada düzelttiğim için oldu.

 

[Emir Hüseyin Çoban]

Sy Hamitcan, evet dediğiniz gibi yapmıyorum, ancak çalışmıyor.
Son halini ekliyorum tablonun.

 

[hamitcan]

Herşey normal görünüyor, öyleyse yolda hata olabilir. Manule farklı printer seçimi yaparak aşağıdaki kod içinde çıkan yolları, koda ekleyin.

 sub aktifprinter () 
MsgBox "The name of the active printer is " & _
    Application.ActivePrinter
end sub

 

[Emir Hüseyin Çoban]

Makronun verdiği sonuca göre yazıcı yollarını değiştirdim ama yinede seçtiğim yazıcılara göndermiyor.

 

[hamitcan]

Aklıma başka birşey gelmiyor, acaba dosya açılışında makroları etkinleştiriyor musunuz ?

 

[Emir Hüseyin Çoban]

İlgi ve yardımlarınız için teşekkürler Sy Hamitcan.

 

[merakli_72]

Sayın Hamitcan,
buna benzer bir konu hakkında bir sorunum var
Bir bilgisayarda tanımlı bütün yazıcılara sırasıyla çıktı almam lazım (Tanımlı yazıcı isimleri bir sayfaya yazılabilir)

Application.ActivePrinter = "Samsung SCX-4300 Series" şeklinde varsayılan yazıcı değiştirilemiyor
Excelin kendi oluşturduğu kodlara baktığımda
Application.ActivePrinter = "Ne05: üzerindeki hp deskjet 5100 series " şeklinde kodlar var
burdaki Ne05: falan nerden geliyor
uygulamanın çalışacağı bilgisayar başlangıçta belli olmadığından bunun ne olacağını bilemiyorum
bunu uygulamanın kendisinin bulması lazım