Ahoj všem,
prosím o pomoc převodu makra z excelu. Jedná se o vícenásobný tisk
jednoho dokumentu (jeden list vícekrát), avšak s narůstajícím číslem v
záhlaví.
Makro v excelu vypadalo takto:
Sub pocitadlo()
NumYear = Application.InputBox(Prompt:="Zadej rok", Title:="Nastavení
roku", Default:=2006, Type:=1)
NumPoc = Application.InputBox(Prompt:="Číslovat od", Title:="Číslovat
od", Type:=1)
NumCopy = Application.InputBox(Prompt:="Počet výtisků", Title:="Počet
výtisků", Default:=20, Type:=1)
If NumCopy = False Then
MsgBox ("Print Aborted")
End
End If
Counter = NumPoc
Do Until Counter = NumPoc + NumCopy
Worksheets(1).PageSetup.RightHeader = "č.:" & NumYear & Counter
Worksheets(1).PrintOut
Counter = Counter + 1
Loop
End Sub
Děkuji předem za pomoc
S pozdravem
Tomáš
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
