【结贴】DocView怎样设置打印机？**

lxs202

DocView怎样设置打印机?
两台打印机同时打印两个不同的东西。需分别指定打印机.

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=24950

lxs202

2楼那个方法是改变当前WONDOWS的默认打印机，这种方法是不行的。
我要在同一窗体下同时打印两个不同的东西（一个是条形码，另一个是合格证）。
请注意上面的两个“同时”.
最好是有这种方法如：
DocView1的打印机:=A 打印机
DocView2的打印机:=B 打印机

lixy

在打印的时候设置对应的打印机不行吗？
也就是在按下打印按钮时再设置默认打印机

lxs202

不行，不信你自己试试。全用设的第一个打印机打出来了。
procedure TCT1.BitBtn1Click(Sender: TObject);
  var
  LPrinter:string;
  PrinIniFile:Tinifile;
  LStr:string;
begin
  LStr:='\\192.168.1.6\HP LaserJet 1020';
  StringUtils.delete(Lstr,StringUtils.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;
    Borland.Delphi.Windows.SendMessage (Borland.Delphi.Windows.HWND_BROADCAST,
      Borland.Delphi.Messages.WM_SETTINGCHANGE, 0, 0);
  end;
  TSheetDoc(DocView1.doc).Exporter.Printex(false, false);

  // 第二个打印
  LStr:='Microsoft Office Document Image Writer';
  StringUtils.delete(Lstr,StringUtils.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;
    Borland.Delphi.Windows.SendMessage (Borland.Delphi.Windows.HWND_BROADCAST,
      Borland.Delphi.Messages.WM_SETTINGCHANGE, 0, 0);
  end;
  TSheetDoc(DocView2.doc).Exporter.Printex(false, false);

end;

lixy

再试试这个方法的。http://bbs.justep.com/forum.php?mod=viewthread&tid=12611

lxs202

你是说按那个贴子7楼的方法吗？
那样做在执行 TSheetDoc(DocView1.doc).Exporter.Printex(false, false); 这个时报指针错。

SMP

刚才在处理一个别的问题耽误了一下，楼主这个地址错可能要自己跟一下了，看看是哪个对象为空了，我下面把自己做法说一下，楼主可以仿来看看：
  我在一个docSheet上放了一个按钮里面的代码只一行，如下：
    Exporter.Printex(True, false);     
  运行的时候就会出打印提示框了，在这个框里可以选择打印机，设置打印份数儿，横打，纵打等，就是那个windows的打印选择框。

lxs202

8楼的你说的是用那种方法？是本贴5楼的吗？

SMP

哦？我理解错了。不过建议还是一个个的打手选吧，你写死了，万一系统换个驱动，或是IP机器名儿啥的你的打印就不灵了。
另外在我的机器上一调用sendMessage程序就会就没响应了！