Printanje več listov zapored

[admin]

Takole:

Koda: Izberi vse

Sub NatisniListe()
  Dim ws As Worksheet
  
  Dim stevec As Integer: stevec = 0
  Dim i As Integer
  
  For i = 1 To 80
    Set ws = Worksheets(i)
    If (ws.Range("A1") = 12) Then
      stevec = stevec + 1
    End If
  Next
  
  MsgBox "Izpisalo se bo " & stevec & " listov."
  
  For i = 1 To 80
    Set ws = Worksheets(i)
    If (ws.Range("A1") = 12) Then
      ws.PrintOut
    End If
  Next
End Sub

[rick]

najlepša hvala Matjaž...
lp Rick