在delphi中，一个程序怎样制定到多台打印机上

fordyang 2008-10-07 04:40:54

在delphi中，用ppReport1控件做的打印，怎样用一个程序将打印的内容发送到多台制定的打印机上，如将第一个打印内容发送到第一个打印机上，第二个打印内容发送到第二个打印机上；
...前面是数据集的设置
ppReport1.ShowPrintDialog:=false;
ppReport1.DeviceType:=dtPrinter;
ppReport1.Printer.PrinterName := '打印机1';
ppReport1.Printer.
ppReport1.Print;

ppReport1.Printer.PrinterName := '打印机1';这里设置无效
各位帮忙看一下...

...全文

178 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

五维思考 2008-10-07

打赏
举报

更改打印名称即可

fordyang 2008-10-07

打赏
举报

yuqianyi1974 老于：
printer.PrinterIndex := 0;
还是没设置过来嘛
再指教一下？

yuqianyi1974 2008-10-07

打赏
举报

uses
printers;
printer.PrinterIndex 用于修改默认打印机

fordyang 2008-10-07

打赏
举报

yuqianyi1974 老于：
printer.PrinterIndex
printer点不出这个属性啊？

yuqianyi1974 2008-10-07

打赏
举报

ppReport1.ShowPrintDialog:=false;
ppReport1.DeviceType:=dtPrinter;
//ppReport1.Printer.PrinterName := '打印机1'; 去掉
设置printer.PrinterIndex
for i:=0 to printer.Printers.Count-1 do
printer.PrinterIndex:=i;

ppReport1.Printer.
ppReport1.Print;