Tiskanje excel dokumenta

Sem našel rešitev:

Sub PrintCopies_ActiveSheet_2()
' This example print the number in cell A1
Dim CopiesCount As Long
Dim CopieNumber As Long
CopiesCount = Application.InputBox("How many copies do you want", Type:=1)

With ActiveSheet
If Not IsNumeric(.Range("F8").Value) Then .Range("F8").Value = 0

For CopieNumber = 1 To CopiesCount
.Range("F8").Value = .Range("F8").Value + 1

'Print the sheet
.PrintOut

Next CopieNumber
End With
End Sub