VBA koder der udskriver hver 2. række.
Jeg har disse koder, som jeg bruger til udskrivning af sedler som kommer på paller.Oprindeligt var cellerne flettet, så derfor skulle den kun udskrive det tekst som stod i hver 2. række, men nu har jeg fjernet fletningen, så nu er det alle rækkerne den skal udskrive, men jeg kan ikke se hvor i koden det bestemmes at den skal springe 1 række over??
Sub UdskrivPallesedler(kol1)
modTager = Cells(4, kol1)
For ræk = 6 To 65000 Step 2
antalSedler60 = 0
antalSedlerX = 0
antalX = 0
If Cells(ræk, 1) <> "" Then
brødType = Cells(ræk, 1)
If Cells(ræk + 1, kol1) <> "" And Cells(ræk + 1, kol1) <> " " Then
antalSedler60 = Cells(ræk + 1, kol1)
Else
antalSedler60 = 0
End If
If Cells(ræk + 1, kol1 + 1) <> "" Then
If Cells(ræk + 1, kol1 + 1) <> 0 Then
antalSedlerX = antalSedlerX + 1
antalX = Cells(ræk + 1, kol1 + 1)
End If
End If
If antalSedler60 > 0 Then
tilPasPakkeseddel 60
udskrivSeddel antalSedler60
End If
If antalSedlerX > 0 Then
tilPasPakkeseddel antalX
udskrivSeddel antalSedlerX
End If
Else
MsgBox ("Udskrivning til: " + modTager + " er afsluttet")
Exit For
End If
Next ræk
End Sub