Question

如何使用Delphi xe 3中的代码在两面打印Word文档？

下面是word文档的创建方式：

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

非常感谢任何帮助，谢谢

Answer 1

KB 194306演示了使用Word自动化打印双面打印。关键是插入字段，然后输入特定于打印机的转义码以告诉打印机以双面模式打印。在Delphi中，它可能会是这样的：

wrddoc.Selection.Fields.Add(wrddoc.Selection.Range, -1, 'PRINT 27 &l1S');

然后您可以照常调用Printout让Word打印文档。

文章提到此处显示的转义码适用于HP打印机驱动程序。

使用delphi xe3在纸张两面的MS Word中打印文档

1 个答案: