Natisne določeno št. nalepk

[jumanjy]

Pozdravljeni!

V excelu kreiram neke nalepke, ki jih z gumbom natisnem na posebnem tiskalniku(ni privzet).
Posnel sem si makro vendar bi včasih želel, da mi natisne več enakih etiket in bi vas vprašal kako bi to dosegel.

Koda: Izberi vse

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "ETIKETIRKA Ne03:", Collate:=True
    Application.ActivePrinter = "Samsung ML-2580 Series na Ne00:"

Če je možno da v eno celico napišem število etiket in mi makro prebere ta podatek.
Upam da nisem preveč zakompliciral sedaj pač pritiskam na gumb za vsako nalepko posebej.

Lep pozdrav.

[admin]

Pozdravljeni,

ukaz, ki ste ga uporabili ima parameter, kjer poveste število željenih kopij (Copies), kar v vašem primeru pač pomeni (če je število željenih etiket zapisanih v celici B3):

Koda: Izberi vse

  ActiveWindow.SelectedSheets.PrintOut Copies:=Range("B3"), _
        ActivePrinter:="ETIKETIRKA Ne03:", Collate:=True

Ali pač konkretno npr. 7 kopij:

Koda: Izberi vse

  ActiveWindow.SelectedSheets.PrintOut Copies:=7, _
        ActivePrinter:="ETIKETIRKA Ne03:", Collate:=True