codice:
Private Sub Stampa_Click()
DoCmd.OpenReport "nome_report", acViewPreview
DoCmd.PrintOut , , , , 4
End Sub