紧急求助：有关字体设置问题

[luckfeast]

我在编写打印控件时，要求是直接将字符串送往打印机（因为是unix下生成的表格内容，文件类型为txt，我没有转换格式，所以必须每次读取1行），由于客户对打印的表格时要求非常严格，字体大小必须是10。5（小五，如果为11，表格打印不下，如果为10，表格对不整齐），但delphi 的字体大小类型为int,未无法实现,请问这个问题我该如何实现。

[zwhhoo]

这样行不行：
先把文本内容textout到canvas上，再把canvas上的内容用canvas.CopyRect放大一点点复制到printer.canvas上。

[fhb]

表格和字均要重新绘制，再建立canvas，再strectdraw到printer.
-------------------------------
水晶控件
提供图形图象控件。Delphi论坛。
http://www.codeidea.com
-------------------------------

[zwhhoo]

//你看看行不行:

var
tempbitmap:Tbitmap;
printer:Tprinter;
Mystring:string;
begin
Mystring:='我要打印的内容';
tempbitmap:=tbitmap.Create;
printer:=tprinter.Create;
printer.BeginDoc;
with tempbitmap.Canvas do
begin
font.Size:=10;
textout(0,0,Mystring);
CopyRect(rect(0,0,textwidth(Mystring),textheight(Mystring)),
Printer.Canvas,rect(0,0,100,50)); //100,50 是假设的实际宽和高
end;
printer.EndDoc;
tempbitmap.Free;
printer.Free;
end;

[zwhhoo]

试试：
form1.Canvas.Font.Size:=10;
form1.Canvas.TextOut(1,1,'文本内容');
form1.Canvas.Font.PixelsPerInch:=20;
form1.Canvas.Font.Size:=10;
form1.Canvas.TextOut(1,100,'文本内容');

[luckfeast]

谢谢各位的关心和帮助,通过与客户的协商,我们采取了变化字体和字体大小的方法来实现了打印功能.再次感谢各位的大力相助,谢谢!