Vælg printer?

Hej!

Jeg bruger følgende kode til at udskrive rapporter fra access, men hvordan kan jeg gøre så brugeren kan vælge hvilken printer den skal udskrives på..??

KODE:

Public Function OLEPrintReport(strDBName As String, _
                        strRptName As String, _
                        Optional ByVal strWhere As Variant) As Boolean

    On Error GoTo OLEOpenReport_Err

    ' Create Automation object.
    Dim objAccess As Object
    Set objAccess = CreateObject("Access.Application")

    ' indicates exclusive mode if set to True...
    objAccess.OpenCurrentDatabase strDBName, False

    If IsMissing(strWhere) Then strWhere = ""
    objAccess.DoCmd.OpenReport strRptName, 0, "", strWhere

    ' Close Microsoft Access session instance...
    objAccess.Quit 2

    Set objAccess = Nothing
    OLEOpenReport = True
OLEOpenReport_End:
    Exit Function

OLEOpenReport_Err:
    MsgBox Error$(), vbInformation, "Automation"
    Resume OLEOpenReport_End
End Function


KODE:
OLEPrintReport App.Path & "\mobil-admin.mdb", "kontrakt", "IDEN=" & arrid