Привет всем !!!
CBuilder5

При просмотре простого текстового файла PageHeader виден только на первой странице, PageFooter виден только если текст умещается на одной странице.
На всех остальных страницах ни PageHeader-а ни PageFooter-а не видно!!!
Делал все по учебнику. В чем закос? Не могу докапаться. Помогите, пожалуйста, это уже крик отчаяния!

С уважением, Павел!

P.S. Файлы ниже


Notepad.h
//---------------------------------------------------------------------------

#ifndef NotepadH
#define NotepadH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <QuickRpt.hpp>
#include <Qrctrls.hpp>
#include <QRExport.hpp>
#include <QRPrntr.hpp>
//---------------------------------------------------------------------------
class TNotepadForm : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep;
TQRStringsBand *QRStringsBand;
TQRExpr *QRExpr;
TQRBand *HeaderQRBand;
TQRBand *FooterQRBand;
TQRExpr *NameExpr;
TQRExpr *PageExpr;
TQRLabel *NameLbl;
TQRLabel *PageLbl;
TQRTextFilter *QRTextFilter;
private: // User declarations
public: // User declarations
__fastcall TNotepadForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TNotepadForm *NotepadForm;
//---------------------------------------------------------------------------

void __fastcall ShowNotepad(AnsiString fName,bool isLandscape);

#endif


Notepad.cpp
#include <vcl.h>
#pragma hdrstop

#include "Notepad.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TNotepadForm *NotepadForm;
//---------------------------------------------------------------------------
__fastcall TNotepadForm::TNotepadForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall ShowNotepad(AnsiString fName,bool isLandscape)
{
Application->CreateForm(__classid(TNotepadForm), &NotepadForm);
NotepadForm->QRStringsBand->Items->LoadFromFile(fName);
if(isLandscape)NotepadForm->QuickRep->Page->Orientation=poLandscape;
NotepadForm->QRExpr->Width=NotepadForm->QRStringsBand->Width-1;
NotepadForm->QuickRep->ReportTitle=ExtractFileName(fName);
NotepadForm->NameLbl->Left=(NotepadForm->QuickRep->Width >> 1)-
((NotepadForm->NameLbl->Width+NotepadForm->NameExpr->Width) >> 1);
NotepadForm->NameExpr->Left=NotepadForm->NameLbl->Left+NotepadForm->NameLbl->Width+2;
NotepadForm->PageLbl->Left=(NotepadForm->QuickRep->Width >> 1)-
((NotepadForm->PageLbl->Width+NotepadForm->PageExpr->Width) >> 1);
NotepadForm->PageExpr->Left=NotepadForm->PageLbl->Left+NotepadForm->PageLbl->Width+2;

NotepadForm->QuickRep->PreviewModal();
delete NotepadForm;
}
//---------------------------------------------------------------------------

Notepad.dfm

object NotepadForm: TNotepadForm
Left = 163
Top = 245
Width = 860
Height = 153
BorderIcons = [biSystemMenu]
Caption = 'Отчет'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Scaled = False
Visible = True
WindowState = wsMinimized
PixelsPerInch = 96
TextHeight = 13
object QuickRep: TQuickRep
Left = 0
Top = 0
Width = 794
Height = 1123
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE'
'QRSTRINGSBAND')
Functions.DATA = (
'0'
'0'
#39#39
#39#39)
Options = [FirstPageHeader, LastPageFooter, Compression]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = A4
Page.Values = (
100
2970
100
2100
300
100
0)
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = Auto
PrintIfEmpty = True
SnapToGrid = True
Units = MM
Zoom = 100
object HeaderQRBand: TQRBand
Left = 113
Top = 38
Width = 643
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
LinkBand = FooterQRBand
Size.Values = (
50.2708333333333
1701.27083333333)
BandType = rbPageHeader
object NameExpr: TQRExpr
Left = 352
Top = 0
Width = 78
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
931.333333333333
0
206.375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'REPORTTITLE'
FontSize = 8
end
object NameLbl: TQRLabel
Left = 272
Top = 0
Width = 78
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
719.666666666667
0
206.375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Èìÿ ôàéëà -'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
end
object QRStringsBand: TQRStringsBand
Left = 113
Top = 57
Width = 643
Height = 12
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
31.75
1701.27083333333)
Master = QuickRep
PrintBefore = False
object QRExpr: TQRExpr
Left = 0
Top = 0
Width = 718
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
0
0
1899.70833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'QRSTRINGSBAND'
FontSize = 8
end
end
object FooterQRBand: TQRBand
Left = 113
Top = 69
Width = 643
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = True
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
50.2708333333333
1701.27083333333)
BandType = rbPageFooter
object PageExpr: TQRExpr
Left = 344
Top = 0
Width = 71
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
910.166666666667
0
187.854166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'PAGENUMBER'
FontSize = 8
end
object PageLbl: TQRLabel
Left = 280
Top = 0
Width = 57
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
740.833333333333
0
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Ñòðàíèöà'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
end
end
object QRTextFilter: TQRTextFilter
Left = 40
end
end