[[cHackAll]]

Código Delphi [-]
uses ComObj;

procedure PrintPage(Address: string);
var ie: Variant;
begin
 ie := CreateOleObject('internetexplorer.application');
 ie.Navigate(Address);
 while ie.Busy do Sleep(1000);
 ie.Document.ExecCommand('print');
 ie.Quit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 PrintPage('www.clubdelphi.com'); // obtienes la direccion, y la abres e imprimes
end;