Excel VBA Druckaufträge bündeln

[Pascala]

Hallo zusammen,

ich habe hier einen Code der mir den Wert der Textbox in Druckaufträge umwandelt.
Also wenn in Textbox eine 8 steht dann stößt er 8 mal einen Druck aus.

Nun wollte ich frage ob man dies Druckaufträge vielleicht nicht sammeln könnte und am Ende gemeinsam ausdruckt.
Das würde wahrscheinlich deutlich schneller gehen.

Hier der Code:

Code:

weit:
Dim X As Integer
For X = 1 To CInt(Me.TextBox5.Value)
                Code128Generate_v2 90, 20, 25, 2, Worksheets("Retouren_Template"), Worksheets("Retouren_Template").Cells(6, 2).Value, 90    'Codegenerator anstoßen
                Sheets(1).Range("B12").Value = Sheets(1).Range("B12").Value + 1                                                             'Kartonanzahl zähler
                ActiveSheet.PrintOut Copies:=1                                                                                              'Druck anstoßen
                ThisWorkbook.ActiveSheet.Shapes.SelectAll                                                                                   'alle Formen auswählen
                Selection.Delete                                                                                                            'alle Formen löschen
                ActiveSheet.Shapes.AddShape(msoShapeRectangle, 243#, 139#, 77, 31#).Select                                                  'Form einfügen
                With ActiveSheet.Shapes                                                                                                     'Form markieren.
                Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1                                                                         'Farbe der Form in Weiss ändern.
                End With
                Range("B5").FormulaLocal = "=B6+1"
                Range("B6").Value = Range("B5").Value
Next X

Wäre Super wenn mir jemand helfen könnte !

Danke & viele Grüße.

[schauan]

allöchen,

ich würde eher sagen, dass Du 8 Blätter in der Datei oder 8 Druckseiten auf einem Blatt erzeugen könntest und die dann ausdruckst.

Du kannst den Code auch mal mit F8 durchgehen und schauen, ob die gelbe Zeile an einer Stelle etwas länger verharrt. Dann könnte man schauen, ob man diese Bremse umgehen kann.

[Pascala]

allöchen,

ich würde eher sagen, dass Du 8 Blätter in der Datei oder 8 Druckseiten auf einem Blatt erzeugen könntest und die dann ausdruckst.

Du kannst den Code auch mal mit F8 durchgehen und schauen, ob die gelbe Zeile an einer Stelle etwas länger verharrt. Dann könnte man schauen, ob man diese Bremse umgehen kann.

 Vielen Dank für deinen Beitrag. :)

Ich weis das es am senden der einzelnen Druckaufträge an den Drucker liegt. (wir sprechen von 1 - 400 Aufträge)
Gibt es keine Möglichkeit einen Druckauftrag abzufangen zu sammeln und am ende gemeinsam an den Drucker zu senden?

Oder gibt es eine Möglichkeit ohne ein externes Programm zu nutzen das alles als PDF zu sammeln und dann zu drucken?
Mit PDF24 geht das z.b. echt super jedoch werden bei uns PC benutzt auf denen keine Fremdsoftware installiert werden soll.

Für jeden weiteren Tipp bin ich sehr Dankbar.

Danke & viele Grüße.

[schauan]

Hallöchen,

mal konkreter. Ich denke, der Punkt ist, das Excel die Daten sozusagen druckergerecht aufbereitet.

Du könntest aus dem Explorer heraus Dateien markieren und drucken. Dazu werden dann die Dateien der Reihe nach geöffnet und gedruckt, allerdings jeweils nur die aktiven Blätter. Wie man mehr als 15 Dateien öffnen kann hatte ich kürzlich hier im Forum beschrieben, müsste man mit dem Druckmenü mal ausprobieren.

Du könntest das auch gezielter mit einem Makro tun, wenn Du weist, was aus welcher Datei zu drucken ist. Das Ganze dann noch zeitgesteuert z.B. Mitternacht, und es stört keinen ...

Du könntest auch mal versuchen, ob es was bringt, erst mal an Microsoft XPS Printer zu drucken - das wäre dann in eine Datei - und dann alle xps an den richtigen Drucker zu senden. Wäre analog Speichern als pdf.

Sammeln geht meines Wissens nur außerhalb Excel.

[Pascala]

Hallöchen,

mal konkreter. Ich denke, der Punkt ist, das Excel die Daten sozusagen druckergerecht aufbereitet.

Du könntest aus dem Explorer heraus Dateien markieren und drucken. Dazu werden dann die Dateien der Reihe nach geöffnet und gedruckt, allerdings jeweils nur die aktiven Blätter. Wie man mehr als 15 Dateien öffnen kann hatte ich kürzlich hier im Forum beschrieben, müsste man mit dem Druckmenü mal ausprobieren.

Du könntest das auch gezielter mit einem Makro tun, wenn Du weist, was aus welcher Datei zu drucken ist. Das Ganze dann noch zeitgesteuert z.B. Mitternacht, und es stört keinen ...

Du könntest auch mal versuchen, ob es was bringt, erst mal an Microsoft XPS Printer zu drucken - das wäre dann in eine Datei - und dann alle xps an den richtigen Drucker zu senden. Wäre analog Speichern als pdf.

Sammeln geht meines Wissens nur außerhalb Excel.

Hallo Schauan,

um etwas Konkreter zu werden: Ich lasse durch eine Userform eine Vorlage befüllen und lasse auf dieser Vorlage einen Barcode generieren pro Karton anzahl da man in der Userform angibt. Nach jedem Karton schickt er eben einen Druck Befehl was ja auch so richtig ist. Wenn du sagst das Sammeln nur außerhalb geht und nur mit externen Programm dann hat sich das leider schon für mich erledigt.

Trotzdem vielen Danke für deine Antworten.