codice:
Private Sub mnuStampa_Click()  
Dim Risposta As Integer  
Risposta = MsgBox("Vuoi Stampare?", vbYesNo + vbQuestion, "Scegli!")  
If Risposta = vbYes Then  
CommonDialog1.ShowPrinter  
Command2.Visible = False             
 Command3.Visible = False             
 Command4.Visible = False            
 Command5.Visible = False              
Form7.BackColor = vbWhite                          
Command1.Visible = False                          
Form7.PrintForm 
 ElseIf Risposta = vbNo Then 
 MsgBox "Errore!", vbCritical, "Stampa interrotta" 
 End If  
 Form7.BackColor = &H8000000F  
Command1.Visible = True  
Command2.Visible = True             
 Command3.Visible = True             
 Command4.Visible = True            
  Command5.Visible = True  
End Sub
Ho modificato!