$include "windowssdk.inc"
$include "printer.inc"

int mx,my,wx,wy,ww,wh,md=0

WINDOW w1

ENUM w1_const
	w1_Print = 100
ENDENUM 

OpenWindow w1,0,0,355,193,@MINBOX|@MAXBOX|@SIZE|@CAPTION,0,"Printer test",&w1_handler
	CONTROL w1,@SysButton,"Print",95,117,159,25,0,w1_Print

WAITUNTIL ISWINDOWCLOSED(w1)
prtClose()
END

SUB w1_handler(), INT
	SELECT @MESSAGE
		CASE @IDCREATE
			CENTERWINDOW w1
			/* Initialize any controls here */
		CASE @IDCONTROL
			SELECT @CONTROLID
				CASE w1_Print
					IF @NOTIFYCODE = 0
						'*button clicked*'
						GoPrint()
					ENDIF
			ENDSELECT
		CASE @IDCLOSEWINDOW
			CLOSEWINDOW w1
	ENDSELECT
	RETURN 0
END SUB

sub GoPrint()
	prtInit(8.5, 11, 200)
	prtFont("Times New Roman", 18, 500)

	prtTransparent()

	prtBackColor(@prtBlack)
	prtForeColor(@prtWhite)
	prtFillRect(0,0.25,8.5,0.5,@prtBlack,@prtBlack)

	prtText("Heading",4.25,0.5,centerpos)

	prtLineWidth(0.02)
	prtLine(0.5, 2.5, 7.75, 2.5, @prtRed)

	prtRect(0.5, 3, 7.25, 1, @prtBlue)
	prtFont("Times New Roman", 11, 500)

	prtOpaque()
	prtForeColor(@prtYellow)
	prtText("Put something in a box :)",4.25,3.5,centerpos)

	prtBackColor(@prtWhite)
	prtForeColor(@prtGreen)
	
	prtText("Page 1",4.25,4,centerpos)
	prtText("Page 2",4.25,5,centerpos)
	prtText("Page 3",4.25,6,centerpos)
	prtText("Page 4",4.25,7,centerpos)
	prtText("Page 5",4.25,8,centerpos)
	prtText("Page 6",4.25,9,centerpos)

	prtPrint()
	prtClose()
endsub