cQZPL	;TESTEN ZEBRA PRINTER ;cQZPL;
	;
	W !!!,"Plaats papier op de printer en schakel hem aan : .",$C(8) R K I K="-" G YZ
	S Q("debug")=$G(debug) S:'$D(Q) Q="" D ^cA604 S debug=$G(Q("debug")) K Q("debug")
	W !,"C[] = CPL   Z[] = ZPL   -[]= einde: ;",*8 R K I K="-" G YZ
	S K=$ZCONVERT(K,"U") I $L(K),"CZ"'[K G YZ
	S LANG=K
	;
START	X F70 S AANT=1
	W !!,LANG,!
	I LANG="C" D
	. W "! 0 200 200 210 1",!
	. W "CENTER",!
	. ; Annotate bar codes using font 7 size 0
	. ; and offset 5 dots from the bar code.
	. W "BARCODE-TEXT 7 0 5",!
	. W "BARCODE 128 1 1 70 50 20 123456789",!
	. W "TEXT 4 0 50 120 Hello World",!
	. W "FORM",!
	. W "PRINT",!
	I LANG="Z" D
	. W "^XA",!           ; Start label format
	. W "^MD20",!         ; darkness
	. W "^CI0,21,36",!    ; Code page 850, remap $ (21) to euro (36)
	. W "^FO210,0^A0,32,31^FDFormaat^FS",!    ; Formaat
	. W "^FO320,0^A0,32,31^FDFORM^FS",!
	. W "^FO550,0^A0,32,31^FD1234567^FS",!
	. W "^FO210,40^A0,32,31,^FDCode^FS",!
	. W "^FO320,40^A0,32,31,^FDProductcode^FS",!
	. W "^PQ",AANT,!
	. W "^XZ",!
	;
	X F71
	;
YZ	Q
	;
CA	;Characterset
	X F70
	W "^XA",!	 ; Start label format
	W "^MD20",!        ; darkness
	W "~TA-010",!       ; tear-off position
	;
	W "^FO,20,50",!
	W "^ADN,20,10",!
	W "^FDADN,20,10^FS",!
	S X=50
	F I=128:11:253 D
	. W "^FO,",X,",50",!
	. W "^ADN,20,10",!
	. W "^FD" F J=I:1:I+10 W J,"=",$C(J)," " Q:J=255
	. W "^FS",!
	. S X=X+30
	;
	W "^PQ",1,!    ; number of labels to print
	W "^XZ",!
	;
	X F71
CSZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9