Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

unterschiedliche Druckbereiche in ein .pdf drucken

unterschiedliche Druckbereiche in ein .pdf drucken
20.12.2016 11:39:13
Walter
Hallo!
AUSGANGSSITUATION:
Ein Makro (nochmals Danke an UweD) erzeugt eine variable Anzahl an .pdf-Seiten (je nach gewählten Bereichen zwischen 1 und 13 Seiten) und speichert diese einzeln unter einem Pfad, der im Makro fix definiert ist.
ZIEL:
Es sollen die einzelnen Seiten in ein .pdf gedruckt werden und der Speicherort für dieses .pdf frei gewählt werden können.
Kann mir dabei jemand behilflich sein?
Danke gleich im Voraus.
Beste Grüße
Walter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: unterschiedliche Druckbereiche in ein .pdf drucken
20.12.2016 15:23:46
Walter
Hallo Michael!
Half leider nicht - dennoch Danke.
Beste Grüße
Walter
AW: unterschiedliche Druckbereiche in ein .pdf drucken
20.12.2016 15:27:53
Michael
Hallo Walter,
dann stell doch mal das Makro hier ein.
Gruß
Michael
AW: unterschiedliche Druckbereiche in ein .pdf drucken
20.12.2016 16:07:16
Walter
Hallo!
Das Makro sieht wie folgt aus:
Sub Drucken()
'Dim LR&, SP%, Z, Arr, TB, RNG$
Dim Pfad$, Datei$
SP = 2 'Spalte mit den Bereichen
Pfad = "C:\Druck\"
With Sheets("DRUCK")
LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For Each Z In .Range(.Cells(2, SP), .Cells(LR, SP))
If Z  "" Then
Datei = .Cells(Z.Row, SP - 1)
Arr = Split(Z, "!")
Set TB = Sheets(Arr(0))
Rng = Arr(1)
TB.PageSetup.PrintArea = Rng
'PDF
TB.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad & Datei & ".PDF", IgnorePrintAreas:=False
'oder Druck
'TB.PrintOut IgnorePrintAreas:=False
End If
Next
End With
Range("F2:F4").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F5").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F6").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F7").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F8").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F9").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F10").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F11").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F12").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F13:F14").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F15").Select
ActiveCell.FormulaR1C1 = "nein"
Range("G6").Select
ActiveCell.FormulaR1C1 = "ja"
Range("G7").Select
ActiveCell.FormulaR1C1 = "ja"
Range("G12").Select
ActiveCell.FormulaR1C1 = "ja"
Range("G13:G14").Select
ActiveCell.FormulaR1C1 = "ja"
Range("G15").Select
End Sub

Auswahlmaske für den Bediener --> siehe Bild1
Userbild
Zusammenstellung der zu druckenden Dokumente --> siehe Bild2
Userbild
Ich hoffe das macht´s verständlicher - wie gesagt würde ich gerne die zu druckenden Dokumente in ein .pdf drucken und das Makro soll nachfragen, wohin´s gespeichert werden soll.
Danke für das Interesse und die Mühe.
Beste Grüße
Walter
Anzeige
AW: unterschiedliche Druckbereiche in ein .pdf drucken
21.12.2016 12:07:41
Michael
Hallo Walter,
wenn ich das Makro richtig lese, werden die einzelnen PDF - Dokumente entsprechend des eingetragenen Druckbereiches erstellt.
Habe es nicht geschafft, die Abfrage zu den Zellen B2 bis B4 so umzuwandeln, dass nur eine PDF - Datei herauskommt.
Als Lösung könnte ich dir folgenden Code anbieten: 
Sub Drucken_2()
Dim varFilename As Variant
varFilename = Application.GetSaveAsFilename( _
InitialFileName:="Meine.pdf", _
fileFilter:="PDF (*.pdf), *.pdf", _
Title:="als PDF speichern")
Dim Rabereich As Range
Set Rabereich = Union(Sheets("Output").Range("B2:N65"), _
Sheets("Output").Range("P2:X65"), _
Sheets("Output").Range("Z2:AG65"))
If varFilename  False Then
Rabereich.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=varFilename, _
IgnorePrintAreas:=False
End If
End Sub
Hat den Nachteil, dass du bei Veränderungen am Druckbereich diesen hier händisch eingeben muss.
Wenn du den Code nimmst, muss du den Namen des Codes (hier: Drucken_2) unter dem End With deines Makros setzen; dann werden zuerst die einzelnen PDF - Dateien in dem vorgegeben Pfad gespeichert und danach wird man gefragt, wo die zusammenhängende Datei abgespeichert werden soll.
Noch eins: 
Range("F2:F4").Select
ActiveCell.FormulaR1C1 = "nein"

