Index: BL/Sys/LabelPrinter.cls.xml =================================================================== diff -u -r2830 -r70593 --- BL/Sys/LabelPrinter.cls.xml (.../LabelPrinter.cls.xml) (revision 2830) +++ BL/Sys/LabelPrinter.cls.xml (.../LabelPrinter.cls.xml) (revision 70593) @@ -307,7 +307,10 @@ . . Set File=..CreateFile(BartDevice,BartLayout) . . Use File . . Set:$G(Debug) DebugOne=1 - . . Set VolgNr="" + . . Set VolgNr=$O(..Data(BartDevice,BartLayout,"")) + . . If (VolgNr'="") Do + . . . Set pxLabel=..Data(BartDevice,BartLayout,VolgNr) + . . . Do pxLabel.WriteHeader() . . For Set VolgNr=$O(..Data(BartDevice,BartLayout,VolgNr)) Quit:VolgNr="" Do . . . Set pxLabel=..Data(BartDevice,BartLayout,VolgNr) . . . For i=1:1:$S(pxLabel.Aantal:pxLabel.Aantal,1:1) Do