TWebBrowser i TPrintDialog - jak to połaczyć?

Z WebBrowser drukuje w ten sposób

procedure TfrmPrint.btnPrint(Sender: TObject);
var
   vIn, vOut: OleVariant;
begin
   wbPreview.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vIn, vOut) ;
end;

Chcę mieć możliwość wyboru drukarki i ustalenia liczby kopi wydruku.

Jak to zrobić przy pomocy TPrintDialog?

//Call page setup dialog
procedure WBPrintPageSetup(WB: TWebBrowser) ;
var
   vIn, vOut: OleVariant;
begin
   WB.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER, vIn, vOut) ;
end;

a to być nie może?

Przy wykorzystaniu Twojego sposobu Misiekd pojawia się dziwne, nietypowe okienko

Nie można w nim ustawić ilości stron a by wybrać drukarkę trzeba kliknąć kolejny przycisk co może być uciążliwe przy częstych wydrukach.

Wolałbym jednak znaleŹć sposób na wykorzystanie TPrintDialog.