The following is a slightly modified version of a
Jan. 7, 99 post by Joe Hecht:

procedure TForm1.Button2Click(Sender: TObject);
var
lf : TLogFont;
OldFont : hFont;
NewFont : hFont;
begin
Printer.BeginDoc;
Printer.Canvas.Font.Name := 'Arial'
Printer.Canvas.Font.Size := 24;
Printer.Canvas.Font.PixelsPerI ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容