procedure TForm2.Print1Click(Sender: TObject);
var vaIn, vaOut: OleVariant;
begin try
play_snd(1);
case Notebook1.PageIndex of
   0:form2.wikipedia_console.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
   2:form2.wikimedia_console.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
   3:form2.wikidict_console.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
   5:form2.wikibooks_console.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
   6:form2.wikinews_console.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
   7:form2.Wikiquote_console.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
   8:form2.wikisource_console.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
   9:form2.wikispices_console.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'G10000');
end;End;