DELPHI 指定打印机打印

[COMPUTERZZZ]

有两台打印机A，B
我打印报表1时，用A打印机打印，打印报表2时，用B打印机打印

我是这样写的：

打印A时，调用SETPRINTER（0）
打印B时，调用SETPRINTER（1）
可是第一次先打报表1时，再打报表2，就总是打到打印机1
如果第一次先打报表2时，再打报表1，就总是打到打印机2
不知是什么问题？

procedure TPayFrm.SetPrinter(serno:integer);
var
Mydevice,Mydriver,MyPort:array[0..255] of char;
MyHandle:THandle;
i:integer;
begin
if printer.Printers.Count=1 then exit;
printer.PrinterIndex:=Serno;
Printer.GetPrinter(Mydevice,
MyDriver,
MyPort,
MyHandle);
StrCat(MyDevice,',');
StrCat(MyDevice,MyDriver);
StrCat(MyDevice,',');
StrCat(Mydevice,MyPort);
//write win.ini
WriteProfileString('WINDOWS','DEVICE',Mydevice);
//tell all application that windows ini file has changed ,
//this will cause them all to recheck default printer
SendMessage(HWND_BROADCAST,
WM_WININICHANGE,
0,
LongInt(pChar('windows'))
);

end;

[亮剑_]

建立报表和打印机的对应关系，放在数据库或配置文件中
最好再提供前端设置界面，可以由用户选择

[COMPUTERZZZ]

用户就是要默认的，不想选择！

建立报表和打印机的对应关系如何做呢？

[zhutaozhi53]

每次去检索打印机了，还有可以设置打印到那个打印机上的了

[mjp1234airen4385]

楼主做的复杂了。
把A报表的打印机的配置参数设置为打印1，
把B报表的打印机的配置参数设置为打印2，

打印A的时候找到所有的打印机，在其中找到打印机1，
把打印机设置为当前打印机，直接输出就行了。
这些在Delphi的Pinters单元里都有，不用调用WindowsAPI处理的。