test1.hsp

sample\hspprint\test1.hsp » Plain Format

#include "hspprint.as"

	enumprn plist
	pnum=stat
	mes "プリンタの数="+pnum

	if pnum=0 : goto *noprn

	mes "プリンタ一覧"

	notesel plist
	repeat notemax
	noteget s1,cnt
	mes "ID"+cnt+" : "+s1
	loop

	getdefprn kitei
	mes "規定のプリンタ="+kitei

	stop

*noprn
	mes "プリンタはありません。"
	stop