[vba access] evitare msgbox su annullamento stampa

[john_revelator]

Ciao a tutti.

Tramite il seguente comando

DoCmd.RunCommand acCmdPrint

che segue il codice relativo all'apertura di un report di access, mi viene visualizzata la schermata relativa alla stampa. Tuttavia se decido di annullare la stessa mi viene mostrato un msgbox con la dicitura "L'azione runcommand è stata annullata". E' possibile evitare la comparsa di tale messaggio? Grazie in anticipo. :)

[john_revelator]

Ho parzialmente risolto in questo modo intercettando l'evento 2501 dopo una ricerca su google più approfondita. :fagiano:


Private Sub Comando10_Click()
On Error GoTo Err_Comando10_Click

Dim stDocName As String

stDocName = "Report1"
DoCmd.OpenReport stDocName, acPreview, , "id=" & Me.id

DoCmd.RunCommand acCmdZoom100
DoCmd.RunCommand acCmdPrint

Exit_Comando10_Click:
Exit Sub

Err_Comando10_Click:
If Err.Number <> 2501 Then
MsgBox Err.Description
Resume Exit_Comando10_Click

End If

End Sub


Mi rimane però una perplessità. Al momento dell'apertura del report vedo una pagina bianca. Se lancio la stampa il report viene stampato correttamente così come compare se annullo la stampa stessa. Perchè mi appare la pagina bianca finchè non confermo o annullo la stampa? :mc: