Yazıcı seçiminde yardım

[raburabu]

Merhabalar
Makro ile aşağıdaki kodu kullanarak istediğim yazıcıdan çıktı alabiliyorum.

Application.ActivePrinter = "Ne01: üzerindeki HP LaserJet M1530 MFP Series PCL 6 PrintOut Copies:=TextBox1.Value,"


Ancak Etiket makinası USB de bağlı Ne00 dan başlayarak bütün kodları denedim (Ne01 , Ne02) sonuç alamadım. yazıcının ekran görüntüsü ekte. Yardımcı olabilirseniz sevinirim.

 

[raburabu]

merhabalar yardım edebilecek varmı lütfen

 

[mancubus]

ms technet'te şöyle bir ktf buldum. belki işe yarar. test edilmemiştir.

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 = strPrinterName & " on " & Mid$(strValue, 10, 5) 
End Function

kullanımı: (PrinterName yerine printer'ın adı yazılacak)

Sub USB_Pint()
PrinterPort = GetPrinterPort("PrinterName") 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= PrinterPort, Collate:=True 
End Sub