1：設(shè)置默認(rèn)打印機(jī)。

procedure TForm1.FormCreate(Sender: TObject);
begin
cb1.items.assign(printer.printers);
end;

procedure TForm1.Button1Click(Sender: TObject);
var LPrinter:string;
PrinIniFile:Tinifile;
LStr:string;
begin
LStr:=printer.Printers[cb1.itemindex];
delete(Lstr,pos(' on ',Lstr),Length(LStr));
PrinIniFile:=TIniFile.Create('WIN.ini');
try
LPrinter:=PrinIniFile.ReadString('Devices',LStr,'');
PrinIniFile.writestring('windows','device',LStr ',' LPrinter);
finally
PrinIniFile.free;
end;
end;

2：你可以用Printer.PrinterIndex來控制打印機(jī)。首先，你取得所有的打印機(jī)，找出哪臺是
激光打印機(jī)，哪臺是針式打印機(jī)，然后，根據(jù)各PrinterIndex不同，在打印時自己作出選擇
就可以用不同的打印機(jī)打不同的內(nèi)容了。也不用改系統(tǒng)的默認(rèn)打印機(jī)。
3：多人接受答案了。