Stephan Liebig
Erfahrenes Mitglied
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 ?
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 ?
Code:
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