字体显示的问题(200分)

如果你选的字体如果太怪的话，打印机还有个字库的问题。

你如果先“宋体”它也会失真吗？

是的，我选择的是宋体。创建字体的函数如下：
var
xfont: tlogfont;
begin
CreateFontIndirect(xfont);
xfont.lfHeight := -100;
xfont.lfWidth := 30;
xfont.lfEscapement := 0;
xfont.lfOrientation := 0;
xfont.lfWeight := 400;
xfont.lfItalic := 0;
xfont.lfUnderline := 0;
xfont.lfStrikeOut := 0;
xfont.lfCharSet := GB2312_CHARSET;
xfont.lfOutPrecision := OUT_DEFAULT_PRECIS;
xfont.lfClipPrecision := CLIP_DEFAULT_PRECIS;
xfont.lfQuality := DEFAULT_QUALITY;
xfont.lfPitchAndFamily := DEFAULT_PITCH;
xfont.lfFaceName := '宋体';

Label26.Font.Handle := CreateFontIndirect(xfont);
调用PRINTATONCE控件时，预览正常，打印时却不正常，只打了一部分
我的函数有问题吗？

将你建立的字体赋值给tprinter
printer1.canvas.font:=建立的字体;

[]这样还是不行，我试过了，再帮我想想！！！