VBA toevoegen voor printen

[Budel]

Beste,
Ik ben bezig met barcode bestand te maken welke men moet kunnen printen.
Nu is mijn vraag of het mogelijk is om via een VBA code een gedeelte van het blad te printen en daarna automatisch de volgende gegevens laad volgens een tabel op een ander blad.
heb het bestandje toegevoegd, het print gedeelte zou moeten zijn blad( Cover B7 t/m I23 ) deze haalt de gegevens van blad Batch ( D6-D23)
Het is de bedoeling dat van elke regel welke op blad Batch staat in kolom D een sticker word geprint en daarna automatisch de volgende regel tot einde gegevens in kolom D.
Wie kan mij daarbij helpen, krijg dit niet voor elkaar.
Bij voorbaat dank.

 

[HSV]

Als de code goed is bevonden haal je de rode tekst weg in de code.

Sub hsv()
Dim sv, i As Long
sv = Sheets("batch").Cells(5, 4).CurrentRegion
 For i = 2 To UBound(sv)
  With Sheets("cover")
    .Cells(4, 3) = sv(i, 1)
    .PageSetup.PrintArea = "B7:I23"
    .PrintOut[SIZE=3][COLOR=#ff0000] , , , -1[/COLOR][/SIZE]
   End With
  Next i
End Sub

 

[Budel]

Bedankt,

Voor de snelle reactie en voor mij een super oplossing.
Heb het getest en werkt zoals ik het had willen hebben.
Zal de vraag als opgelost zetten.
Nogmaals bedankt.
Gr. Budel