|
DevExpress(tm) |
Top Previous Next |
|
Since version V2.10 wPDF can export the output of the Developer Express(tm) EXPRESS PrintingSuite (www.devexpress.com) in a high quality.
This is the code to do it:
procedure TEQGridRLMainForm.PDFExportClick(Sender: TObject); var i,w,h,res : Integer; begin dxComponentPrinter1.RebuildReport(nil); WPPDFPrinter1.Modes := [wpClipRectSupport,wpAlwaysHighResPDF]; WPPDFPrinter1.BeginDoc; try for I := 0 To dxComponentPrinter1.GetPageCount - 1 Do begin with dxComponentPrinter1.CurrentLink.RealPrinterPage Do begin res := Screen.PixelsPerInch; w := MulDiv(PageSizePixels.X,res,100); h := MulDiv(PageSizePixels.Y,res,100);
WPPDFPrinter1.StartPage(w,h,res,res,0); dxComponentPrinter1.PaintPage(WPPDFPrinter1.Canvas,I, Rect(0,0,w,h), PaintRectPixels); end; WPPDFPrinter1.EndPage; end; finally WPPDFPrinter1.EndDoc; end; end;
|