Doppelter Druck

Forumthread: Doppelter Druck
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Doppelter Druck

Doppelter Druck

10.05.2026 16:54:15

PatrickNRW

Hallo zusammen,

ich habe eine Excel-Datei, in der ich zwei Excel-Dateien auf einmal starte.

In beiden Dateien habe ich im Private Sub die Befehle zum Drucken und Schließen.

ActiveSheet.PrintOut
Workbooks.Close

Excel öffnet und druckt aber immer nur die erste Datei, die ich öffne.

Könnt Ihr mir helfen?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Doppelter Druck

10.05.2026 17:02:41

Onur
AW: Doppelter Druck

10.05.2026 20:36:53

Ulf
AW: Doppelter Druck

10.05.2026 21:54:43

PatrickNRW
AW: Doppelter Druck

11.05.2026 07:58:28

Marc
AW: Doppelter Druck

11.05.2026 10:51:52

RPP63

AW: Doppelter Druck

10.05.2026 17:02:41

Onur

" habe ich im Private Sub" ??? Was für ein "Private Sub" denn ????

AW: Doppelter Druck

10.05.2026 20:36:53

Ulf

Hi,
mit

Workbooks.Close

schließt du alle Dateien, sollte wohl

ThisWorkbook.Close

sein.
hth
Ulf

AW: Doppelter Druck

10.05.2026 21:54:43

PatrickNRW

Bitte nicht auf den Code eingehen, es klappt alles.

Ich möchte nur, dass wenn ich zwei Excel-Dateien aus einem Makro öffne und diese dann drucken möchte, dass er auch die zweite Datei druckt, und nicht nur die erste.

AW: Doppelter Druck

11.05.2026 07:58:28

Marc

Dann musst du dem Code sagen, welche Datei er drucken soll, ansonsten wird er immer nur die aktive auswählen und drucken..

und ohne Code wird man dir kaum helfen können.

In welcher Datei steht der Code mit dem Drucken, woher soll er dann wissen, welche Datei er auswählen soll?, wie werden die Dateien angesprochen ?
Fragen über Fragen

AW: Doppelter Druck

11.05.2026 10:51:52

RPP63

Moin!
Nun, es klappt ja offensichtlich nicht!
Die Workbook.Printout-Methode druckt ja auch nicht die Datei (aka Mappe), sondern nur das gerade aktive Blatt.
Wenn die Mappe nur ein Blatt hat, ist diese Feinheit egal.

Mal ein Code, wie ich dies angehen würde:

Sub Test()

With Workbooks.Open("E:\aktueller Stand\Zeitumstellung.xlsx")

  .PrintOut

  .Close False

End With

With Workbooks.Open("E:\aktueller Stand\Gradtagszahlen.xlsx")

  .PrintOut

  .Close False

End With

End Sub

Gruß Ralf

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