Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1834
  • 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?
0
hboys
Asked:
hboys
  • 2
  • 2
1 Solution
 
ZifNabCommented:
What if you change the form settings of that QRPreview form?
0
 
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.)
0
 
ZifNabCommented:
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;
0
 
buliangCommented:
1.put a Tqrpreview component on form1

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

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

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

0
 
hboysAuthor Commented:
thanks for the help with this problem.

Harry Boys.
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

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