Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken auf Standarddrucker und in pdf.File

Forumthread: Drucken auf Standarddrucker und in pdf.File

Drucken auf Standarddrucker und in pdf.File
Claudia
Hallo liebe Forumer,
mein Chef nervt ohne Ende und macht Streß, und ich habe keine Ahnung wie ich alles bis heute Abend schaffen soll. Im Archiv habe ich trotz sogfältiger Suche nichts passendes gefunden.
Ich soll über 500 Excel und über 400 Word Dateien (teilweise mit mehreren Seiten) ausdrucken aber auf
a) meinen Standarddrucker UND
b) als pdf File
Kann mir einer mit einem Makro helfen das ich (am besten für Word und Excel) wenn ich Drucke automatisch einen Ausdruck auf meinen Standarddrucker habe und einen Ausdruck als pdf –Datei habe. Dabei wäre es natürlich super wenn der gespeicherte Name der Excel- oder der Word Datei gleich das pdf File ist.
Mein Standarddrucker ist Brother HL 1240 auf USB001
Als pdf Drucker kann ich den Acrobat Destiller oder den Acrobat Writer benutzen.
Vielen vielen Dank vorab
Gruß
Claudia
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Drucken auf Standarddrucker und in pdf.File
geri
Hallo Claudia
so gehts

Sub PDF_erstellen_serie()
Dim intIndex As Integer
Application.ActivePrinter = "Acrobat PDFWriter auf LPT1:"
With Application.FileSearch
.NewSearch
.LookIn = "E:\PDF\"  'Pfad anpassen
.FileType = msoFileTypeExcelWorkbooks
.Execute
For intIndex = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(intIndex)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat PDFWriter auf LPT1:"
ActiveWorkbook.Close Savechanges:=False
Next
End With
Application.ActivePrinter = "\\chbnrzs003\b075 auf Ne02:"
End Sub

den Standarddrucker musst du anpassen am besten zeichne mit Recorder
etwas auf zB Drcukerwechsel und öndere diese zeilen
gruss geri
Anzeige
AW: Drucken auf Standarddrucker und in pdf.File
23.03.2004 13:55:36
Claudia
Hallo Geri,
suuuuper, vielen Dank. Habe den Standarddrucker geändert und jetzt gehts los im Schweingalopp.
Danke und Gruß
Claudia
;

Forumthreads zu verwandten Themen

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
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
Anzeige
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
schreibgeschützte Datei nicht ausdrucken lassen | Herbers Excel-Forum
Jörg Bienek
Hallo,
da bei uns eine bestimmte Datei andauernt ausgedruckt wird, suche ich eine Möglichkeit über VBA das zu verhindern.
Also wenn die Datei schreibgeschützt geöffnet wird darf sie nicht ausgedruckt werden, kann mir da einer helfen?
Danke Jörg
05.01.2010 10:07:04
Thread-ID: 1127192
3 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
Anzeige
Drucken ausgewählter Blätter in ein PDF
Christian

Hallo,
ich habe im Forum gesucht aber nichts gefunden - wenns diese Frage schon gibt, bitte ich um Entschuldigung..
Ich möchte aus einer Excel-Mappe immer nur 4 bestimmte Blätter in EIN PDF drucken. Gibt es eine Voreinstellungsmöglichkeit (per Makro?), die es ermöglicht, dass beim Druck...
20.12.2010 23:13:54
Thread-ID: 1192278
9 Beiträge
Verklinktes PDF via SendKeys Drucken
Daniel

Hallo
folgendes Problem.
ich habe in einer Zelle einen Hyperlink zu einer PDF-Datei.
diese würde ich nun gerne per Makro ausdrucken.
meine Überlegung war, die Datei über den Hyperlink zu öffnen, und dann per SENDKEYS die entprechenden Tastaturbefehle zum Drucken und wieder schli...
12.06.2012 09:05:21
Thread-ID: 1266987
6 Beiträge
mittels button eine pdf Datei suchen und drucken
Gerhard

Hallo alle,
ich habe in einem Ordner mit Pfad "W:\Datenverwaltung\Wareneingang\Prüfzeugnisse" viele pdf-Dateien. Der Dateiname setzt sich wie folgt zusammen:
4- oder 5-stellige Zahl, dann ein Leerzeichen und danach unterschiedlicher Text.
Nun gebe ich in einer Excel-Tabelle in Zelle...
31.10.2014 08:30:34
Thread-ID: 1389649
6 Beiträge
Anzeige
Mit VBA PDFs ausdrucken und automatisch benennen
Bonduca01

Hallo zusammen,
Ich habe eine Tabelle 3, die sich je nach ausgewählter Nummer in der Dropdown-Liste anpasst.
Ich habe auch einen Code, der mir die Tabelle 3 für jede Eintragung der Dropdown-Liste ausdruckt.
Ich hätte aber gerne, dass es nicht ausgedruckt wird, sondern als PDF gespei...
10.03.2015 10:11:26
Thread-ID: 1413950
2 Beiträge
PDF unter Zelleninhaltsnamen drucken.
Winfried

