怎样将字符串转-90度打印(100分)

我做一打印证书的程序，由于证件宽但上下窄，象身份证，oki打印机打不了，不是字符重叠，就是打印后吐不出证来。将纸设置成横或竖改得是纸，可字符不转，还是不行。请专家指教。

在要打印的字符前加上Chr($1C) + 'J'就可以了

Function FontToLogFont(aFont:TFont;angle:Integer):HFont;
var
lf:TLogFont;
begin
GetObject(aFont.Handle, sizeof(lf), @lf);
lf.lfEscapement := angle*10;
//2700度 lfEscapement 为1度的 1/10 *2700 =270
lf.lfOrientation := angle*10;
//2700度 lfOrientation 为1度的 1/10 *2700 =270
Result:=CreateFontIndirect(lf);
end;

ACanvas.Font.Handle:=FontToLogFont(PrtFont,0);
不旋转0, 90, 270 ,360 , 可以任意旋转字体