delphi 控制打印機字體TLogFont

procedure SetPrintFont(Degrees:Integer); var  LogFont : TLogFont ; begin                             with Printer.Canvas do    begin       With LogFont do       begin         lfHeight:=Font.Height;  /

>>阅读原文<<