Question

我使用以下代码打开MS Word文档：

  try
  { Open the document}
   WrdApp := CreateOLEObject('Word.Application');
   wrdDoc := 'temp.docx');
  // Wrddoc.SaveAs('temp2.docx');
  except
   on E: Exception do
    begin
     E.Message := 'Could Not Execute MS WORD!';
     raise;
    end;
  end;

使用wrdapp.Printout

打印

我有一个组合框，其中包含来自计算机的打印机名称列表，使用以下代码：

Combobox32.Items.Assign(Printer.Printers);

如何将MS Word中的活动打印机更改为组合框中的选定打印机，以便当我拨打wrdapp.Printout时，它将从组合框中选择的打印机打印？

提前感谢您的帮助。

Answer 1

您可以简单地为WrdApp.ActivePrinter指定您要使用的打印机的名称。在您的情况下，您从组合框中选择的项目中捕获它。有关代码示例，请参阅：http://francois-piette.blogspot.be/2014/02/automate-word-document-print-using.html

如何使用delphi xe3更改MS word中的活动打印机

1 个答案: