How to print web page in landscape orientation?

From: Thomas Marti (Remove_this_tbm_at_postbox.ch)
Date: 02/25/04


Date: Wed, 25 Feb 2004 09:47:01 +0100


I use the following code to print a web page:

------------------------------- Snip -------------------------------
procedure TMainForm.PrintHTML (const url: string);
const
  OLECMDID_PRINT = $00000006;
  OLECMDEXECOPT_DONTPROMPTUSER = $00000002;
var ie, vaIn, vaOut: Variant;
begin
ie := CreateOleObject('InternetExplorer.Application');
ie.Navigate(url);
ie.visible := True;
ie.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;
------------------------------- Snip -------------------------------

My question: How can I change the orientation of the printout?
How do I tell Internet Explorer to print my page in landscape
orientation instead of portrait orientation?

Thanks for any suggestions!

Thomas