如何将特定的内容用特定的打印机打印？？

Question

我有一些不同的表报，计算机上安装了两个打印机：一个本地打印机，一个网络打印机。我的不用表报要有不同的打印机打印，请问用程序如何实现（不用打印设置对话框选择）？？？

Answer 1

我认为，你先判断该用什么打印机打，然后更改默认打印机是不是可以？
uses printers;procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Items := Printer.Printers; 
  ComboBox1.ItemIndex := Printer.PrinterIndex; 
end;procedure TForm1.Button2Click(Sender: TObject);
var
  Device: array[0..255] of Char;
  Driver: array[0..255] of char;
  Port: array[0..255] of char;
  s : array[0..255] of Char;
  hDeviceMode: THandle;
begin
  Printer.PrinterIndex := ComboBox1.ItemIndex;
  Printer.GetPrinter (Device, Driver, Port, hDeviceMode);
  StrCopy (s, Device);
  StrCat (s, ',');
  StrCat (s, Driver);
  StrCat (s, ',');
  StrCat (s, Port);
  WriteProfileString ('windows', 'device', s);
  StrCopy (s, 'windows');
  SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@s));
end;

Answer 2

多谢你的意见，ruhapy(风)！
可是我打印的是rave报表，在程序运行中改变肋默认打印机，打印报表不会自动选用默认打印机！不知你对rave熟不熟悉，请帮忙！