for (my $i='1'; $i<$maxheight; $i+=850){
		++$currentPage;print "$currentPage\n";
		$canvas->postscript('-x'=>'0',
							'-y'=>$i,
							-width=>$maxwidth,
							-height=>850,
							-colormode=>'color',
							-file=>"$i.ps", -pageanchor=>'n',
							-pageheight=>'10.5 i');
	system("lpr -S ilfpsc6vs01 -P nw1h305c $i.ps") == 0 or die $!;
	}