Exportar pagina de WebBrowser a PDF

[pgranados]

Buen día, busco exportar el contenido de un WebBrowser a un archivo PDF, tengo esta función pero el PDF que me descarga esta roto, directamente no abre (pero si tiene tamaño mayor a 0kb)

Código Delphi [-]
uses ActiveX;

function TForm1.PDF(Ruta:String):boolean;
var
  Stream : TFileStream;
  StreamAdapter: IStream;
  PersistStreamInit: IPersistStreamInit;

begin
 if not Assigned(Navegador.Document) then
  Exit;
 if Navegador.Document.QueryInterface(IPersistStreamInit, PersistStreamInit) = S_OK then
  begin
   Stream := TFileStream.Create(Ruta, fmCreate);
   try
    StreamAdapter := TStreamAdapter.Create(Stream);
    PersistStreamInit.Save(StreamAdapter, True);
   finally
    Stream.Free;
   end;
  end;
end;

A la función le paso la ruta destino del PDF, ¿alguna alternativa? Intenté con fastreport pero se ve feo porque la pagina también tiene CSS no solo HTML.

Saludos!