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;
zuuecAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

kolarbCommented:
It is obvious from the code you are getting the source code (HTML1.SourceText). Please let me now which component are you using to do this.

I can offer you an answer for using the Microsoft's ActiveX Internet Explorer component and printing the pages exactly as they should appear with Delphi2 or Delphi3.
0
zuuecAuthor Commented:
Hi There Kolarb,

           I don't exactly know what the component I'm using is called, but I do that it is an ActiveX Internet Browsing tool. I hope the code below for the component helps in anyway, send me what you know, even if it might not be what I need, perhaps I can try it out. Thank you for your time...

       zuuec@westminster.ac.uk

0
kolarbCommented:
OK - here it is - the most simple way.

Get Delphi3, look into demos/cool
they've done it all for you...
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.