Office: VBA - PDF ausdrucken

Hallo zusammen,

Ich habe ein Formular in Excel erstellt, das ich für jeden der Kunden ausdrucke.

Das heißt, ich gebe die Kundennummer in das Feld „E2“ ein und der Rest wird automatisch ausgefüllt, gemäß der Datenbank und Formeln die ich verknüpft habe.

Ich möchte dann irgendwo in dieser Tabelle eine Schaltfläche (Eine Art „Button“) einfügen, damit jedes Mal wenn ich darauf klicke, dieses Formular (nur der Druckbereich) als pdf auf dem Desktop gespeichert wird. Der Name unter dem es gespeichert werden soll, ist Kundennummer – Kundenname, also Feld „E2“ – „F2“.

Kann mir da bitte jemand helfen die VBA zu schreiben?

Oder vielleicht habt ihr eine andere Idee, wie ich es hinbekommen könnte?!?

 

Hallo,

die PDF-Datei wird im Verzeichnis der Excel-Datei erzeugt und hinterher angezeigt.
Der VBA-Code ist in ein allgemeines Codemodul zu speichern.

Code:

Option Explicit

Sub AusgabePDF()
 
    Dim Pfad As String, Dateiname As String
 
    With ActiveSheet
 
        Pfad = ThisWorkbook.Path
        Dateiname = .Range("E2").Value & " - " & .Range("F2").Value & ".PDF"
 
       .ExportAsFixedFormat Type:=xlTypePDF, _
           Filename:=Pfad & "\" & Dateiname, _
           Quality:=xlQualityStandard, IncludeDocProperties:=True, _
           IgnorePrintAreas:=False, _
           OpenAfterPublish:=True
 
    End With
 
End Sub

 

Die PDF-Datei wird zwar nicht auf dem Desktop gespeichert, sondern in dem Ordner in dem die Excel-Datei ist. Aber ich bin schon sehr zufrieden, dass das mit der Name der Datei schon klappt :-)

Vielen Dank @Exl121150 für die sehr schnelle Hilfe. ;-)