Gruess Gott miteinander,
eine einfache Aufgabe raubt mir den Nerv. In Excel 2003 kann ich leicht über das
Makro: Sub Druck_auf_PDF() ' Drucken_auf_PDF Makro Application.ActivePrinter = "Adobe PDF auf Ne15:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Adobe PDF...
20.05.2016 15:54:03
Thread-ID: 1494514
5 Beiträge
Anzeige
drucken in mehrseitiges PDF
Joachim

Hallo,
ich hab eine Datentabelle, deren Inhalt ich mir übersichtlich in einer Maske (ist auch eine Tabelle) anzeigen lasse und mittels Drehfeld durchklicken kann.
Jetzt möchte per Makro Datensatz 1 bis 400 aufrufen und in eine pdf-Datei drucken, also eine pdf mit 400 Seiten, nicht 400 p...
09.06.2016 14:33:42
Thread-ID: 1497992
3 Beiträge
unterschiedliche Druckbereiche in ein .pdf drucken
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...
20.12.2016 11:39:13
Thread-ID: 1531040
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Drucken auf Standarddrucker und in PDF-Datei

Schritt-für-Schritt-Anleitung

Um sowohl auf deinen Standarddrucker als auch als PDF-Datei zu drucken, kannst du ein VBA-Makro in Excel verwenden. Hier ist die Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic Editor zu öffnen.

  2. Klicke auf "Einfügen" und dann auf "Modul", um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub PDF_erstellen_serie()
   Dim intIndex As Integer
   Application.ActivePrinter = "Acrobat PDFWriter auf LPT1:"
   With Application.FileSearch
       .NewSearch
       .LookIn = "E:\PDF\"  'Pfad anpassen
       .FileType = msoFileTypeExcelWorkbooks
       .Execute
       For intIndex = 1 To .FoundFiles.Count
           Workbooks.Open .FoundFiles(intIndex)
           ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
           "Acrobat PDFWriter auf LPT1:"
           ActiveWorkbook.Close Savechanges:=False
       Next
   End With
   Application.ActivePrinter = "Brother HL 1240 auf USB001" 'Standarddrucker anpassen
End Sub

  4. Passe die Pfade und den Namen des Standarddruckers in der letzten Zeile an.

  5. Schließe den Visual Basic Editor und speichere deine Änderungen.

  6. Führe das Makro aus, um deine Excel-Dateien sowohl auf den Standarddrucker zu drucken als auch als PDF zu speichern.

Häufige Fehler und Lösungen

  • Fehler: "Drucker nicht gefunden"

    • Stelle sicher, dass der Drucker korrekt angeschlossen und im System verfügbar ist. Überprüfe auch den Namen des Druckers im VBA-Code.

  • Fehler: PDF wird nicht erstellt

    • Überprüfe, ob der PDF-Drucker korrekt installiert ist. Stelle sicher, dass du den richtigen Namen des PDF-Druckers im Code verwendest.

Alternative Methoden

Falls du kein VBA verwenden möchtest, gibt es auch manuelle Methoden:

  1. Excel in PDF drucken:

    • Gehe auf "Datei" > "Drucken" und wähle den PDF-Drucker aus. Klicke dann auf "Drucken" und speichere die Datei.

  2. Drucken über den Standarddrucker:

    • Wähle deinen Standarddrucker im Druckdialog aus und drucke die Datei direkt.

Praktische Beispiele

  • Um eine PDF-Datei aus einer Excel-Tabelle zu erstellen, gehe zu "Datei" > "Speichern unter" und wähle "PDF" als Dateityp aus. Dies ist eine einfache Methode, um eine PDF-Datei ausdrucken zu lassen.

  • Wenn du mehrere Excel-Dateien hast, kannst du das oben beschriebene VBA-Makro verwenden, um alle Dateien in einem bestimmten Ordner als PDF zu drucken.

Tipps für Profis

  • Nutze den Excel-Recorder, um häufige Druckprozesse aufzuzeichnen und sie später automatisiert auszuführen.
  • Überlege, ob du deine PDF-Dateien schützen möchtest, um ungewollte Änderungen zu verhindern. Dafür kannst du beim Speichern als PDF die entsprechenden Einstellungen vornehmen.

FAQ: Häufige Fragen

1. Frage
Wie kann ich den Standarddrucker in Excel festlegen?
Antwort: Gehe auf "Datei" > "Drucken" und wähle deinen gewünschten Drucker aus. Um ihn als Standarddrucker festzulegen, mache einen Rechtsklick auf den Drucker in den Druckereinstellungen und wähle "Als Standarddrucker festlegen".

2. Frage
Kann ich mehrere PDFs gleichzeitig drucken?
Antwort: Ja, du kannst ein VBA-Makro verwenden, um mehrere Excel-Dateien in einem bestimmten Ordner als PDF zu drucken. Das oben aufgeführte Makro ist ein praktisches Beispiel dafür.

3. Frage
Wie kann ich sicherstellen, dass meine PDF-Datei größer ausgedruckt wird?
Antwort: Achte darauf, in den Druckeinstellungen die Option "Seitenanpassung" entsprechend anzupassen, um die Größe der PDF-Datei beim Drucken zu ändern.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige