• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru YAZICIYI OTOMATİK SEÇME

Yazıcı olmadığı deneme şansım yok;

Kod: 
Sub Test()
    Dim myPrinter As String
    Dim printer_name As String
    printer_name = "Zebra TLP2844"

    myPrinter = Application.ActivePrinter
    ActiveSheet.PrintOut Preview:=False, ActivePrinter:=printer_name
    Application.ActivePrinter = myPrinter
End Sub

.
 
Haluk' Alıntı:
Yazıcı olmadığı deneme şansım yok;

Kod: 
Sub Test()
    Dim myPrinter As String
    Dim printer_name As String
    printer_name = "Zebra TLP2844"

    myPrinter = Application.ActivePrinter
    ActiveSheet.PrintOut Preview:=False, ActivePrinter:=printer_name
    Application.ActivePrinter = myPrinter
End Sub

.
Genişletmek için tıkla ...

vaysayılan yazıcıya gönderdi. Başka kod deneyebilir miyiz?
 
Göndermek istediğiniz yazıcının "Zebra TLP2844" olduğundan emin olun, bence

.
 
mc_exrem' Alıntı:
evet eminim
Genişletmek için tıkla ...


Aşağıdakileri bir modüle yerleştirip, Test isimli makroyu çalıştırın.

MsgBox ile gelen cevap, sizin yazıcı adı olması gerekir. Daha önceki kodda bu yazıcı adını (olduğu gibi) kullanıp, tekrar deneyin.

Kod: 
Sub Test()
  MsgBox GetFullPrintrName("Zebra TLP2844")
End Sub

Public Function GetPrinterPort(strPrinterName As String) As String
  Dim objReg As Object, strRegVal As String, strValue As String
  Const HKEY_CURRENT_USER = &H80000001
  Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  strRegVal = "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts\"
  objReg.getstringvalue HKEY_CURRENT_USER, strRegVal, strPrinterName, strValue
  GetPrinterPort = Split(strValue, ",")(1)
End Function

Public Function GetFullPrintrName(strPrinterName As String) As String
    GetFullPrintrName = strPrinterName & " on " & GetPrinterPort(strPrinterName)
End Function

.
 
Haluk' Alıntı:
Aşağıdakileri bir modüle yerleştirip, Test isimli makroyu çalıştırın.

MsgBox ile gelen cevap, sizin yazıcı adı olması gerekir. Daha önceki kodda bu yazıcı adını (olduğu gibi) kullanıp, tekrar deneyin.

Kod: 
Sub Test()
  MsgBox GetFullPrintrName("Zebra TLP2844")
End Sub

Public Function GetPrinterPort(strPrinterName As String) As String
  Dim objReg As Object, strRegVal As String, strValue As String
  Const HKEY_CURRENT_USER = &H80000001
  Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  strRegVal = "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts\"
  objReg.getstringvalue HKEY_CURRENT_USER, strRegVal, strPrinterName, strValue
  GetPrinterPort = Split(strValue, ",")(1)
End Function

Public Function GetFullPrintrName(strPrinterName As String) As String
    GetFullPrintrName = strPrinterName & " on " & GetPrinterPort(strPrinterName)
End Function

.
Genişletmek için tıkla ...

Bu uyarıyı veriyor
 
Su anda bilgisayar basinda degilim ama resimden gordugum kadariyla, yanlis yerlere yapistirmisiniz.

Sub Makro1 ve Sub Makro3 satirlari ile onlara ait End Sub satirlarini silin.

.
 
Haluk' Alıntı:
Su anda bilgisayar basinda degilim ama resimden gordugum kadariyla, yanlis yerlere yapistirmisiniz.

Sub Makro1 ve Sub Makro3 satirlari ile onlara ait End Sub satirlarini silin.

.
Genişletmek için tıkla ...

Yapadım. dosyayı ekledim size zahmet geçince düzenleyip tekrar yükleyebilir misiniz.
 
Arkadasim yapilmayacak bir sey yok.

Yeni bir Excel dosyasi ac, bu dosyaya bir tane modul ekledikten sonra 6.mesajdaki kodlari yapistir.

"Test" isimli makroyu calistir ve bahsettigin yazicinin tam adini ogren.

Sonucu bekliyorum...

.
 
Kod: 
Sub Test()
    Dim myPrinter As String
    Dim printer_name As String
    myPrinter = Application.ActivePrinter
    [P1] = myPrinter
end sub
Öncelikle çıktı almak istediğiniz yazıcıyı manuel olarak varsayılan seçin. Yukarıdaki kodu çalıştırdığınızda yazıcının adını P1 hücresine yazacaktır.
Sonra normal şekilde varsayılan yazıcınızı seçin.
Aşağıdaki kodları çalıştırdığınızda çıktıyı (etiket) yazdıracağınız yazıcıdan alacak sonrasında varsayılan yazıcınız eski haline dönecektir.
Kod: 
Sub Test2()
    Dim myPrinter As String
    Dim printer_name As String
    Dim kopya As Long: kopya = [D6].Value


    myPrinter = Application.ActivePrinter
    [P1] = myPrinter
    MsgBox
    printer_name = "Zebra TLP2844" 'Buraya P1 e yazılı olan değeri yazıp P1 hücresinin içerisini temizleyin.
    ActiveWindow.SelectedSheets.PrintOut Copies:=kopya, Collate:=True, IgnorePrintAreas:=False
'    ActiveSheet.PrintOut Preview:=False, ActivePrinter:=printer_name
    Application.ActivePrinter = myPrinter
End Sub
 
askm' Alıntı:
Kod: 
Sub Test()
    Dim myPrinter As String
    Dim printer_name As String
    myPrinter = Application.ActivePrinter
    [P1] = myPrinter
end sub
Öncelikle çıktı almak istediğiniz yazıcıyı manuel olarak varsayılan seçin. Yukarıdaki kodu çalıştırdığınızda yazıcının adını P1 hücresine yazacaktır.
Sonra normal şekilde varsayılan yazıcınızı seçin.
Aşağıdaki kodları çalıştırdığınızda çıktıyı (etiket) yazdıracağınız yazıcıdan alacak sonrasında varsayılan yazıcınız eski haline dönecektir.
Genişletmek için tıkla ...

Konuya dahil oldunuz ama, öneriniz zaten yukarıdaki mesajlardan farklı değil......

Söz konusu yazıcı adının "Zebra TLP2844 on Ne01:" falan gibi bir şey olması lazım....... @mc_exrem 'e bunu buldurmaya çalışıyorum ama şimdilik bir cevap yok.

.
 
Haluk Bey size saygısızlık olsun diye müdahil olmadım. Zaten sizin kodlarınızı yazdım. Ben herhangi bir ekleme yapmadım.
Belki varsayılanı seçtirerek yazıcı adını bulabilir diye yazdım. Marka Zebra olabilir ama yazıcı ismini farklı vermiş olabilir.
 
Estağfurullah, fakat mesajların tamamını okuduysanız eğer; zaten yazıcı isminin yanlış/eksik olması durumunu kontrol etmeye çalışıyordum ..... (Mesaj No:6 kodları)

.
 
Haluk' Alıntı:
Konuya dahil oldunuz ama, öneriniz zaten yukarıdaki mesajlardan farklı değil......

Söz konusu yazıcı adının "Zebra TLP2844 on Ne01:" falan gibi bir şey olması lazım....... @mc_exrem 'e bunu buldurmaya çalışıyorum ama şimdilik bir cevap yok.

.
Genişletmek için tıkla ...
netten araştırdım yazıcının tam adının nasıl bulunacağına dair ama öyle bi şey bulamadım. Nasıl bulacağıma dair Yardımcı olursanız tam adını yazmış olurum. Yoğun olduğum için ancak yazabildim. anlayışınız için de teşekkürler
 
Arkadaşım, yukarıda 6. mesajda verdiğim kodla söz konusu yazıcının adını bulabilmen gerekiyor .....

Kolaylık olsun diye, ekli dosyayı hazırladım. Dosyayı aç ve sayfaki butona tıkla ..... Yazıcının adını öğren.

Not: "Zebra TLP2844" yazıcısının bilgisayara bağlı ve açık olduğundan emin ol.

Daha sonra yapılacak işleri ondan sonra tarif ederim.

.
 

Ekli dosyalar

Son düzenleme:
Haluk' Alıntı:
Arkadaşım, yukarıda 6. mesajda verdiğim kodla söz konusu yazıcının adını bulabilmen gerekiyor .....

Kolaylık olsun diye, ekli dosyayı hazırladım. Dosyayı aç ve sayfaki butona tıkla ..... Yazıcının adını öğren.

Not: "Zebra TLP2844" yazıcısının bilgisayara bağlı ve açık olduğundan emin ol.

Daha sonra yapılacak işleri ondan sonra tarif ederim.

.
Genişletmek için tıkla ...
Dosyalar yüklenmemiş yalnız link pasif
 
Bu kodu bir çalıştır A sutunüna yazıcı isimlerini yazacaktır
çıkan sonuçları buraya yaz ki sizin bilgisayarınızdaki yazıcıları bilelim.

Kod: 
Sub yazıcılar1()
say = 2
say1 = 0
Dim oNetwork As Object, oPrinters As Object
Dim i As Single, j As Single
Dim MyPrinters As String

Set oNetwork = CreateObject("WScript.Network")
Set oPrinters = oNetwork.EnumPrinterConnections

For i = 0 To oPrinters.count - 1 Step 2
If Mid(oPrinters.Item(i), 1, 4) = "LPT1" Then
deg1 = oPrinters.Item(i)
Else
deg1 = "Ne" & Format(say1, "00") & ":"
say1 = say1 + 1
End If
Cells(say, 1) = deg1 & " üzerindeki " & oPrinters.Item(i + 1) & " "
say = say + 1

Next

End Sub

aynı şekilde benzer bir kod daha

Kod: 
Sub yazıcılar2()

Dim WSHNetwork
Dim objWMIService
Dim colPrinters
Dim objPrinter

Set WSHNetwork = CreateObject("WScript.Network")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")
For Each objPrinter In colPrinters
sat = sat + 1
Cells(sat, 1) = objPrinter.name
Next

Set WSHNetwork = Nothing
Set objWMIService = Nothing
Set colPrinters = Nothing

End Sub
 
Hayret bir şey yani ....

.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst