PDF nach Seitenanzahl erzeugen, speichern
11.06.2017 21:28:09
Thorsten
ich muss für die liebe Behörden ein paar hundert Rechnungen PDF-en 😊
Problem: Die Rechnungsmaske hat 20 Seiten und die Rg. differenzieren zw. 1 20 Seiten. Habe begonnen diese einzeln als PDF zu speichern, nur da macht man sich ganz schön zur Pfeile, jedes Mal Pfad zu wählen und in Optionen die jeweilige Seitenzahl festzulegen.
Selber habe ich von VBA keinen Dunst. Aber in einer anderen Datei habe ich aus einer Bezahlarbeit einen größeren Code der E-Mails versendet und nebenbei auch PDF speichert. Nun habe ich versucht den dafür relevanten Teil herauszukopieren und für dieses Vorhaben einzusetzen.
Sub PDFspeichern()
Dim Object, sPath$, sFileName$, sPfadUndDateiname$
sPath = Sheets("WE").Range("A5").Value
sFileName = Sheets("WE").Range("A6").Value
sPfadUndDateiname = sPath & sFileName
Sheets("WE").Range("Druckbereich").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sPfadUndDateiname, Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=True, OpenAfterPublish:=False
End Sub
Das müsste behoben werden.
Und dann fehlt noch die entscheidende Vorgabe im Code: die Seitenzahl, welche gedruckt werden soll.
Diese habe ich per Formel ermittelt und steht in Sheets("WE").Range("A6").
Kann hier jemand helfen?
Wäre natürlich ein Traum, wenn ich diese per Knopfdruck runterrattern kann.
Viele Grüße aus Markkleeberg
Thorsten
