3 
procedure TForm1.Button1Click(Sender: TObject);
var 
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.Navigate('http://www.google.com');
  while WebBrowser1.ReadyState < READYSTATE_COMPLETE do
    Application.ProcessMessages;
  WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);

  // HOWTO: WAIT until print <strike>job</strike> dialog is done or canceled

  // UPDATE (1):
  WebBrowser1.Enabled := False;
  WebBrowser1.OnCommandStateChange := WebBrowser1CommandStateChange;
end;

procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool);
begin
  Memo1.Lines.Add(Format('%d : %d : %d', [WebBrowser1.QueryStatusWB(OLECMDID_PRINT), Command, Ord(Enable)]));
  // TODO: after LAST event when the print dialog closes:
  // WebBrowser1.OnCommandStateChange := nil;
end;

预览也是如此： WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);

我需要等待（或触发事件），直到Print/Print Preview对话框完成，并且用户选择了打印或取消。

更新 (1)

基于这个问题，我测试了OnCommandStateChange. 在打印对话框中打印或取消后触发它。但它可以在对话框打开之前触发 1 或 2 次。

更新 (2) 找到了一个可能解决问题的解决方法（这是一个基本的想法）：

procedure TForm1.WaitPrintDialog;
var
  t1, t2: DWORD;
  w, wpd: HWND;
begin
  t1 := GetTickCount();
  t2 := t1;
  wpd := 0;
  while ((wpd = 0) and (t2 - t1 <= 5000)) do // 5 sec timeout
  begin
    w := FindWindowEx(0, 0, 'Internet Explorer_TridentDlgFrame', nil);
    if (w <> 0) and (GetWindow(w, GW_OWNER) = Self.Handle) then
    begin
      wpd := w;
    end;
    Application.ProcessMessages;
    t2 := GetTickCount();
  end;
  if wpd <> 0 then // found and no timeout
    while IsWindow(wpd) and (not Application.Terminated) do
    begin
      Application.HandleMessage; // Application.ProcessMessages;
    end;
end;

用法：

WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);
WaitPrintDialog;
ShowMessage('Print Done!');

两者都适用OLECMDID_PRINT，OLECMDID_PRINTPREVIEW 请告诉我您的想法...

4

3 回答 3

3

当我一直在寻找解决方案时，PRINT_WAITFORCOMPLETION几天前我发现了该标志，但无法使其正常工作。诀窍很简单（见注4）。我将命令的ExecWB方法的第三个参数OLECMDID_PRINT作为变体类型传递是错误的，VT_I4但它已重载，PRINT_WAITFORCOMPLETION必须将 for 转换为确切的类型VT_I2，在 Delphi 中表示为 a smallint。

以下是如何使打印对话框模态化（也偶然回答这个问题：）

procedure TForm1.Button1Click(Sender: TObject);
var
  vaIn: OleVariant;
  vaOut: OleVariant;
const
  PRINT_WAITFORCOMPLETION = $02;
begin
  WebBrowser1.Navigate('http://www.google.com');
  while WebBrowser1.ReadyState < READYSTATE_COMPLETE do
    Application.ProcessMessages;

  vaIn := OleVariant(VarAsType(PRINT_WAITFORCOMPLETION, varSmallint));
  WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);

  ShowMessage('Print dialog has been closed ...');
end;

不幸的是，如果用户将文档发送到打印机队列或取消对话框，您将无法获得任何反馈。IDM_PRINT没有输出值，它会返回这个。另一件事是，即使用户接受了打印对话框，也不意味着文档将被物理打印。为此，正如 Remy 所说，您必须监控打印机队列。

于 2011-12-08T23:02:30.153 回答
2

打印作业在后台由操作系统假脱机并输出到打印机驱动程序。WebBrowser 不会告诉您何时完成。一旦打印作业排队，ExecWB() 就会退出。您必须直接监视打印机队列才能知道它在做什么。

于 2011-12-05T04:08:18.597 回答
0

下面的代码使打印对话框成为一个模型对话框，这样只有在打印对话框的使用完成后，他才会返回到应用程序。

WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, 2, 0
于 2014-06-27T05:10:11.830 回答