各位高手,我通过GDI建立的斜体字(LogFont : TLogFont),如何打印到打印机上?以下代码供参考: with Image1.Canvas do begin { 设置窗体画布的字体 } Font.Assign(btnFont.Font); //Font.Name := 'Arial'; { 字体 } //Font.Size := 18; { 字号 } //Font.Color:= clBackground; { 颜色 } { 创建新字体 } theFont := TFont.Create; theFont.Assign(Font); { 新字体继承窗体画布字体的属性 } { 为新字体设置旋转属性 } GetObject(theFont.Handle, sizeof(LogFont), @LogFont); LogFont.lfEscapement:=450 LogFont.lfOrientation:=450; LogFont.lfHeight:=20;//字体高度 Logfont.lfWidth:=40; //字体宽度 theFont.Handle := CreateFontIndirect(LogFont); Font.Assign(theFont); theFont.Free ; TextOut(10,image1.Height div 2, '测试文字') ; end; 發表人 - zenghs 於 2004/03/26 09:29:18