使用 OLE (Imprimir em ole object (word application) com delphi) 在 MS Word 中打印一系列页面

Question

我正在尝试从我的 Ole Object 对象打印一系列页面，但它对我不起作用 - 执行对 Doc.PrintOut 的调用时出现“类型不匹配”异常。

谁能帮我避免这个错误？以下是测试中使用的代码：

  if (OpenDialog1.Execute) then
    begin
        // Cria objeto principal de controle do Word
        WinWord := CreateOleObject('Word.Application');
        if (not (VarIsEmpty(WinWord))) then
           begin
              // Mostra o Word
              try
                  WinWord.Visible := false;
                  Docs := WinWord.Documents;
                  // Abre um documento
                  Doc := Docs.Open(OpenDialog1.FileName);
                  //Doc.PrintOut(false, Range, 1, 2);
                  //Doc.PrintOut(Copies := 2);
                  vFrom := 1;
                  vTo := 2;
                  Doc.PrintOut(Background := false, Append := false, Range :=       wdPrintFromTo, OutputFileName := EmptyParam, From := vFrom, To := vTo);
                  // erro recebido: tipo não correspondente
              finally
                  // Fecha o Word
                  WinWord.Quit;
           end;
    end;

    showmessage('Fim!');
end;

Answer 1

我在 D7 中尝试了您的代码，使用的是 Office2007 的英文版。

我在 Doc.PrintOut 上收到异常错误，这是 Delphi 通常的“类型不匹配”。通过试验传递给 Doc.PrintOut 的参数，我认为是

Range := wdPrintFromTo

这导致了异常，因为“范围”通常是一个文本块，而 wdPrintFromTo 是一个数字常量（但是，我在下面提到的 Word 宏使用数字常量作为范围，所以 Word 可能只是不'不喜欢你用的那个）。

然后，我让 Word 录制一个宏来打印 6 页文档的前两页，并发现我可以通过进行这些更改来让您的代码正常工作：

• 将我认为是 OleVariants 的 vFrom 和 vTo 替换为两个整数 iFrom 和 iTo（我认为这并不重要，只是更容易检查页面范围参数是否正确构造。

• 将代码从 "vFrom := [...] 替换为 Doc.PrintOut by

  iFrom := 1;
  iTo := 2;
  
  Doc.PrintOut(
    Range := wdPrintRangeOfPages,
    Item := wdPrintDocumentContent,
    Copies := 1,
    Pages := IntToStr(iFrom) + '-' + IntToStr(iTo),
    PageType := wdPrintAllPages,
    ManualDuplexPrint := False,
    Collate := True,
    Background := True,
    PrintToFile := False,
    PrintZoomColumn := 0,
    PrintZoomRow := 0,
    PrintZoomPaperWidth := 0,
    PrintZoomPaperHeight := 0
  );
  

显然，此 PrintOut 包含的参数是 Word 宏包含的参数。通常其中一些可能是多余的。

Answer 2

谢谢大家！ MartynA、Jan Doggen、David Heffernan、Mason Wheeler 和所有其他人！！

我通过以下代码得到解决方案：

<pre><code>
procedure TForm1.Button1Click(Sender: TObject);
var
  WinWord, Docs, Doc: Variant;
  vNomeImpressoraPadraoOriginal : string;
  vFrom, vTo : integer;
begin
  if (OpenDialog1.Execute) then
  begin
    try
      // Cria objeto principal de controle do Word
      WinWord := CreateOleObject('Word.Application');
      if (not (VarIsEmpty(WinWord))) then
      begin
        // Mostra o Word
        try
          WinWord.Visible := false;
          Docs := WinWord.Documents;
          // Abre um documento
          Doc := Docs.Open(OpenDialog1.FileName);
          vFrom := 1;
          vTo := 2;
          // referência do comando: http://support.microsoft.com/kb/176069/EN-US
          Doc.PrintOut(0, 0, '3', '', '1', '2');
          // previous code
          // Doc.PrintOut(Background := false, Append := false, Range :=       wdPrintFromTo, OutputFileName := EmptyParam, From := vFrom, To := vTo);
        finally
          // Fecha o Word
          WinWord.ActiveDocument.Close(SaveChanges := 0);
          WinWord.Quit;

          WinWord := Unassigned;
          Docs := Unassigned;
          Doc := Unassigned;
        end;
      end;

      showmessage('Fim!');
    finally

    end;
  end;
end;
</code></pre>