Export from WPForm

You are here: Products wPDF Export from WPForm

To export from a TWPFormEditor ("FD")

var meta : TMetafile;
    i,sr : Integer;
begin
   sr := Screen.PixelsPerInch;
   WPPDFPrinter1.BeginDoc;
   try
   for i:=1 to FD.PageCount do
   begin
     meta := FD.GetMetafile(i);
     WPPDFPrinter1.DrawMetafileEx(0,0,0,0,meta.Handle, sr,sr   );
     meta.Free;
   end;
   finally
     WPPDFPrinter1.EndDoc;
   end;
end;