Problemer med Common Printer Dialog box

Jeg er igang med at lave en kommandoknap der kan udprinte en rapport som jeg har lavet. Koden som jeg bruger ser ud sådan ud:
Private Sub Drucken_Click()
On Error GoTo Err_Drucken_Click

    Dim stDocName As String

    stDocName = "R_Drucken"   
   
    DoCmd.OpenReport stDocName, acPreview, , "AngebotId = " & Me.AngebotId
    DoCmd.RunCommand acCmdPrint
Exit_Drucken_Click:
    Exit Sub

Det virker i princippet også fint nok. Printerdialogboksen kommer frem og jeg kan vælge en printer og skrive ud. Problemet opstår bagefter når den er færdig, så fryser access og jeg bliver nødt til at ALT + CTRL + DEL for at lukke access ned.
Mit spørgsmål er så om der er nogen der har en anden måde at løse problemet på, da det ikke umiddelbart ser ud til at min metode virker.
Det skal altså være sådan at når jeg klikker på knappen så skal den åbene common printer dialogen og når man har trykket skal man vende tilbage til den form hvor knappen ligger.