GervdOuweland
Gebruiker
- Lid geworden
- 1 nov 2017
- Berichten
- 6
Hallo Allemaal,
Sinds een aantal weken ben ik frequent bezoeker van dit forum, en ik heb er al heel veel nuttige tips en informatie uit kunnen halen. Helaas ben ik nu gestrand. Ik heb het onderstaande stukje code gemaakt, en dit doet wat het moet doen. Tot zover geen probleem.
Nu wil ik dat deze op een Zebra-printer afgedrukt worden. Het papierformaat is ingesteld en het afdrukbereik zit in de code, maar ik krijg niet het regeltje gevonden waarmee ik die printer laat selecteren.
En inderdaad. dezelfde opdracht word 9 keer opnieuw uitgevoerd , alleen op een ander bereik. Als dit korter kan sta ik open voor suggesties.
Alvast bedankt voor alle hulp.
Sinds een aantal weken ben ik frequent bezoeker van dit forum, en ik heb er al heel veel nuttige tips en informatie uit kunnen halen. Helaas ben ik nu gestrand. Ik heb het onderstaande stukje code gemaakt, en dit doet wat het moet doen. Tot zover geen probleem.
Nu wil ik dat deze op een Zebra-printer afgedrukt worden. Het papierformaat is ingesteld en het afdrukbereik zit in de code, maar ik krijg niet het regeltje gevonden waarmee ik die printer laat selecteren.
Sub AfdrukkenLabels()
' Afdrukken Bundelkaarten
With Sheets("Pakketlabel")
ActiveSheet.PageSetup.PrintArea = "$A$1:$P$14"
For i = 1 To .Range("H13").Value
.Range("F13") = i
.PrintOut
Next
ActiveSheet.PageSetup.PrintArea = "$A$15:$P$28"
For i = 1 To .Range("H27").Value
.Range("F27") = i
.PrintOut
Next
ActiveSheet.PageSetup.PrintArea = "$A$29:$P$42"
For i = 1 To .Range("H41").Value
.Range("F41") = i
.PrintOut
Next
ActiveSheet.PageSetup.PrintArea = "$A$43:$P$56"
For i = 1 To .Range("H55").Value
.Range("F55") = i
.PrintOut
Next
ActiveSheet.PageSetup.PrintArea = "$A$57:$P$70"
For i = 1 To .Range("H69").Value
.Range("F69") = i
.PrintOut
Next
ActiveSheet.PageSetup.PrintArea = "$A$71:$P$84"
For i = 1 To .Range("H83").Value
.Range("F83") = i
.PrintOut
Next
ActiveSheet.PageSetup.PrintArea = "$A$85:$P$98"
For i = 1 To .Range("H97").Value
.Range("F97") = i
.PrintOut
Next
ActiveSheet.PageSetup.PrintArea = "$A$99:$P$112"
For i = 1 To .Range("H111").Value
.Range("F111") = i
.PrintOut
Next
ActiveSheet.PageSetup.PrintArea = "$A$113:$P$126"
For i = 1 To .Range("H125").Value
.Range("F125") = i
.PrintOut
Next
End With
End Sub
En inderdaad. dezelfde opdracht word 9 keer opnieuw uitgevoerd , alleen op een ander bereik. Als dit korter kan sta ik open voor suggesties.
Alvast bedankt voor alle hulp.