网络打印机(100分)

在LAN上有2台打印机(每台都有自己的IP) 在程序中把不同的内容送往2台不同的打印机,怎么实现!需要代码!谢谢!送1000分

求打印中 切换默认打印机代码

可使用Printer.PrinterIndex来控制打印机。根据PrinterIndex的不同，在打印时作出选择，就可以用不同的打印机打印不同的内容了。
设置默认打印机，可使用INI文件。
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.items.assign(printer.printers);
end;

procedure TForm1.Button1Click(Sender: TObject);
var LPrinter:string;
PrinIniFile:Tinifile;
LStr:string;
begin
LStr:=printer.Printers[ComboBox1.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;

多人接受答案了。