I Need To Print Web Pages As They appear Onscreen

I'm currently using a program that runs on Delphi2, and this program contains an ActiveX Internet Browser tool that lets the user view web pages on the WWW. I've built a "Print" option to allow the user to print any web-page he/she likes, but at the moment all I'm getting is the source code being printed out, is there anyway I could print the web-page as it appears on the screen rather than the source code ???.... here's the procedure I'm using, any suggestion would be greatly appreciated.....




procedure TfrmWebMain.Print1Click(Sender: TObject);
var
  MyFile: TextFile;
begin
  if printdialog1.execute then begin
    AssignPrn(MyFile);
    Rewrite(MyFile);
//    Writeln(MyFile, DocSourceFrm.Memo1.Lines[0]);
    Writeln(MyFile, HTML1.SourceText);
    System.CloseFile(MyFile);
  end;
end;