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

Anzahl Druckkopien festlegen

Forumthread: Anzahl Druckkopien festlegen

Anzahl Druckkopien festlegen
16.09.2003 10:21:17
T. Reingruber
Ich möchte die Anzahl der zu druckenden Seiten über eine Zeile in einem Formular festlegen und per Button . Die Zeile errechnet selbstständig einen Wert aus den eingetragenen Daten (z.B.2 oder 6). Sie befindet sich auf Tabellenblatt y, der zu druckende Bereich auf Tabellenblatt x. Der Button ist auf Tabellenblatt z.

Der Code zum Drucken an sich ist kein problem (steht schon), nur, wie ich den Wert aus der Zeile in die Anzahl kopien reinbekomme ist mir schleierhaft!!!!


Bisheriger Code
...
If ChbMaster.Value = True Then
Application.ScreenUpdating = False
Sheets("Master-Label").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
Else
End If
...
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Anzahl Druckkopien festlegen
16.09.2003 10:26:03
Bernd Held
Hallo,

so sollte es klappen:

If ChbMaster.Value = True Then
Application.ScreenUpdating = False
Sheets("Master-Label").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=sheets("Tabelle1").Range("A1").value, Collate:=True
Application.ScreenUpdating = True
Else
End If

Viele Grüße
Bernd
MVP für Microsoft Excel
Aktuelle VBA-Schulungen und VBA-Bücher unter: http://held-office.de

Anzeige
AW: Anzahl Druckkopien festlegen
16.09.2003 10:57:03
T. Reingruber
Dankeschön!! Hat sehr geholfen!!! Allerdings müsste das ganze jetzt noch mit einem S - oder WVERWEIS verknüpft werden, aber da schreibe ich ,falls nötig, ein neues Mail.. ;-D
;
Anzeige

Infobox / Tutorial

Anzahl Druckkopien in Excel festlegen


Schritt-für-Schritt-Anleitung

Um die Anzahl der Druckkopien über eine Zeile in einem Formular festzulegen, kannst du folgenden VBA-Code nutzen. Dieser Code ermöglicht es, den Wert aus einer bestimmten Zelle in die Druckeinstellungen zu übernehmen.

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Rechtsklicke auf VBAProject (DeineDatei.xlsx) und wähle Einfügen > Modul.
  3. Füge den folgenden Code ein:

    Sub Drucke()
       If ChbMaster.Value = True Then
           Application.ScreenUpdating = False
           Sheets("Master-Label").Select
           ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Tabelle1").Range("A1").Value, Collate:=True
           Application.ScreenUpdating = True
       Else
           ' Optional: füge hier einen else-Block hinzu
       End If
    End Sub
  4. Verknüpfe den Code mit einem Button:

    • Füge einen Button auf deinem Arbeitsblatt hinzu und wähle die Drucke-Subroutine aus.
  5. Teste die Funktion:

    • Stelle sicher, dass in Tabelle1 in Zelle A1 eine Zahl steht, die die Anzahl der Kopien angibt, und klicke den Button.

Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"
    Lösung: Stelle sicher, dass die Namen der Blätter (Master-Label, Tabelle1) korrekt sind und existieren.

  • Fehler: Drucker nicht verfügbar
    Lösung: Überprüfe, ob der Drucker angeschlossen und betriebsbereit ist.


Alternative Methoden

Anstelle von VBA kannst du auch die Funktion Drucken in Excel direkt nutzen, um die Anzahl der Kopien manuell festzulegen.

  1. Gehe zu Datei > Drucken.
  2. Wähle deinen Drucker aus und stelle die Anzahl der Kopien ein.

Diese Methode eignet sich gut, wenn du keine VBA-Kenntnisse hast.


Praktische Beispiele

Wenn du eine dynamische Anzahl an Druckkopien benötigst, nutze die folgende Formel in Tabelle1!A1:

=ANZAHL2(Bereich)

Diese Formel zählt die Anzahl der nicht-leeren Zellen im angegebenen Bereich und kann dann als Kopienzahl verwendet werden.


Tipps für Profis

  • Nutze benannte Bereiche: Erstelle einen benannten Bereich für die Zelle, die die Kopienanzahl enthält. So wird der Code übersichtlicher.

  • Error Handling: Füge Fehlerbehandlungsroutinen in deinen VBA-Code ein, um unerwartete Fehler besser zu managen.

On Error Resume Next

Diese Zeile hilft, den Code bei Fehlern nicht abrupt zu stoppen.


FAQ: Häufige Fragen

1. Wie kann ich die Druckeinstellungen anpassen?
Du kannst die Druckeinstellungen im VBA-Code anpassen, indem du weitere Parameter in die PrintOut-Methode integrierst, wie z.B. PrintToFile.

2. Kann ich die Anzahl der Druckkopien dynamisch ändern?
Ja, wenn der Wert in der Zelle, die du für die Kopienanzahl verwendest, aktualisiert wird, wird auch die Anzahl der Druckkopien im nächsten Druckvorgang angepasst.

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