Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1736to1740
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
1736to1740
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Sheets in 1 pdf ausdrucken

mehrere Sheets in 1 pdf ausdrucken
31.01.2020 13:02:51
Franz
Hallo Fachleute,
ist es möglich, mehrere Sheets in einer einzigen pdf-Datei zu drucken?
Hintergrund: ich hab eine Datei, deren erste Seite im Hochformat, der Rest der Datei im Querformat steht. Und beides muss ich in 1 pdf kriegen. Ist das möglich?
Danke schonmal und Grüße
Franz

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Sheets in 1 pdf ausdrucken
31.01.2020 13:12:20
ChrisL
Hi Franz
Lässt sich mit dem Rekorder aufzeichnen. Mehrere Blätter selektieren und dann drucken.
z.B.
Sheets(Array("Tabelle1", "Tabelle2")).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
(Aktiver Drucker = PDF-Printer)
cu
Chris
AW: mehrere Sheets in 1 pdf ausdrucken
31.01.2020 16:19:30
Franz
Hallo Chris,
vielen Danke erstmal. Zum Einen war mir das neu, dass man mehrere Sheets selektieren kann. Ich nehme mal an mit Strg-Klick - ist das richtig?
Wenn ich es so mache, scheinen auch beide Sheets selektiert zu sein - das eine Sheet (hoch) ist 1-seitig, das zweite Sheet (quer) ist 2-seitig. Allerdings wird beim Ausdrucken doch jedes Sheet in einen eingene pdf-Datei gespeichert. Bzw. würde die 2 die erste überschreiben, würd ich nicht einen anderen Namen vergeben.
Dein Code läuft leider nicht, ein "anwendungs- oder objektdefinierter Fehler" wird moniert.
Was mache ich falsch?
Fragt
Franz
Anzeige
AW: mehrere Sheets in 1 pdf ausdrucken
31.01.2020 17:05:34
ChrisL
Hi Franz
Tabelle1 und Tabelle2 müssen existent sein, damit die Codezeile fehlerfrei läuft:
Sheets(Array("Tabelle1", "Tabelle2")).PrintOut
Der Druck erfolgt auf dem aktiven Printer.
Ich hatte es vorher kurz getestet. Eine Seite Hoch und die andere Seite Quer. Hat wunderbar funktioniert (= 1 PDF).
Evtl. könnte es noch vom verwendeten PDF-Writer abhängen, aber ich denke eher nicht. Mein Test erfolgte mittels PDFFactory.
cu
Chris
AW: mehrere Sheets in 1 pdf ausdrucken
31.01.2020 17:31:01
Franz
Hallo Chris,
das Problem mit dem Code ist gelöst. Allerdings ist das äußerst merkwürdig!
Meine Blätter haben Namen, also hab ich die Namen meiner Blätter IN DEINEN CODE REINGESCHRIEBEN. Und dabei kam die Fehlermeldung. Dann hab ich die Blattnamen IN DEN CODE REINKOPIERT - selber Fehler. Dann hab ich die Namen zuerst in den Code geschrieben und dann IN DIE BLÄTTER kopiert - und jetzt läuft der Code fehlerfrei ? ............. Egal aber es klappt.
Allerdings ruft mein pdf-Programm (Scan soft create) immer noch zwei Mal auf zur Vergabe eines Namens und es werden 2 separate Dateien gespeichert wie vorher. Damit werd ich mich jetzt noch weiter spielen.
Danke erstmal, ich meld mich wieder
Grüße
Franz
Anzeige
AW: mehrere Sheets in 1 pdf ausdrucken
31.01.2020 17:57:52
ChrisL
Hi Franz
Schön dass es soweit läuft.
Vielleicht doch mal einen anderen PDF Creator probieren. Könnte evtl. doch sein, dass man bei deiner Software die Orientierung voreinstellen muss resp. dass er mit unterschiedlichen Formaten im selben File generell nicht umgehen kann.
https://www.nuance.com/products/help/NuancePDF/en_US/PDF_Create_Properties.htm
cu
Chris
AW: mehrere Sheets in 1 pdf ausdrucken
02.02.2020 14:34:38
Franz
Hallo Chris,
danke, es klappt jetzt alles, wie es soll. Allerdings bin ich tatsächlich auf deine pdfFactory umgestiegen, mit meinem Prog war's nicht zu machen, zumindest hab ich's nicht hingekriegt.
Aber mit pdfFactory klappt das jetzt, danke für deine Hilfe!
Grüße
Franz
Anzeige
AW: mehrere Sheets in 1 pdf ausdrucken
05.02.2020 11:17:26
Dietmar
Hallo Franz,
bei der PDF-Ausgabe gibt es noch einen unangenehmen Effekt: haben die Register unterschiedliche Auflösungen (Seite einrichten / Papierformat / Druckqualität) also 300 dpi und 600 dpi klappt das mit einer PDF-Datei normalerweise nicht. Setze alle Register auf die gleiche Auflösung, dann sollte der PDF-Export in eine einzige Datei (auch per VBA) immer klappen. Ggf. könntest du ja die Register per VBA auch synchronisieren (alle auf die gleiche Auflösung setzen).
Viele Grüße
Dietmar
AW: mehrere Sheets in 1 pdf ausdrucken
05.02.2020 11:36:26
Franz
Danke Dietmar,
guter Tipp, werd ich mir anschauen. Hab's jetzt leider da. Ich denke zwar, die in diesem Fall 2 Register müssten die gleiche Auflösung haben, da sollte nichts verändert sein. Aber auswendig weiß ich's nicht.
Danke und Grüße
Franz
Anzeige
AW: mehrere Sheets in 1 pdf ausdrucken
31.01.2020 13:12:50
Markus
Hallo,
richte einfach jedes Tabellenblatt über das Seitenlayout so ein, wie es benötigt wird. Im Anschluss einfach alle Tabellenblätter markieren und "Speichern unter" wählen. Dort als PDF abspeichern. Im Resultat erhälst du eine Datei mit mehreren Seiten, die das jeweilige Hoch/Querformat des Tabellenblattes berücksichtigen.
Oder brauchst du es als VBA-Lösung, sodass es auf Knopfdruck geschieht?
Ciao
Markus
AW: mehrere Sheets in 1 pdf ausdrucken
31.01.2020 13:16:54
Markus
oder als Makro, damit es auf Knopfdruck für definierte Tabellenblätter funktioniert.

