VBA automat. Drucken + Datenüberprüfung
20.06.2016 07:45:44
DanielW
ich würde in einer Excel-Datei gerne folgende Funktion zur Verfügung stellen:
- Das Tabellenblatt "Ausgabe" soll per Klick auf ein Steuerelement als pdf gedruckt werden und unter einem variablen Namen im angegebenen Pfad gespeichert werden. (Diesen Teil habe ich hinbekommen)
- Das Tabellenblatt "Ausgabe" enthält eine Listauswahl (erstellt über Datenüberüberprüfung) in Zelle "D4". Die Liste befindet sich im Tabellenblatt "Stammdaten" in Spalte A.
Das Drucken der pdf soll per Knopfdruck für jede Auswahlmöglichkeit in der Listauswahl durchgeführt werden. (Jede Auswahl liefert Daten auf der Seite)
Hier mein bisheriger Versuch. Ausgangspunkt war der Code der Punkt 1 erfolgreich erfüllt hat.
Sub Drucken()
Const DateiPfad = "c:\Users\"
Dim DateiName As String
Dim i As Long
Dim IngLetzteZeile As Long
Set wsStammdaten = ThisWorkbook.Sheets("Stammdaten")
Set wsAusgabe = ThisWorkbook.Sheets("Ausgabe")
IngLetzteZeile = wsStammdaten.Cells(Rows.Count, 1).End(xlUp).Row
DateiName = DateiPfad & Range("D3") & Range("M4") & ".pdf"
'Einträge den "Stammdaten" abarbeiten
For i = 6 To lngLetzteZeile
wsAusgabe.Range("D3") = wsStammdaten.Cells(i, 1)
'Drucken
wsAusgabe.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Next i
Set wsAusgabe = Nothing
Set wsStammdaten = Nothing
End Sub
Vielen Dank für eure Hilfe!
Anzeige