Office: (Office 2013) VBA-Print Out

Hallo zusammen, ich habe eine Tabelle mit mehreren Arbeitsblättern. In Arbeitsblatt 1 habe ich einen Druck-Button eingebaut dass die entsprechenden Arbeitsblätter automatsich gedruckt werden sollen.
Nun benötige ich jedoch unterschiedliche Mengen an Ausdrucken.
Ich hätte gerne in Arbeitblatt 1 (Zelle B1 = Druckmenge Blatt 2, Zelle B2 = Druckmenge Blatt 3, usw.) eine Abfrage wie oft ich welches Arbeitsblatt gedruckt brauche.
Wie muss ich meinen VBA-Print Out entsprechen anpassen?

 

Hi,

Ich verstehe es so, du hast eine dynamische Anzahl an Arbeitsblättern, Blatt 1 (also das Blatt ganz vorn) wird immer in den Spalten B2-Bx die Druckanzahl stehen.

Der folgende Code spricht daher nicht die Arbeitsblätter über ihren Namen an, sondern über deren Index. Also eine Schleife (mit Zähler i) von Arbeitsblatt 2 bis zum letzten Arbeitsblatt (Thisworkbook.Sheets.Count). In dieser wird per Print die jeweilige Seite gedruckt - der Zähler i ermittelt dann im Print-Befehl bei Copys per ThisWorkbook.Sheets(1).Range("B" & i) die Anzahl der Kopien aus Seite 1 ( Sheets(1) ) , Zelle B & Zähler und druckt dann die Seite entsprechend aus.

Ich selbst bevorzuge aber nicht .Range , sondern .Cells um die Zellen einzeln anzusprechen und .Range nur um Bereiche anzusprechen also würde ich selbst lieber ThisWorkbook.Sheets(1).Cells(i,2).Value schreiben. Der Übersichthalber würde ich auch diesen Teil nicht im Printbefehl eintragen sondern die Anzahl erst in einer Variable schreiben.
Falls du keine Vorschau möchtest, dann ändere den Wert hinter Preview von True in False

Also kurz:

Besser:

Achtung, habe gerade gesehen, dass der Editor die Zeile einfach umbricht. Hab daher erstmal mit dem Unterstrich nen Zeilenwechsel eingefügt. Also in VBA überall nun den Unterstrich (_) löschen und den Wert aus der nächsten Zeile einfach hinten anfügen...