'----------------------------------------------------------------------
Sub PdfWithPDFCreator4()
 
''' aktuelles Tabellenblatt als pdf-Datei ausgeben
'''http://www.clever-excel-forum.de/Thread-VBA-VBA-und-PDF-Creator-2
 
'Objekte zum Drucken als pdf-Datei
    Dim pdfJob              As Object   'Objekt für PDFCreator
    Dim printJob            As Object   'Objekt für PDFCreator
 
'Variablen zum Drucken als pdf-Datei
    Dim m_path_pdf          As String   'Laufwerk
    Dim m_datei_Job         As String   'Variable für 'Set printJob ...'
    Dim m_datei_pdf         As String   'Datei-Name für .pdf-File
    Dim m_pdf_AltDrucker    As String       'DurckerName vor dem Prg.-Aufruf
 
'PDFCreator: Instanz beenden, falls diese durch vorherigen Fehler noch an ist!
    On Error Resume Next
        pdfJob.ReleaseCom
    On Error GoTo 0
 
''''''''''''''''''''''''''
'Pfad & Dateiname für PDFCreator festlegen
m_path_pdf = "H:"
    m_datei_Job = ActiveWorkbook.Name
    m_datei_Job = m_path_pdf & "\" & m_datei_Job
    m_datei_pdf = Replace(m_datei_Job, ".xls", ".pdf", Compare:=vbTextCompare)
 
'Bestehende .pdf-Datei suchen und wenn gefunden umbenennen
    If Dir(m_datei_pdf) <> "" Then
        On Error Resume Next
            Kill m_datei_pdf
        On Error GoTo 0
    End If
 
''''''''''''''''''''''''''
'Durcker-Name merken, um diesen später wieder einzustellen
    m_pdf_AltDrucker = Application.ActivePrinter
 
'Standarddrucker auf PDFCreator setzen
    Application.ActivePrinter = "PDFCreator auf Ne00:"
 
'Referenz auf PDFCreator      'COM-Objekt (Auftragswarteschlange) initialisieren
    On Error Resume Next    ''''''''''''''''
    Set pdfJob = CreateObject("PDFCreator.JobQueue")
    ''MsgBox Err.Description
    pdfJob.Initialize
    ''MsgBox Err.Description
    On Error GoTo 0         ''''''''''''''
 
'Drucken über den pdf-Drucker
    ActiveSheet.PrintOut
 
'PDFCreator: auf die Ankunft eines Druckauftrages warten
    pdfJob.WaitForJob (10)
 
'PDFCreator: nächsten Druckauftrag aus der Warteschlange herauszunehmen
    Set printJob = pdfJob.NextJob
 
'PDFCreator: Konvertierungsprofil des Druckauftrages festlegen
    printJob.SetProfileByGuid ("DefaultGuid")
 
'PDFCreator: Pfad & Dateiname und konvertieren
    printJob.ConvertTo (m_datei_pdf)
 
'Konvertierungsstatus abfragen  /  'PDFCreator: Instanz beenden
    'MsgBox (printJob.IsSuccessful)
    If printJob.IsFinished = True Then
        pdfJob.ReleaseCom
    End If
 
'Fehelhandling ausschalten
    On Error GoTo 0
    Application.Wait (Now + TimeValue("00:00:02"))   '''2 Sek. warten
 
'Drucker zurückstellen auf den vorher gemerkten Durcker-Namen
    If Len(m_pdf_AltDrucker) > 0 Then
        Application.ActivePrinter = m_pdf_AltDrucker
    End If
 
Set pdfJob = Nothing
Set printJob = Nothing
 
End Sub

Gruß aus Mittelfranken
Heinz