Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/delphi/8.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何使用delphi xe3的OLE自动打印word文档双面打印_Delphi_Printing_Ms Word_Delphi Xe3 - Fatal编程技术网

如何使用delphi xe3的OLE自动打印word文档双面打印

如何使用delphi xe3的OLE自动打印word文档双面打印,delphi,printing,ms-word,delphi-xe3,Delphi,Printing,Ms Word,Delphi Xe3,我目前正在尝试使用下面的代码在纸张的两面打印创建的文档。但是我找不到任何方法来更改它,以便打印机在用户不必选择打印双面打印的情况下打印双面打印 如果你有什么建议,那就太好了 代码: 我想执行打印而不必调用dlg.show命令。我刚刚注意到,我的文档打印了两次,dlg.show;还打印文件,所以我希望能取消1。只要使用wrdApp.PrintOut()命令,一旦我知道在短边上打印的双面打印设置,我还需要知道如何将纸张大小更改为A4,并将orentation设置为Landscape,以及要打印的打印

我目前正在尝试使用下面的代码在纸张的两面打印创建的文档。但是我找不到任何方法来更改它,以便打印机在用户不必选择打印双面打印的情况下打印双面打印

如果你有什么建议,那就太好了

代码:


我想执行打印而不必调用
dlg.show命令。

我刚刚注意到,我的文档打印了两次,dlg.show;还打印文件,所以我希望能取消1。只要使用wrdApp.PrintOut()命令,一旦我知道在短边上打印的双面打印设置,我还需要知道如何将纸张大小更改为A4,并将orentation设置为Landscape,以及要打印的打印机。这些都是打印对话框设置。但是对于许多打印机,您也必须进入打印机属性对话框-双面打印就是一个例子。这难道不意味着你也必须从代码开始改变吗?我不认为这是必要的,如果可以通过dlg.show对话框更改设置,我相信它应该能够从Delphi代码中更改,只需使用正确的设置来分配ManualDuplexPrint。
Dlg := wrdApp.Dialogs.Item(88);
dlg.show;
           wrdApp.PrintOut(Background := false,
                             range := dlg.Range,
                             From := dlg.From,
                             To := dlg.To,
                             PageType := dlg.Type,
                             Copies := dlg.NumCopies,
                             Pages := dlg.Pages,
                             Collate := dlg.Collate,
                             PrintToFile := dlg.PrintToFile,
                             ManualDuplexPrint := dlg.DuplexPrint,
                             PrintZoomColumn := dlg.PrintZoomColumn,
                             PrintZoomRow := dlg.PrintZoomRow,
                             PrintZoomPaperWidth := dlg.PrintZoomPaperWidth,
                             PrintZoomPaperHeight := dlg.PrintZoomPaperHeight);