Jak wydrukaować zawartość TWebBrowsera1??

No wię chce uzyskac tekie cos ze jak sobie kliknę w przycisk to mi się wydrukuje zawartosc WebBrowsera1. Zarobiłem to tak (ale wiem że źle)procedure TForm1.Drukuj2Click(Sender: TObject);
begin
WebBrowser1.Print(<font color="blue">'Moja strona'</span>);
end; Pomóżcie :-)

nie jestem pewien ale widzialem takie cos we faq [jupi]

-T-H-C- uszyj musku i przestań głupio odpowiadać... skasował bym to ale przy okazji napisze - JEŚLI NIE ZNASZ ODPOWIEDZI TO SIĘ NIE WYPOWIADAJ!! !! !!

// Print without Printer Dialog
// Drucken ohne Druckerauswahldialog
// drukowanie bez PRINTERDIALOG

procedure TForm1.Button2Click(Sender: TObject);
var
vaIn, vaOut: OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,
vaIn, vaOut);
end;

// Print with Printer Dialog
// Drucken mit Druckerauswahldialog
// drukowanie z PRINTERDIALOG

procedure TForm1.Button3Click(Sender: TObject);
var
vaIn, vaOut: OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,
vaIn, vaOut);
end;

// Print Preview
// Druckvorschau
// podgląd wydruku

procedure TForm1.Button4Click(Sender: TObject);
var
vaIn, vaOut: OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW,
OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;

// Page Setup Dialog
// Seite einrichten Dialog
// ustawnienia strony

procedure TForm1.Button5Click(Sender: TObject);
var
vaIn, vaOut: OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER,
vaIn, vaOut);
end;

Tu masz do wyboru do koloru :-D