• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1881
  • Last Modified:

Viewing QuickReports on a form

How can I view a quickreport on a form in a QRPreview component instead of the default full screen quick report preview?
  • 2
  • 2
1 Solution
What if you change the form settings of that QRPreview form?
hboysAuthor Commented:
once the report has been added to a form how can i navigate through the pages (i.e. how can i add buttons to change page numbers, print etc.)
Hi hboys,  I already answered such a question, here it is :

                   The Page is defined as the pagenumber. So:

                   First page : QRPreview1.PageNumber := 1;
                   Next page : QRPreview1.PageNumber := QRPreview1.PageNumber + 1;
                   Previous : QRPreview1.PageNumber := QRPreview1.PageNumber -1;
                   Last : QRPreview1.PageNumber := QRPreview1.PageCount;

                   Use Zoom, ZomeToFit, ZoomToWidth to use zoom capabilities.

                   Go to PrintSetup for printersettins : QRPrinter1.PrintSetup.

                   Have fun,
                   c.u. ZifNab;
1.put a Tqrpreview component on form1

2.add the following code to your quickrep onpreview event.
procedure Tqrform.qr1Preview(Sender: TObject);
  form1.QRPreview1.QRPrinter := TQRPrinter(Sender);

3.zoom in  
QRPreview1.Zoom := QRPreview1.Zoom + 20;

4.zoom out  
QRPreview1.Zoom := QRPreview1.Zoom - 20;

hboysAuthor Commented:
thanks for the help with this problem.

Harry Boys.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now