Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

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

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)

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