Makro ändern

Question

Hallo
Habe mir mit Hilfe aus diesem Forum, dieses Makro erstellt.
Könnte es mir jemand so ändern das ich die Anzahl der zu Druckenden Etikett in einer Zelle auf dem Tabellen Blatt z.B J3 verändern kann.

Sub Etikett()

'Standarddrucker merken
StdDrucker = Application.ActivePrinter
'Neuen Drucker bestimmen
Application.ActivePrinter = "\\PEI-VPW-SR1-002\PEI-PPB-BLC-001 auf Ne03:"
'Drucken
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
'Wieder Standarddrucker einstellen
ActivePrinter = StdDrucker
Range("G1").Select
End Sub


Gruß
Hans

Answer 1

Copies:=Range("J3")
notfalls noch Tabelle angeben.

Gruß Hajo

Answer 2

Hallo
Besten Dank für die schnelle Hilfe, habe es so geändert und es in meinen Fall in Tabelle 3 eingefügt.
Leider bekomme ich eine Fehler Meldung in der 400 steht.

Sub Etikett_N()

'Standarddrucker merken
StdDrucker = Application.ActivePrinter
'Neuen Drucker bestimmen
Application.ActivePrinter = "\\PEI-VPW-SR1-002\PEI-PPB-BLC-001 auf Ne03:"
'Drucken
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=Range("I3"), Collate _
:=True, IgnorePrintAreas:=False
'Wieder Standarddrucker einstellen
ActivePrinter = StdDrucker
Range("G1").Select
End Sub

Habe noch etwas vergessen.
Ich möchte das Tabellenblatt mit dem Makro Kopieren, die Anzahl der zu Druckenden Etiketten soll auf Jedem Tabellenblatt individuell einstellbar sein.


Gruß
Hans

Answer 3

Hallo Hans,

füge das folgende Makro in ein Standard Modul deiner Tabelle ein:

Sub Etikett_N()

'Standarddrucker merken
StdDrucker = Application.ActivePrinter
'Neuen Drucker bestimmen
Application.ActivePrinter = "\\PEI-VPW-SR1-002\PEI-PPB-BLC-001 auf Ne03:"
'Drucken
ActiveSheet.PrintOut From:=1, To:=1, Copies:=ActiveSheet.Range("I3"), Collate _
:=True, IgnorePrintAreas:=False
'Wieder Standarddrucker einstellen
ActivePrinter = StdDrucker
ActiveSheet.Range("G1").Select
End Sub

Damit wird jedes Blatt (der Arbeitsmappe mit dem Makro), aus dem du das Makro startest so oft gedruckt, wie du in Zelle I3 des jeweiligen Blattes angibst.

Gruß

M.O.

Answer 4

Hallo
Wieder besten Dank an alle die hier ihre Hilfe anbieten und besonders an M.O.
Habe zuerst alle alten Module gelöscht.
Läuft jetzt so wie ich es mir vorgestellt habe :)

Thank you very much
Hans