Private Sub cmdNatisni_Click()
With ActiveSheet
If IsNumeric(.Range("Q1").Value) Then
.Range("Q1").Value = .Range("Q1").Value + 1
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
With ActiveSheet
If IsNumeric(.Range("Q1").Value) Then
.Range("Q1").Value = .Range("Q1").Value + 5
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=5, Collate:=True
Private Sub cmdNatisni_Click()
Dim i As Long
Dim stevec As Long
stevec = 1
For i = 1 To 5
Cells(i, 1) = i
With ActiveSheet
If IsNumeric(.Range("Q1").Value) Then
.Range("Q1").Value = .Range("Q1").Value + 1
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
stevec = stevec + 1
Next i
ActiveWorkbook.Save
End Sub
Private Sub cmdNatisni_Click()
Dim i As Long
For i = 1 To 5
Cells(i, 1) = i
With ActiveSheet
If IsNumeric(.Range("Q1").Value) Then
.Range("Q1").Value = .Range("Q1").Value + 1
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
ActiveWorkbook.Save
End Sub