TWebBrowser модальный диалог печати?

Question

Я нашел много способов сделать TWebBrowser показать немодальное диалоговое окно печати, но как мне заставить его показать модальный? Я хотел бы напечатать html-страницу, поэтому мне нужен модальный диалог.

Я действительно ценю ваши идеи по этому вопросу.

Спасибо!

Answer 1

Эврика! Я решил это.

Вот как:

При отображении диалога немодальных печатей, вы можете отключить форму вызова в Delphi. Затем вы можете использовать событие OnCommandStateChange, чтобы определить, когда пользователь печатает или отменяет диалог печати.

Пример кода:

WebBrowser1.OnCommandStateChange:=WebBrowser1CommandStateChange; 
    WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, 
    vaIn, vaOut); 

procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: 
    Integer; Enable: WordBool); 
begin 
    if Enabled then 
    Enabled:=false 
    else begin 
    Enabled:=true; 
    WebBrowser1.OnCommandStateChange:=nil; 
    end; 
end; 

Прошу вас людей, чтобы проверить мое решение, поскольку я не уверен в надежности этого кода.

Спасибо!

Answer 2

Я не могу придумать, почему было бы много способов показать немодальный диалог. Зачем вам нужно продолжать взаимодействие с веб-браузером, пока отображается диалоговое окно немодальной печати?

Если вы хотите, чтобы начать печать с помощью программы, но нужно пользователю выбрать принтер, используйте:

ExecWB(OLE_CMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);