Skip printing

[RichieL]

I heb de volgende code gemaakt.

Wanneer ik het script uitvoer dan print hij tabblad "LABEL PRINT" op basis van Kolom A (vanaf cel A6). Hij print het aantal pagina's wat in cel F15 staat.

Sub Print_OrangeLabel()
  ActiveWorkbook.RefreshAll
  ar = Cells(6, 1).CurrentRegion
  For j = 1 To UBound(ar)
    If ar(j, 1) <> 0 Then
      Range("E1").Value = ar(j, 1)
      iNumCopies = Range("F15").Value
      If iNumCopies < 1 Then iNumCopies = 1
      Range("E2:K17").PrintOut Copies:=iNumCopies, Collate:=True
     End If
  Next j
End Sub

Ik wil eigenlijk wanneer de Value van cel F15 = 0 is dat hij dan die skipt en naar de volgende gaat in Kolom A tot de laatste getal in de reeks

 

[edmoor]

Zo wellicht:

If iNumCopies > 0 Then Range("E2:K17").PrintOut Copies:=iNumCopies, Collate:=True

 

[RichieL]

Dankje!