udskrivning af rapport

kan klares forholdsvis simpelt. På den knap der kalder din rapport placerer du følgende kode

Private Sub cmdVisDinRapport_Click()
    On Error GoTo Err_Handler
   
    Dim sRapport As String
   
    sRapport = "rptNavnPåDinRapport"
   
    'åbn rapport i prewiev
    DoCmd.OpenReport sRapport, acPreview
   
    ' vis printerdialog
    DoCmd.RunCommand acCmdPrint
   
Err_Handler:
'hvis bruger klikker på [Annuller]
If Error = 2501 Then Exit Sub
   
End Sub