[HILFE] Daten anstatt an drucker an acrobat schicken?

[Stephan Liebig]

Also ich habe folgendes Problem.
Ich drucke über diese paar Zeilen meine Daten per Drucker.
Wie kann ich es denn abändern, dass er die Daten an Adobe Acrobat schickt und daraus eine pdf erstellt ?

Private Sub schueler_drucken_Click()
On Error GoTo Err_schueler_drucken_Click

    Dim stDocName As String
    Dim MyForm As Form

    stDocName = "schueler"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acTable, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False

Exit_schueler_drucken_Click:
    Exit Sub

Err_schueler_drucken_Click:
    MsgBox Err.Description
    Resume Exit_schueler_drucken_Click
    
End Sub