procedure tform1.button1click(sender: tobject);
　　var strlen , left,top , wordheight , wordwidth : integer;
　　 contentstr : string[100];
　　 str1, str2, str3 : string[36];
　　begin
　　 with printer do
　　 begin
　　 canvas.font.size:=16;
　　 wordheight:=canvas.textheight
　　('字');
　　 wordwidth:=canvas.textwidth
　　('字');
　　 left:=(printer.pagewidth-wordwidth*22) div 2;
　　 top:=(printer.pageheight-wordheight*7) div 2;
　　 begindoc;
　　 with canvas do
　　 begin
　　 pen.width:=3;
　　 {画一个22字宽，7个字高的矩形框}
　　 moveto(left,top);
　　 l.neto(left+wordwidth*22,top);
　　 l.neto(left+wordwidth*22,
　　top+wordheight*7);
　　 l.neto(left,top+wordheight*7);
　　 l.neto(left,top);
　　 contentstr:=memo1.lines.text;
　　 strlen:=length(contentstr);
　　 if strlen< 37 then 
　　 {分一行打印}
　　 begin
　　 textout(left+wordwidth*2, top+wordheight*3, contentstr)
　　 end
　　 else if strlen< 66 then
　　 {在垂直方向中间分两行打印}
　　 begin
　　 str1:=copy(contentstr, 0, 32);
　　 str2:=copy(contentstr, 33, strlen-32);
　　 textout(left+wordwidth*4, top+wordheight*(7-2) div 2 , str1);
　　 textout(left+wordwidth*2, top+wordheight*(7-2) div 2 + wordheight, str2);
　　 end
　　 else
　　 {分三行打印}
　　 begin
　　 str1:=copy(contentstr,0,32);
　　 str2:=copy(contentstr,33,36);
　　 str3:=copy(contentstr, 69, strlen-68);
　　 textout(left+wordwidth*4, top+wordheight*2, str1);
　　 {左缩进两个汉字}
　　 textout(left+wordwidth*2, top+wordheight*3, str2);
　　 textout(left+wordwidth*2, top+wordheight*4, str3);
　　 end
　　 end;
　　 enddoc;
　　 end;
　　end;