Domanda.

da Miche  tex2k@libero.it

problema:
è possibile verificare se ci sono stampanti installate?
in modo tale che se non ce ne sono blocco la possibilità di lanciare una qualsiasi stampa ....

1000 grazie
ciao Davide

P.S.
npn mi ha fatto inviare la mail dal modulo del tuo sito
 

Risposta.

Miche o Davide? Mah?
Comunque puoi usare questa istruzione che controlla il nome della stampante predefinita di sistema, se non la trova, quindi x è vuoto, esce dalla routine e avvisa, altrimenti....gli farai fare le tue istruzioni:

  x = Application.ActivePrinter
  If x = "" Then
  MsgBox "Non esiste una stampante"
  Exit Sub
  Else
  ..seguono istruzioni

  End If

saluti, ennius