用TlogFont建立的字体,为何无法打印?(20分)

//制作字体过程<br>function MakeFont:integer;<br>begin<br>&nbsp;FillChar(FLogFont, sizeof(TLogFont), 0);<br>&nbsp;// Set the TLOGFONT's fields<br>&nbsp;with FLogFont do<br>&nbsp;begin<br>&nbsp; &nbsp;lfHeight &nbsp; &nbsp; &nbsp; &nbsp; := 10;<br>&nbsp; &nbsp;lfWidth &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;:= 8;<br>&nbsp; &nbsp;lfEscapement &nbsp; &nbsp; := 0;<br>&nbsp; &nbsp;lfOrientation &nbsp; &nbsp;:= 0;<br>&nbsp; &nbsp;lfWeight &nbsp; &nbsp; &nbsp; &nbsp; := 0;<br>&nbsp; &nbsp;lfItalic &nbsp; &nbsp; &nbsp; &nbsp; := 0;<br>&nbsp; &nbsp;lfUnderline &nbsp; &nbsp; &nbsp;:= 0;<br>&nbsp; &nbsp;lfStrikeOut &nbsp; &nbsp; &nbsp;:= 0;<br>&nbsp; &nbsp;lfCharSet &nbsp; &nbsp; &nbsp; &nbsp;:= 0;<br>&nbsp; &nbsp;lfOutPrecision &nbsp; := 0;<br>&nbsp; &nbsp;lfClipPrecision &nbsp;:= 0;<br>&nbsp; &nbsp;lfQuality &nbsp; &nbsp; &nbsp; &nbsp;:= 0;<br>&nbsp; &nbsp;lfPitchAndFamily := 0;<br><br>&nbsp;end;<br><br>&nbsp; tmpFont := CreateFontIndirect(FLogFont);<br>&nbsp; result:=tmpFont;<br><br>end;<br><br>//应该字体<br>QuickRep.QRlabel1.font.handle:=makeFont;<br>QuickRep.QRlabel1.caption:='中华人民共和国2004年';<br>QuickRep.preView;//预览结果是正确的,字体为扁体字<br>但打印出来后就没有效果了,这是为什么啊????????????

打印的字体需要打印机支持

这对QuickRep没有用，除非所使用的报表控件支持自定义字体，或自已搞...<br>&nbsp; Printer.BeginDoc;<br>&nbsp; Printer.Canvas.Font := tmpFont;<br>&nbsp; Printer.Canvas.TextOut(....);<br>&nbsp; ....<br>&nbsp; Printer.EndDoc;

这样打印的效果很差,因为不是矢量字.........<br>WORD是怎样打出来的啊??又平滑又好看.........

为什么不是矢量字体。

我试过了,打印出来的很难看,已经图形化了,剧齿现象严重.<br>而WORD的"字符缩放"打印出来的就很好,它是怎么实现的啊????<br>高手帮忙啊!!!!!!