Function pdfdrucken(ByVal PDFFile As String) As Boolean
 
On Error GoTo pdfdruckenerror
 
If UCase(Right(PDFFile, 4)) = ".DOC" Then
  PDFFilename = "c:\temp\" & PDFFile
Else
   PDFFilename = "c:\temp\" & PDFFile & ".DOC"
End If
 
 ActiveDocument.SaveAs filename:=PDFFilename, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
 
 'hier noch die Fußzeile aktualisieren
 ActiveDocument.PrintPreview
 ActiveDocument.ClosePrintPreview
 
 
ActivePrinter = "PDFKunde"
Application.PrintOut filename:="", Range:=wdPrintAllDocument, Item:= _
 wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
 Collate:=True, Background:=False, PrintToFile:=False, PrintZoomColumn:=0, _
 PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
 
'hier noch zusammenräumen
    pdfdrucken = True
    ActiveDocument.Close False
    Kill (PDFFilename)
 
    Exit Function
pdfdruckenerror:
 
    pdfdrucken = False
    Exit Function
End Function