Stampa...

di il
1 risposte

Stampa...

Ciao a tutti... Ho da poco creato un piccolo editor di testo, c' è però un problemino... ho creato un bottone che manda il testo scritto in stampa:
----------------------------------------------
Private Sub Command3_Click()
Printer.Print Text1.Text
Printer.EndDoc
End Sub
----------------------------------------------

xò se nn ci sono stampanti installate sul computer il programma si blocca e crasha....

che fare?

vorrei fare in modo che se nn ci sono stampanti installate mi mandi un msgbox e torni indietro....
mi serve solo il codice per fare verificare se ci sono stampandi installate o no
Il resto sono capace... Grazie mille a tt

1 Risposte

  • Re: Stampa...

    Prima esegui questo controllo:
    If Printers.Count = 0 Then
    MsgBox "nessuna stampanrte configurata"
    Exit Sub
    End If

    Saluti e buon lavoro
    Guido
    by GECSI
    www.gecsi.i
Devi accedere o registrarti per scrivere nel forum
1 risposte