Print dialog efter preview

Jeg har en rapport med filtrerede poster, hvor print dialogen kommer automatisk op med denne kode:

Private Sub cmdPreview1_Click()
    On Error Resume Next
    If Me.FilterOn Then
        DoCmd.OpenReport "Rap 1", acViewPreview, , Me.Filter
    Else
        DoCmd.OpenReport "Rap 1", acViewPreview
    End If
    DoCmd.RunCommand acCmdPrint
End Sub

Problem: print dialogen kommer FØR preview.
Jeg vil først se min min rapport og så få print dialogen op for at brugeren kan vælge printer (dette kan vist også løses i kode).