Sub save_as_PDF_1()
Sheets(Array("Blatt1", "Blatt", "Blatt3")).Select
Sheets("Blatt1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "PDF printout " & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Blatt1").Select
Range("B3").Select
End Sub

Anzeige
AW: mehrere Sheets in 1 pdf ausdrucken
31.01.2020 16:24:22
Franz
Hallo Markus,
auch dir danke! Aber leider gibt es bei mir kein "Speicher unter - als PDF". Ist dazu mein Excel 2003 zu alt?
Und damit klappt auch leider dein Code nicht, "xlTypePDF" erzeugt einen Fehler.
Grüße
Franz
AW: nur zu dieser Deiner Frage hier ...
02.02.2020 14:58:34
neopa
Hallo Franz,
... die Funktion "Speicher unter - als PDF" gibt es erst ab ExcelVersion 2007 spätestens aber ab Version 2010 aber nicht in Deiner 2003er Version.
Gruß Werner
.. , - ...
AW: nur zu dieser Deiner Frage hier ...
02.02.2020 15:02:04
Franz
danke, Werner!
Und viele Grüße
Franz

183 Forumthreads zu ähnlichen Themen

als PDF drucken
KLE

Hallo und Guten Abend zusammen,
...jetzt habe ich meine Datei super hinbekommen - alles funktioniert und so, aber wie immer kommt mein Chef im Nachgang mit einem Sonderwunsch...und da komm ich ohne Eure Hilfe auch nicht weiter :o(
Ich habe es nun dank Eurer Unterstützung geschafft aus e...
25.09.2008 18:01:07
Thread-ID: 1012395
2 Beiträge
Anzeige
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
PDF aus Intranet drucken
{Boris}

Hi Leute,
ich möchte aus Excel heraus PDF-Files drucken, die sich in unserem Intranet befinden.
Bisher kann ich sie mittels Hyperlink öffnen - muss dann aber noch manuell den Druck starten. Das möchte ich gerne vermeiden, zumal ich gerne mehrere Files ausdrucken möchte.
Ein klassisc...
05.01.2009 18:47:34
Thread-ID: 1037077
13 Beiträge
Anzeige
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
Alle pdf aus einem Ordner drúcken
Gerhard

Hallo zusammen,
ich habe mir folgendes Makro aus dem Forum genommen: Sub PrintPDF() Dim sPath$, i% sPath = "C:\Documents and Settings\gglatz\Desktop\NEWFOLDER\" With Application.FileSearch .NewSearch .LookIn = sPath .Filename = "*.*" .Execute Range("B2").Value = .FoundFiles.Count .NewSearch...
13.07.2009 12:51:43
Thread-ID: 1088158
4 Beiträge
pdf Dateien in einem Ordner drucken
Gerhard

Hallo zusammen,
ich habe folgendes Makro um alle pdf Dateien in einem Ordner zu drucken.
Der Druck und alles funktioniert wunderbar. Ich möchte jedoch, dass der Druck in auf- bzw. absteigender Reihenfolge passiert. Die pdf Dateien haben Namen wie
2100005897.pdf
2100005898.pdf
13.07.2009 15:58:37
Thread-ID: 1088238
4 Beiträge
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
PDF aus Exceldatei drucken
Beni

Hallo miteinander
Ich möchte mehrere PDF Dateien (ohne diese zu öffnen) per Command Button anhand der Pfadangabe in der Tabelle ausdrucken.
A1 = C:\Test\x.pdf
A2 = C:\Test\y.pdf
A3 = C:\Test\z.pdf
etc.
leider finde ich den Weg nicht alleine
Vielen Dank und ein schöne...
04.09.2009 14:19:10
Thread-ID: 1100634
7 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
1
2
12
13
2
3
3
13
6
1
1
4
2
5
1
3
4
1
5
8
6
4
10
2