Private Sub Verknüpfung_PDF()
        '**********************************************************************
        ' *****************************************
        '**********************************************************************
        ' *****************************************
        'Diese Export-Funktion ermöglicht die Verknüpfung zwischen einem 
        ' Excel-Worksheet und einem PDF-Dokument.
        'Felder, die mit Feldnamen belegt und bekannt sind, werden über diese 
        ' Funktion befüllt.
        'Bitte beachten: Es müssen zwei Verweise gesetzt werden:
        '1.) Adobe Acrobat Browser Control Type Library X.X
        '2.) AFormAut X.X Type Library
        '**********************************************************************
        ' *****************************************
        '**********************************************************************
        ' *****************************************
 
        '**********************************************************************
        ' *****************************************
        '**********************************************************************
        ' *****************************************
        'Deklaration
 
        Dim Fld As AFORMAUTLib.Field
        Dim Flds As AFORMAUTLib.Fields
        Dim acroexchavdoc As Object
 
        Dim Übergabeblatt As String
 
        'Deklaration
        '**********************************************************************
        ' *****************************************
        '**********************************************************************
        ' *****************************************
 
        '**********************************************************************
        ' *****************************************
        '**********************************************************************
        ' *****************************************
        'Laufwerke definieren
        'laufwerk = "Z:\INT\Data\CustomerSolutions\CS\DE_CS\"
        Übergabeblatt = "C:\Projektmappe.pdf"
        'Laufwerke definieren
        '**********************************************************************
        ' *****************************************
        '**********************************************************************
        ' *****************************************
 
        '**********************************************************************
        ' *****************************************
        '**********************************************************************
        ' *****************************************
        'Export in ein PDF-Dokument
        acroexchapp = CreateObject("Acroexch.app")
        'acroexchapp.CloseAllDocs
        acroexchavdoc = CreateObject("Acroexch.avdoc")
        acroexchavdoc.Open(Übergabeblatt, Übergabeblatt)
 
        aformaut = CreateObject("AFormAut.App")
        Flds = aformaut.Fields
 
        For n = 1 To 2 'AnzDatensaetze - 1
 
            Flds("Kurzzeichen").Value = "Test"
 
            'acroexchavdoc.PrintPagesSilent(0, 2, 3, False, True)
 
        Next
        'Export in ein PDF-Dokument
        '**********************************************************************
        ' *****************************************
        '**********************************************************************
        ' *****************************************
End Sub