kann man kürzen: 
Range("F2:F4").FormulaR1C1 = "nein"
Gruß
Michael
Anzeige

302 Forumthreads zu ähnlichen Themen

mehrere Tabellenblätter in ein PDF drucken
Christian

Hallo zusammen,
nachdem ich im Forum keine Info zu meinem Thema gefunden habe:
Ich möchte mehrere Tabellenblätter einer Datei als PDF ausdrucken. Also markiere ich die Tabellenblätter und gehe wie gewohnt ins Menü "Drucken" (PDF über Acrobat 7.0 oder PDF XChange 4.0 Lite).
Leider we...
10.10.2008 09:11:00
Thread-ID: 1015503
2 Beiträge
Anzeige
Berechnung/Bedingung umwandeln als Makro
Lucia

Hallo zusammen,
Ich habe ein Tabellenblatt, welches mir in einer Spalte das Fälligkeitsdatum einer eingehenden Rechnung errechnet.
Dabei kommt es darauf an, ob
a) dem Lieferanten ein Zahlungsziel hinterlegt ist
b) ein fester Zahltag hinterlegt ist (bei Daueraufträgen)
c) e...
21.01.2009 10:01:58
Thread-ID: 1042078
9 Beiträge
2 Tabellenblätter in ein PDF nicht möglich
Joachim

Hallo,
ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
Dim n As Integer
Sheets(3).Select
For n = 3 To Sheets.Count
Sheets(n).Select False
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
25.11.2009 08:17:45
Thread-ID: 1119865
6 Beiträge
Anzeige
mehrere Tabellenblätter im Querformat ausdrucken
WernerP

Ich möchte mehrere Tabellenblätter in einem Rutsch im Querformat ausdrucken.
Markiere ich alle Tabellenblätter und wähle Drucken mit Vorschau, so muß ich für jedes einzelne
Blatt das Querformat einstellen.
Gibt es einen Weg für alle Blätter gleichzeitig Querformat einzustellen? G...
01.12.2009 13:02:29
Thread-ID: 1121202
2 Beiträge
Zellen aus mehreren Tabellenblätter in eine Tabell
Stephan

Hallo,
ich beziehe mich auf einen Thread - wo ich den ANTWORTEN - Button nicht gefunden habe.
es geht um folgenden Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1113368.htm#1113368
Ich habe 12 Blätter und will Werte der einzelnen Blätter in einer Übersicht (13. Blatt) zus...
04.01.2010 18:47:08
Thread-ID: 1127122
6 Beiträge
mit PDF Creator ein Tabellenblatt als pdf abspeich | Herbers Excel-Forum
Horst
Hallo
ich will ein Tabellenblatt als pdf abspeichern.
Dank diesem Forum habe ich einen Code gefunden, welcher jedoch bei mir nicht richtig funktioniert.
Wenn ich bei Break (siehe Code) stoppe, ist der PDFCreator geöffnet, das umzuwandelne Tabellenblatt
ist eingetragen und der Status...
14.01.2010 16:16:29
Thread-ID: 1129991
6 Beiträge
Excel File in ein PDF drucken
thomas3

Hallo zusammen,
ich weiß nicht, ob ich hier richtig bin. Falls nein, bitte ich um Entschuldigung...
Hier die Frage.
Ich muß eine Tabelle, die auf eine bestimmte Druckvorlage ausgerichtet ist über ein PDF per Mail versandfertig machen. Soll heißen, anstatt eine Rechung ( also die Exc...
01.02.2010 21:34:24
Thread-ID: 1134944
6 Beiträge
Diagramm/Pivot aus mehreren Tabellenblättern
Holger

Hallo zusammen,
habe ein Excel-Sheet mit mehreren Tabellenblättern und möchte aus der Gesamtheit aller Daten ein Diagramm oder PivotChart erstellen. Ist dies möglich und wenn ja wie? Ein Beispiel habe ich hochgeladen.
Vielen Dank schon mal für die Hilfe.
11.02.2010 21:24:37
Thread-ID: 1137925
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
8
5
2
1
5
5
5
3
3
1
2
7
4
1
5
1
5
5
5
8
2
5
1