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);
LineTo(Left+wordWidth*22,Top);
LineTo(Left+wordWidth*22,
Top+wordHeight*7);
LineTo(Left,Top+wordHeight*7);
LineTo(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; |
