[Excel 2013] Ottenere elenco stampanti

Buongiorno a tutti!

con il codice di seguito riportato, cambio la stampante all'attivazione/disattivazione della cartella di lavoro con cui gestisco la stampa delle etichette:

Option Explicit

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

ThisWorkbook.Sheets("Nostre").Range("Stampante").Value = Application.ActivePrinter

Dim tempo As Single

tempo = Timer

Do While Not Application.Ready

    DoEvents

    If Timer >= tempo + 5 Then Exit Do

Loop

Application.ActivePrinter = "DYMO LabelWriter 450 su Ne06:"

End Sub



Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

Dim tempo As Single

tempo = Timer

If ThisWorkbook.Sheets("Nostre").Range("Stampante").Value <> "" Then

    Do While Not Application.Ready

        DoEvents

        If Timer >= tempo + 5 Then Exit Do

    Loop

    Application.ActivePrinter = ThisWorkbook.Sheets("Nostre").Range("Stampante").Value

End If

End Sub

La fregatura è che talvolta mi va in errore quando, all'attivazione della cartella, cerca di impostare ActivePrinter con la stringa "DYMO...". Il tutto nasce dal fatto che cambia la porta su cui trova la stampante: ogni tanto è su Ne06: altre volte su Ne07:
Vorrei poter ottenere un elenco delle stampanti di sistema, scorrere le varie stringhe e impostare ActivePrinter quando trovo la stringa che contiene "DYMO", ma non ho la più pallida idea di come ottenere questo elenco e Google non mi ha aiutato molto.

Grazie in anticipo.

E questo

https://msdn.microsoft.com/en-us/vba...alled-printers

?

Originariamente inviato da AntonioG

E questo

https://msdn.microsoft.com/en-us/vba...alled-printers

?

Esattamente quel che cerco, ma il mio VBA non conosce l'oggetto Printer (mi da errore di tipo non definito dall'utente), e la mia Application non ha la collection Printers tra le proprietà... L'operatore "&;" presente nella macro mi lascia un po' perplesso...

Con queste

Application.Dialogs(xlDialogPrinterSetup).Show
MsgBox (Application.ActivePrinter)

puoi far scegliere

Grazie Antonio, ma preferisco che il tutto venga svolto senza interventi da parte dell'utente!

Mi sono quindi armato di santa pazienza e mi sono creato un mini libreria (manca qualsiasi controllo e gestione delle eccezioni, lo so, ma comunque funziona... :-) ), l'ho referenziata in VBA, e l'ho usata così:

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

ThisWorkbook.Sheets("Nostre").Range("Stampante").Value = Application.ActivePrinter

Dim tempo As Single

tempo = Timer

Do While Not Application.Ready

    DoEvents

    If Timer >= tempo + 5 Then Exit Do

Loop



Dim ele As New ElencoStampanti

Application.ActivePrinter = ele.Cercastampante("DYMO")

End Sub

di seguito il codice in C# della libreria:

using Microsoft.Win32;

using System;

using System.Text.RegularExpressions;



namespace Stampanti

{

    public class ElencoStampanti

    {

        public ElencoStampanti() { }

        public string[] Elenco()

        {

            var stampanti = Registry.CurrentUser.OpenSubKey(@"Software\Microsoft\Windows NT\CurrentVersion\Devices");

            string[] arr = new string[stampanti.ValueCount];

            int i = 0;

            foreach (string nome in stampanti.GetValueNames())

            {

                string valore = (string)stampanti.GetValue(nome);

                string porta = Regex.Match(valore, @"(Ne\d+:)", RegexOptions.IgnoreCase).Value;

                arr[i] = nome + " su " + porta;

                i++;

            }

            return arr;

        }

        public string CercaStampante(string valore)

        {

            return Elenco()[Array.FindIndex(Elenco(), x => x.Contains(valore))];

        }

    }

}

Adesso può cambiarsi la porta a piacimento che tanto l'ho fregato.
P.S. Essendo la stampate USB, può aver cambiato la porta dopo che l'ho scollegata/ricollegata?

