怎设定打印机打印出来的字体？

Question

打印机打印字体的是那个属性？uses Printers;printer.Fonts.(？？),谢了!

Answer 1

Printer.Canvas.Font.Name  := 'Times New Roman';
Printer.Canvas.Font.Size  := 12;
Printer.Canvas.Font.Style := [fsBold, fsUnderline];

Answer 2

Printer.Canvas.Font.Name  := 'c39HrP24DHTt';
  Printer.Canvas.Font.Size  := 40;
  Memo1.Lines.Text := 'd2.1-2002-0230';
 with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-100,PageHeight-100),
                    200, 1000, Memo1.Lines.Text);
    //TextRect(Rect: TRect; X, Y: Integer; const Text: string);
    //function Rect(ALeft, ATop, ARight, ABottom: Integer): TRect;
    //x:  left;
    //y:  top;
    EndDoc;
  end;