写在前面的话：第一次提问，有拜读《提问的智慧》。实在是搜索水平有限，未能从网上找到我要的答案。
两个问题：1：下面代码打印出来的字体不是pixelperfect字体，FontName改变时，好象字体没什么变化，只是字与字之间的距离稍微不同。
2：能否根据listbox2.Items.Strings[i] 提供的条码数打印出条码图出来，如何实现？

FontName := 'pixelperfect';
MyPrinter.Canvas.Font.CharSet := fcsUnicode;
MyPrinter.Canvas.Font.Name:=FontName;
MyPrinter.Canvas.Font.Style := [fsBold];
strPrice := copy(listbox2.Items.Strings[i],41,10);
if pos('.',strPrice)>0 then
begin
//售价小数部分
MyPrinter.Canvas.Font.Size:=20;
if length(trim(copy(strPrice,1,pos('.',strPrice)-1)))=1 then
TextOut(PrintLeft 83,PrintHead 10 (K-1)*RowOffset t,copy(strPrice,pos('.',strPrice),10))
else if length(trim(copy(strPrice,1,pos('.',strPrice)-1)))=2 then
TextOut(PrintLeft 99,PrintHead 10 (K-1)*RowOffset t,copy(strPrice,pos('.',strPrice),10))
else
TextOut(PrintLeft 115,PrintHead 10 (K-1)*RowOffset t,copy(strPrice,pos('.',strPrice),10));
//售价整数部分
MyPrinter.Canvas.Font.Size:=40;
TextOut(PrintLeft 63,PrintHead (K-1)*RowOffset t,copy(strPrice,1,pos('.',strPrice)-1));
end else
begin
MyPrinter.Canvas.Font.Size:=40;
TextOut(PrintLeft 63,PrintHead (K-1)*RowOffset t,strPrice);
end;
//条码
MyPrinter.Canvas.Font.Name := '宋体';
MyPrinter.Canvas.Font.Size:=10;
TextOut(PrintLeft 290 90,PrintHead 62 (K-1)*RowOffset t,copy(listbox2.Items.Strings[i],52,13));

------
一粒尘埃