Hallo zusammen,
bin blutiger Anfänger was VBA´s anbetrifft und hoffe einer kann mir helfen.
Ich habe eine Arbeitsmappe mit mehreren Tabellenblättern das letztendlich ein Logbuch ergibt. (Deckblatt, Inhaltsverzeichnis, das Formular was mehrfach ausgedruckt wird und eine Endseite).
Ich möchte dass das eine Tabellenblatt "Formular" mehrfach ausgedruckt wird, d.h. alle anderen Seiten jeweils 1x aber das Formularblatt z.B. 50x . Ganz wichtig ist die Seitennummerierung mit dem Text Seite 1 von z.B. "50". Die anderen Tabellenblätter sollen nicht nummeriert werden.
Am schönsten wäre es wenn die VBA Funktion über ein Popup abfrägt wieviel Seiten gedruckt werden sollen und ich im Anschluss noch einen Drucker auswählen kann.
Habe schon mal was im Netz gefunden und ein bisschen umgebastelt aber bei der ein oder anderen Sache hakt es....
Sub DruckenSeiteXmal()
Dim pTabelle As String
Dim Xmal As Integer
pTabelle = "Drucken" 'Name Tabellenblatt
ThisWorkbook.Activate
For Xmal = 1 To 50
'Fußzeile
With Sheets(pTabelle).PageSetup
.LeftFooter = "" 'Linker Bereich
.CenterFooter = "" 'Mittlerer Bereich
.RightFooter = "Seite: " & Xmal 'Rechter Bereich
End With
'Drucken
Sheets(pTabelle).PrintOut
Next Xmal
End Sub
Bei der eingefügten VBA muss ich vorher schon die Seitenanzahl definieren, er schreibt nicht von wievielen Seiten gedruckt wurde auf dem Ausdruck (habe keine Ahnung wie ich das "von X Seiten" einbauen kann) und der Druckauftrag geht direkt über den Standarddrucker raus. Ich möchte aber den Drucker auswählen können....
Kann mir diesbzgl. evtl. jemand helfen? Ich wäre euch sehr verbunden!
Vielen Dank im Voraus!
|