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

lxs202

问题还是存在。怎么解决?

lixy

推荐手选一下吧。

lxs202

如果手选能满足我现在的需求。我就不会来发这个贴了。
请看3楼的需求。
这样的打印需连续几十上百次，一天的打印要几千次。你说手选是不是太不人信化了？

lixy

那就等周1打电话过来咨询下smb吧。这个我没有什么好办法。

lixy

我查了一个vba的写法，你可以试试。
uses system;添加
procedure TKBBD1.setPrinter(printname:string);
var
   fobjcet: Object;
   fAppispatchHelper;
begin
    fobjcet := ComObj.CreateOleObject('WScript.Network');
    FApp := DispatchHelper.Create(fobjcet);
    fApp.InvokeMethod('SetDefaultPrinter',[printname]);

    {Dim net
Set net = CreateObject("WScript.Network")
''net.SetDefaultPrinter "\\print\hprint"
net.SetDefaultPrinter "Microsoft Office Document Image Writer"
}
    (fobjcet as System.IDisposable).Dispose;
end;

procedure TKBBD1.Button1Click(Sender: TObject);
begin
  setPrinter('\\print\hprint');

end;

procedure TKBBD1.Button2Click(Sender: TObject);
begin
   setPrinter('Microsoft Office Document Image Writer');
end;

lixy

上面这个我试验还是不好用。
现在我试验出好用的了。如果可以请务必回复啊。试验了2个小时的成果。
Business.Forms.Printers.Printer.PrinterIndex:=1;
Borland.Delphi.Windows.SendMessage (Borland.Delphi.Windows.HWND_BROADCAST,
      Borland.Delphi.Messages.WM_SETTINGCHANGE, 0, 0);
TSheetDoc(DocViewZCBXX_KBBD1.doc).Exporter.Printex(false, false);
Borland.Delphi.Windows.SendMessage (Borland.Delphi.Windows.HWND_BROADCAST,
      Borland.Delphi.Messages.WM_SETTINGCHANGE, 0, 0);
TSheetDoc(DocView1.doc).Exporter.Printex(false, false);

lixy

Business.Forms.Printers.Printer.PrinterIndex:=1;拿这个设置好像很管用。

lxs202

01067659675 这个电话是不是你打的（如果不是你请你转告一下你的同事）。我那时在给别人培训，不便接听。请谅解。

测试有后我一定反馈。谢谢!

lxs202

好用，谢谢.结账

lixy

O(∩_∩)O哈哈~。你手机有毛病，打过去都是噪音，修理下吧。