Datensätze als pdf drucken

Hallo zusammen,
mein Problem ist hier eigentlich schon gut angerissen, ich zitiere mal:
https://www.herber.de/forum/archiv/1496to1500/1499601_Datensatz_drucken_naechster_drucken_naechster.html






Geschrieben am: 17.06.2016 15:42:02
Hallo,
habe ein Excel-Tabellenblatt "Profil" erstellt, welches Informationen aus einem anderen Tabellenblatt mittels SVerweis und Summewenns holt. Hierfür muss ich auf dem Tabellenblatt "Profil" in Zelle B3 lediglich über einen Dropdown eine Nummer auswählen und die Daten werden neu gelesen. Die Dropdown ist über eine Datenüberprüfung vom Typ "Liste" erstellt. Die Liste hierbei ist variabel.
Nun möchte ich über ein Makro folgendes tun:
1. aktuelles Arbeitsblatt drucken (bekomme ich über Makroaufzeichnen hin)
2. Zelle B3 auf den nächsten Datensatz aus der "Liste" ändern
3. neu ausgelesenes Arbeitsblatt drucken
4. Zelle B3 auf den nächsten Datensatz aus der "Liste" ändern
5. drucken,
6. usw, ...
Solange bis in "Liste" keine Daten mehr vorhanden sind.
Leider sind meine VBA Kenntnisse bescheiden, von daher hoffe ich auf Eure Unterstützung!
Danke u. Gruß
Dustbin"

Die Lösung beinhaltet jedoch das Drucken unter einem Dateinamen. Die Lösung sieht wie folgt aus und mit dem Papierdrucker funktioniert das ganze auch bei mir wunderbar.


Sub Drucken()
Dim Rng As Range, Zelle, TB
Set Rng = Sheets("Tabelle2").Range("A2:A20") 'anpassen
Set TB = Sheets("Tabelle1")
For Each Zelle In Rng.SpecialCells(xlCellTypeConstants, 3)
TB.Range("B3") = Zelle.Value
TB.PrintOut
Next
End Sub

Ich möchte die Dateien jedoch unter dem jeweilig in "B3" ausgewählten Zellnamen als pdf speichern, sodass in meinem Zielverzeichnis mehrere pdfs mit unterschiedlichen Namen liegen, die dem ausgewählten Zellwert entsprechen. Wie ist das eine mit dem anderen zu kombinieren? Für Hilfe wäre ich sehr dankbar.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub PDFAusListeErzeugen() Dim ws As Worksheet Dim i As Long Set ws = ThisWorkbook.Worksheets("Tabelle1") 'On Error Resume Next 'besser ohne! With ws For i = 1 To ws.Cells(Rows.Count, 11).End(xlUp).Row .Cells(3, 2).Value = .Cells(i, 11).Value .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\DeinPfad\" _ & .Cells(3, 2).Value & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next i End With End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datensätze als pdf drucken

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread