TCppWebBrowser drucken funktioniert... Problem gelöst.

titanium

Hallo,
habe im Internet gesucht und was gefunden aber leider funktioniert es bei mir nicht, das Programm stürtzt ab.

TVariant vIn, vOut;
  // Drucken (mit Druckerauswahldialog)
  if(CheckBox1->Checked == true)
	CppWebBrowser1->ControlInterface->ExecWB(Shdocvw_tlb::OLECMDID_PRINT,
      Shdocvw_tlb::OLECMDEXECOPT_PROMPTUSER, &vIn, &vOut);
  // Drucken ohne Rückfrage
  else if(CheckBox2->Checked == true)
	CppWebBrowser1->ControlInterface->ExecWB(Shdocvw_tlb::OLECMDID_PRINT,
      Shdocvw_tlb::OLECMDEXECOPT_DONTPROMPTUSER, &vIn, &vOut);
  // Druckvorschau
  else if(CheckBox3->Checked == true)
	CppWebBrowser1->ControlInterface->ExecWB(Shdocvw_tlb::OLECMDID_PRINTPREVIEW,
      Shdocvw_tlb::OLECMDEXECOPT_DONTPROMPTUSER, &vIn, &vOut);

Fehlermeldung:

Assertion failed: m_Dispatch !=0, file d:\.....\borland\bds\4.0\include\vcl\utilcls.h, line 3199

Aber wenn ich ein Projekt donwloade wo der Code zum Drucken drin ist, dann funktioniert es. Könnt ihr mir Bitte sagen ob eine datei zum includen fehlt oder muss ich was einstellen?

Dank im Voraus.