如何在程序中选择打印机自带的字体?(100分)

我看到有一个打印程序用的是打印机自带的字体(字体和Windows中的字体不同),
打印速度飞快.我自己做了个类似的程序,打印出来的是Windows的字体,打印速度很
慢.我想问一下各位大侠,如何在程序中选择打印机自带的字体打印?
这个程序不但用的是打印机自带的字体,而且还能把字体用瘦长型打印,这又是
如何做到的呢?(注:打印机是针式打印机)

var
bcfile:Textfile;
begin
try
Assignfile(bcfile,'LPT1:');
Rewrite(bcfile);
writeln(bcfile,'加上你針式打印機的指令');
finally
closefile(bcfile);
end;