Ich habe folgendes Problem mit der Komponente QRCompositeReport.
Ich habe 2 Reporte mit Kopf- und Fußzeile, wenn ich diese Reporte mit der Komponente QRCompositeReport zusammenfüge erscheinen bei jeden Report auf der ersten und letzten Seite keine Kopf- bzw. Fußzeile.
Auf der Homepage von den Hersteller des Reports QuSoft (
www.qusoft.com )habe ich folgendes zu diesen Thema gefunden, ich habe aber auf meinen Rechner nicht die Datei Quickrpt.pas. Könnt Ihr mir eine Möglichkeit sagen was mann da machen kann.
| Zitat: |
Composite reports - column headers not printing.
To make column headers print correctly in composite
reports a small code change is required to file 'Quickrpt.pas'.
This fix is compatible as it does not affect the interface.
1. Declare a new module-wide global -
var // AFTER the 'implementation'
GlobalCompositeFlag : boolean; // Add this
cqrRulerMinorStyle : TPenStyle;
cqrRulerMajorStyle : TPenStyle;
2. In procedure TQRController.Execute, change a line -
// next line failed in composite mode when PageNumber > 1
// amend to this
if ((ParentReport.PageNumber <= 1) or GlobalCompositeFlag ) and { Print first column header }
(SelfCheck is TCustomQuickRep) then
begin
if (ParentReport.Bands.ColumnHeaderBand <> nil) and
(ParentReport.Bands.ColumnHeaderBand.Enabled) then
begin
ParentReport.PrintBand(ParentReport.Bands.ColumnHeaderBand);
ParentReport.NoForceNewPage := true;
end;
end;
3. In procedure TCustomQuickRep.CreateReport(CompositeReport : boolean)
add a line as shown -
..
..
Controller.Prepare;
PrepareComponents;
GlobalCompositeFlag := CompositeReport; // Add this line
Execute;
if not CompositeReport then
begin
..
..
4. Rebuild.
|
