Export from THTMLView (www.pbear.com)

procedure TForm1.CreatePDFClick(Sender: TObject);
var
  MFPrinter: TMetafilePrinter;
  page: Integer;
begin
  WPPDFPrinter.Filename := 'c:\htmltest.pdf';

  MFPrinter := TMetafilePrinter.Create(Self);
  try
    Viewer.PrintPreview(MFPrinter);
    WPPDFPrinter.BeginDoc;
    try
      for page := 0 to MFPrinter.LastAvailablePage - 1 do
        WPPDFPrinter.DrawMetafileEx(0, 0, 0, 0,
          MFPrinter.MetaFiles[Page].Handle,
          MFPrinter.PixelsPerInchX,
          MFPrinter.PixelsPerInchY);
    finally
      WPPDFPrinter.EndDoc;
    end;
  finally
    MFPrinter.Free;
  end;
end;