Exporting from THTML view

Mnoto

There is a sample code on exporting from THTML view using TMetaFilePrinter object for paging on the wpcubbed website.

Where do i get this object?

Mnoto

support

Hi,

This Object is part of THTMLView in unit MetafilePrinter.

This is the example source:

Code

// uses  WPPDFR1, WPPDFR2, MetaFilePrinter, Printers


procedure TForm1.Button1Click(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;

Alles anzeigen