Support forums for TRichView, ScaleRichView, Report Workshop and RVMedia components
https://writeally.com/forums/
Code: Select all
function TRichViewMerge.ExportPdfToFile(PDFFileName: String): Boolean;
Var PDFDocument: TPDFDocument;
PageSize: TSize;
i: Integer;
Const PixelPerInch = 96;
begin
PDFDocument := TPDFDocument.Create(Nil);
PDFDocument.FileName := PDFFileName;
Try
PageSize.cx := FScaleRichViewEdit.RichViewEdit.Style.RVUnitsToStandardPixels(FScaleRichViewEdit.RichViewEdit.DocParameters.PageWidth, FScaleRichViewEdit.RichViewEdit.DocParameters.Units);
PageSize.cy := FScaleRichViewEdit.RichViewEdit.Style.RVUnitsToStandardPixels(FScaleRichViewEdit.RichViewEdit.DocParameters.PageHeight, FScaleRichViewEdit.RichViewEdit.DocParameters.Units);
PDFDocument.Resolution := PixelPerInch;
PDFDocument.BeginDoc;
{PDF page size is measured in pixels, with DPI = PDFPixelsPerInch}
PDFDocument.Page[0].Width := MulDiv(PageSize.cx, PixelPerInch, PixelPerInch);
PDFDocument.Page[0].Height := MulDiv(PageSize.cy, PixelPerInch, PixelPerInch);
For i := 0 To FScaleRichViewEdit.PageCount - 1 Do
Begin
if i > 0 then
begin
PDFDocument.NewPage;
PDFDocument.Page[i].Width := PDFDocument.Page[0].Width;
PDFDocument.Page[i].Height := PDFDocument.Page[0].Height;
end;
PDFDocument.Canvas.Font.PixelsPerInch := PixelPerInch;
FScaleRichViewEdit.DrawPage(i + 1, FScaleRichViewEdit.PageWidth100Pix, FScaleRichViewEdit.PageHeight100Pix, 0, 0, PDFDocument.Canvas, False, False, False, False, False);
End;
PDFDocument.EndDoc;
Finally
PDFDocument.Free;
End;
end;