Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mehrere PDFs aus Mappen erstellen

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
Anzeige
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

Anzeige

179 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige