Ne znam drugo rešenje osim korišćenja makroa. Nisi dao podatke da li se štampa radni list ili samo deo. Najjednostavnija varijanta bi bila štampa radnog lista na podrazumevani štampač
Code:
Sub PrintNumberOfCopyInFooter()
' Štampa tekući radni list sa brojem kopije u footeru
' Štampa se diretno na podrazumevani štampač
' Preuzeto sa www.ozgrid.com
'
Dim PrintQuantity As Variant ' Unos iz inputboxa
PrintQuantity = InputBox("Koliko kopija radnog lista je potrebno?", "Unos broja kopija")
If PrintQuantity = "" Or Not IsNumeric(PrintQuantity) Or PrintQuantity < 1 Then
MsgBox "You entered nothing or a non number.", 48, "Print cancelled."
Exit Sub
Else
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To PrintQuantity
With ActiveSheet
.PageSetup.CenterFooter = "Primerak " & i
.PrintOut
End With
Next i
Application.ScreenUpdating = True
End If
End Sub
Nije to loše Rembrante, samo što ne bi dodao još malo boje?