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 可以看到全部內容