cI15	;TESTEN PRINTERPARAMETERS ;%I15; [ 06/27/00  10:41 AM ]
	;
	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")
	;
START	X F70 W @F80 S A=$$SIGN^cAFA1("SYS.PRINT",PTS(1),0)
	W !?10,@F82,"Test Page Centrale printer: ",$P(A,"\"),@F83
	W !,"System\Namespace  : ",$ZU(110),"\",$ZU(5)
	W !,"Description       : ",$P(A,"\",2)
	W !,"Printer           : ",$P(A,"\",3)
	W !,"IP-adr\port       : ",$P(A,"\",7),"\",$P(A,"\",8)
	W !,"Drivercode        : ",$P(A,"\",4)
	S U3="",K=$P(A,"\",41) I $L(K) S K=$P($P(K,"&l",2),"A"),U3=$S(K=2:"Letter",K=25:"A5",K=27:"A3",1:"A4")
	W !,"Paper size        : ",U3
	W !,"Input tray        : ",$P($$SIGN^cAFA1("CODE.1015",$P(A,"\",42),0),D,2)
	S U3="",K=$P(A,"\",43) I $L(K) S K=$P($P(K,"&l",2),"O"),U3=$P("Portrait#Landscape","#",K+1)
	W !,"Portrait\Landscape: ",U3
	S U3="",K=$P(A,"\",44) I $L(K) S K=$P($P(K,"&l",2),"S"),U3=$S(K=1:"Duplex, long-edge binding",K=2:"Duplex, short-edge binding",1:"Simplex")
	W !,"Simplex\Duplex    : ",U3
	W !,"Ratio             : ",$P(A,"\",45)
	I $G(debug) D
	. W !!,"F70: " S K=F70 F  W ?5,$E(K,1,60) S K=$E(K,61,$L(K)) Q:'$L(K)  W !
	. W !,"F71: ",F71
	W !
	;
	W !,"81 = ",@F81,"Super KLEIN AFDRUKKEN",@F83
	W !,"82 = ",@F82,"Groot AFDRUKKEN",@F83
	W !,"83 = ",@F83,"Normaal AFDRUKKEN",@F83
	W !,"84 = ",@F84,"Klein AFDRUKKEN",@F83
	W !,"85 = ",@F85,"Vergroot KLEIN AFDRUKKEN",@F83
	W !,"85B= ",@F85B,"Vergroot KLEIN AFDRUKKEN Bold",@F83
	W !,"86 = ",@F86,"Dubbel AFDRUKKEN aan",@F83
	W !,"87 = ",@F87,"Dubbel AFDRUKKEN af",@F83
	W !,"88 = ",@F88,"Onderlijnd AFDRUKKEN aan",@F83
	W !,"89 = ",@F89,"Onderlijnd AFDRUKKEN af",@F83
	I $d(F96) W !,"96 = ",@F96,"Bold printen AFDRUKKEN aan",@F83
	I $d(F97) W !,"97 = ",@F97,"Bold printen AFDRUKKEN af",@F83
	W !,"30 = ",@F30," Recht streepje AFDRUKKEN"
	W !,"31 = ",$G(F31)," Grafisch afdrukken in dots (FP = aantal dots)"
	W !,"32 = ",$G(F32)," Aantal lijnen per blad"
	W !,"33 = ",$G(F33)," Aantal LF + Stamp command (kas-ticket)",!
30	G 5
	;
3	W @F83,!
	S FP=10 W #!,"32 = ",$$CR^cA334 W @F32,?17," Page Length in lines = 10",!!!,"4",!,5,!,6,!,7
	F I=2:1:4 W #,I,"' blad. Lijn 1   _____________" F J=2:1:5 W !?14,J
	S FP=26 W #,@F32,# S FP=66 W @F32,!
	G 5
	;
4	W !,"*** Karakterset ***",!!
	S A=0 F I=32:1:255 S C=$C(I) W $J(I,3)," = ",C,$J("",4-$L(C)) S A=A+10 I A>74 W !! S A=0
	;
5	W ! F i=1:1:30 w "123456789|"
	W ! F i=1:1:30 w "123456789|"
	W ! F i=1:1:30 w "        ",$J(i,2)
	W !!,"84 = ",@F84,"Klein AFDRUKKEN"
	W ! F i=1:1:30 w "123456789|"
	W ! F i=1:1:30 w "123456789|"
	W ! F i=1:1:30 w "        ",$J(i,2)
	;
6	W $C(12) X F71
	;
YZ	Q
	;
	;bijmaken printervariabelen
EP	s i=" " f  s i=$o(^cDEV(i)) q:i=""  s ty=$e(i,1,2) w !,ty d   
	. i '$d(^(ty_"F96")),$d(^(ty_"F86")) s ^(ty_"F96")=^(ty_"F86")
	. i '$d(^(ty_"F97")),$d(^(ty_"F87")) s ^(ty_"F97")=^(ty_"F87")
	. s i=ty_"z"
	. q
EPZ	Q
	;
ZZ	; 05.09.07 - 15 u 48 * V9.1