VBA Excel - conoscere stato della stampante

Question

Ciao a tutti,

ho un problema che non riesco a risolvere.

Ho scritto un'applicazione VBA (usato il VBA "per motivi storici") con la quale - tra le altre cose - eseguo delle stampe. Ho trovato una routine per estrarre tutte le stampanti installate, ma non riesco a sapere se la singola stampante è attiva oppure no.

In particolare, mi trovo con stampanti "doppie" (tipo: SAMSUNG-ML2160 Series (Copia 1) su NE003:", ecc. - talora "triple"), per cui se scelgo, ad esempio, la prima, in realtà poi non si produce la stampa (perchè, fisicamente - credo - il cavo non è attaccato su NE003: ma su qualche altro NExxx:). Pensavo di risolvere con "ActivePrinter", ma non funziona (mi restituisce il nome della stampante, ma poi ... è quella sbagliata).

Come potrei fare per risolvere questo problema?

Grazie in anticipo e buona giornata

Answer 1

Ho provato, ma ... non viene! In particolare, OpenPrinter mi dà "0". Pazienza, ringrazio per le sollecite risposte e vedrò come fare (ma possibile non ci sia una soluzione semplice?).

Buon lavoro

Perché il nome della stampante non è corretto, Utilizza il codice allegato per ottenere l'elenco delle stampanti installate sul tuo pc e lo status (che però non è quello che serve a te).

Maggiori dettagli qui.

Andrea.

---

Public Sub PrintersInstalled()

Dim wmi As Object, prn As Object

  On Error GoTo Uffa

  Set wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\.\root\cimv2")

  For Each prn In wmi.ExecQuery("Select * from Win32_Printer")

    Debug.Print prn.name, prn.PrinterStatus, prn.Status

  Next

Uffa:

  Set wmi = Nothing:  Set prn = Nothing

End Sub

---

Answer 2

Grazie. Funziona "abbastanza", perchè mi dà "Ready" sia la prima stampante che la seconda (in realtà Copia della prima), ma la stampa esce fisicamente solo sulla prima. Penso che risolverò con con uno "Stampa pagina di prova".

Grazie ancora e buona giornata

Answer 3

Ho provato, ma ... non viene! In particolare, OpenPrinter mi dà "0". Pazienza, ringrazio per le sollecite risposte e vedrò come fare (ma possibile non ci sia una soluzione semplice?).

Buon lavoro

Answer 4

Tanto per darti un'idea ...

Mente fresca, eh!

Bentornato.

Grazie ... Capo. ;)