Mehrere PDFs aus Mappen erstellen

Forumthread: Mehrere PDFs aus Mappen erstellen

14.03.2015 14:43:31

Doliwa

Ich mache gerade meine ersten Gehversuche mit VBA und komme mit den Lösungen hier nicht weiter.
Ich habe eine Excel-Tabelle mit der ich die Sammellieferungen berechne. Deswegen gibt es Mappen die die Bezeichung Rechnung1, Rechnung2, usw. haben.
Es soll nun das Ausdrucken der Rechnungen über VBA gehen. Bisher habe ich folgende Programmierung ausgearbeitet, die auch funktioniert:
Sheets("Rechnung1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Rechnung2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Was die ganze Sache noch unbefriedigend macht ist Folgendes:
Nachdem die Mappe"Rechnung1" ausgewählt wurde, müßte der Zellwert B38 auf Inhalt geprüft werden. Falls B38 leer ist, so sollte der SUB beendet werden, andernfalls mit dem Druck (SUB)fort gefahren werden.
Beim Drucken sollte der Name der Datei vergeben werden zusammen mit dem Zellwert D10 der jeweiligen Mappe.
Last but not least möchte ich den Abspeicherort E:\DATEN\sdoliwa\EigeneDokumente\ eingeben.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrere PDFs aus Mappen erstellen

14.03.2015 19:32:56

Doliwa

AW: Mehrere PDFs aus Mappen erstellen

14.03.2015 19:32:56

Doliwa

So,habe nun nach Stunden die Lösung. Sollte jemand ebenfalls mal dieses Problem haben, hier meine Programmierung:

Sub Drucken()
Dim vntFile As Variant
Sheets("Spedition").Select
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & "Angebot_Ladebordwand" &  _
"_Uebersicht" & ".pdf", _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile  False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
Sheets("Rechnung1").Select
Range("D10").Select
If ActiveCell.Offset(0, 0) = "" Then
Exit Sub
Else
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & "Angebot_Ladebordwand" &  _
Sheets("Berechnung").Range("I1") & "_" & Range("D10") & ".pdf", _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile  False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Mehrere PDFs aus Mappen erstellen

Forumthread: Mehrere PDFs aus Mappen erstellen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread