100分悬赏打印字体改变的问题 (100分)

我尝试用以下方法改变仿宋体的长宽比，结果，预览时显示成功，打印时比例却仍
然保持标准比例，根本不变，有什么办法。
能提供可以产生并打印非标字库的完整可编译源程序的同志给50分，在3月17日18:00以前
能够直接提供“长仿宋字库”的直接得100分。
procedure TForm1.FormCreate(Sender: TObject);
var
h: HFont;
begin

h := CreateFont(-30, -5, 0, 0, 0, 0, 0, 0, GB2312_CHARSET, 0, 0, 0, 0, '仿宋_GB2312');
if (h = 0) then

RaiseLastWin32Error();
qrlabel1.Font.Handle := h;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

QuickRep1.Preview;
end;

up

呵呵，font creator，自己做啦，很容易的＾＾

忘了说了：下载地址
http://www.newhua.com/down/fcp3.exe
汉化版的哦！
注册码： Version: 3.0.1.0 Name: digger s/n: S3V-547-8S9-MSR

人气这么不旺，居然没人理我，还好，你的回答行之有效，我下载了，效果不错，谢谢你
：）。。。。。