How To: Manually print rendered pages

sunsun Poland
edited September 2007 in FastReport 4.0
Hi,
in previous version of fastreport (2.4x) I done printing procedure for rotated labels:
    i := FR.EMFPages.Count-1;
    w := FR.EMFPages[i].PrnInfo.PPgw;
    h := FR.EMFPages[i].PrnInfo.PPgh;

    emf := TBitmap.Create;
    emf.PixelFormat := pf1bit;
    emf.Width := w;
    emf.Height := h;

    FR.EMFPages.Pages[i].Visible := True;
    FR.EMFPages.Draw(i, emf.Canvas, Rect(0, 0, w, h));

    if (GlobalParams['ROTATE_LABEL'].Value = 1) then Rotate1bit90(emf,1);

     Printer.BeginDoc;
     Printer.Canvas.Draw(0,0,emf);
     Printer.EndDoc;

how to do it in fr 4.x?
FR.Engine.PreviewPages.DrawPage() ? how get proper DPI for bitmap?

Ok, it works now > ScaleX and ScaleY must be greater than 0.

Leave a Comment