Attribute VB_Name = "PDFChronik"
Sub PDF_für_Chronik()
Attribute PDF_für_Chronik.VB_Description = "Dokument für Chronikanbindung via FREE PDF als PDF ausgeben"
Attribute PDF_für_Chronik.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.PDF_für_Chronik"

On Error Goto err_pdf_für_chronik

    AktDrucker = ActivePrinter
    ActivePrinter = "FreePDF XP - Chronik PDF"
    Application.PrintOut

Application.ActivePrinter = AktDrucker
Exit Sub

err_pdf_für_chronik:
MsgBox "Es ist kein Dokument geöffnet.", vbInformation + vbOKOnly, "PDF-Dokument für Chronik"
Application.ActivePrinter = AktDrucker
End Sub