MS Excel

Sub CisloKopie(Pocet As Integer)
Dim Cislo As Integer
For Cislo = 1 To Pocet
With ActiveSheet
.Cells(1, 5).Value = Cislo 'Tu bude číslo kópie "E1"
.PrintOut
End With
Next Cislo
End Sub

Sub Tlac()
Call CisloKopie(3) 'Počet kókií
End Sub

alebo
Sub CisloKopie2(Pocet As Integer)
Dim Cislo As Integer
For Cislo = 1 To Pocet
With ActiveSheet
.Cells(1, 5).Value = .Cells(1, 5).Value + 1
.PrintOut
End With
Next Cislo
End Sub
Prvá verzia vytlačí zadaný počet kópií, očísluje ich od 1 po Počet.
Druhá verzia vytlačí zadaný počet kópií, očísluje ich tak, že pridá číslo 1 k predošlému číslu.
V oboch prípadoch je treba mať vopred nastavené Nastavenie tlače dokumentu. Toto je okamžitá tlač.citovat

Ľavý Alt+F11. V otvorenom okne Microsoft Visual Basic for Application kliknite pravým mišítkom na VBAProject(názov dokumentu) - Insert - Module. Dvojklik na ten vytvorený Module1 a v do pravej bielej časti okna nakopírujete jedno alebo druhé makro. Makro potom priradte napr. tlačítku, ktorému nastavte vlastnosť Netlačiť.
Pozor ale, ako vstupná/výstupná bunka je tam nastavená
Cells(1, 5)
teda E1
To si upravte podľa seba.
PS: Príkaz Cells pracuje s indexami riadkov a stĺpcov. Čiže Cells(číslo riadka, číslo stĺpca)
Stačí takto?citovat