Rilevazioni stampanti

[LMondi]

Ma non hai inserito un gestore degli errori?
Prova così:

Private Sub Command1_Click()
On Error GoTo Command1_Click_Error  

'Codice procedura .... ....

On Error GoTo 0
   Exit Sub

Command1_Click_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Form Form1"

End Sub

Ciao.