31. Mai 2004 um 15:16 #1 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
2. Juni 2004 um 05:18 Offizieller Beitrag #2 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