P.P.S: Se dovesse essere utile, posso mettere a disposizione il file TLB compilato.

Ciao.
E' possibile anche utilizzare un oggetto Wscript per ottenere l'elenco delle stampanti

Function GetPrinters() As String()
Dim i
Dim wshNetwork As Object, oPrinters As Object, temp As String
ReDim result(100) As String
    ' Get the network object
    Set wshNetwork = CreateObject("WScript.Network")
    Set oPrinters = wshNetwork.EnumPrinterConnections
    ' Printers collection has two elements for each printer.
    For i = 0 To oPrinters.Count - 1 Step 2
        ' Get what Excel sees.
        result(i \ 2) = oPrinters.Item(i + 1) & " su " & oPrinters.Item(i)
    Next
    ReDim Preserve result((i \ 2))
    GetPrinters = result
End Function

Sub test()
Dim Printers() As String
Dim R As Long
    Printers = GetPrinters
    With Foglio3
        For R = LBound(Printers) To UBound(Printers)
            .Cells(R + 1, 1) = Printers(R)
        Next R
    End With
End Sub

Si tratta di un codice trovato in rete tempo fa. Funziona sulla versione Italiana; nella versione inglese l'istruzione

result(i \ 2) = oPrinters.Item(i + 1) & " su " & oPrinters.Item(i)

va modificata in

result(i \ 2) = oPrinters.Item(i + 1) & " on " & oPrinters.Item(i)

Originariamente inviato da Zer0Kelvin

Ciao.
E' possibile anche utilizzare un oggetto Wscript per ottenere l'elenco delle stampanti

Function GetPrinters() As String()
Dim i
Dim wshNetwork As Object, oPrinters As Object, temp As String
ReDim result(100) As String
    ' Get the network object
    Set wshNetwork = CreateObject("WScript.Network")
    Set oPrinters = wshNetwork.EnumPrinterConnections
    ' Printers collection has two elements for each printer.
    For i = 0 To oPrinters.Count - 1 Step 2
        ' Get what Excel sees.
        result(i \ 2) = oPrinters.Item(i + 1) & " su " & oPrinters.Item(i)
    Next
    ReDim Preserve result((i \ 2))
    GetPrinters = result
End Function

Sub test()
Dim Printers() As String
Dim R As Long
    Printers = GetPrinters
    With Foglio3
        For R = LBound(Printers) To UBound(Printers)
            .Cells(R + 1, 1) = Printers(R)
        Next R
    End With
End Sub

Si tratta di un codice trovato in rete tempo fa. Funziona sulla versione Italiana; nella versione inglese l'istruzione

result(i \ 2) = oPrinters.Item(i + 1) & " su " & oPrinters.Item(i)

va modificata in

result(i \ 2) = oPrinters.Item(i + 1) & " on " & oPrinters.Item(i)

Molto meno macchinosa della mia! Grazie mille Zer0Kelivin.

Originariamente inviato da Sgrubak

Grazie Antonio, ma preferisco che il tutto venga svolto senza interventi da parte dell'utente!

Mi sono quindi armato di santa pazienza e mi sono creato un mini libreria (manca qualsiasi controllo e gestione delle eccezioni, lo so, ma comunque funziona... :-) ), l'ho referenziata in VBA, e l'ho usata così:

Adesso può cambiarsi la porta a piacimento che tanto l'ho fregato.
P.S. Essendo la stampate USB, può aver cambiato la porta dopo che l'ho scollegata/ricollegata?

P.P.S: Se dovesse essere utile, posso mettere a disposizione il file TLB compilato.

Ti posso chiedere cortesemente qualche suggerimento per collegare/referenziare delle classi in C per utilizzarle in VBA

Se volessi utilizzare la tua come la dovrei compilare ?


Grazie

Originariamente inviato da Samu2006

Ti posso chiedere cortesemente qualche suggerimento per collegare/referenziare delle classi in C per utilizzarle in VBA

Puoi seguire questa guida.

Il codice è pubblicato nel mio post #5.

Originariamente inviato da Sgrubak

Puoi seguire questa guida.

il collegamento è errato

grazie per la risposta