在QReport中，我用QRshape画了一些纵向线，预览时第一页是正常的，但第二页开始那些线就会短了一截，请问为何？(100分)

在QReport中，我用QRshape画了一些纵向线，预览时第一页是正常的，但第二页开始那些线就会短了一截，请问为何？

把form发给我看看

好象没什么好看的
unit yulanyujiesuan_Form;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Qrctrls, QuickRpt, ExtCtrls;
type
TForm_yulanyujiesuan = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel15: TQRLabel;
QRLabel3: TQRLabel;
QRSysData2: TQRSysData;
QRBand2: TQRBand;
QRDBText1: TQRDBText;
QRDBText3: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
QRDBText16: TQRDBText;
QRDBText4: TQRDBText;
QRDBText2: TQRDBText;
QRDBText18: TQRDBText;
QRBand3: TQRBand;
QRLabel16: TQRLabel;
QRLabel17: TQRLabel;
QRLabel18: TQRLabel;
QRLabel20: TQRLabel;
QRLabel21: TQRLabel;
QRLabel22: TQRLabel;
QRLabel23: TQRLabel;
QRLabel24: TQRLabel;
QRLabel25: TQRLabel;
QRLabel26: TQRLabel;
QRLabel27: TQRLabel;
QRLabel28: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel2: TQRLabel;
QRShape3: TQRShape;
PageFooterBand1: TQRBand;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRLabel29: TQRLabel;
QRShape5: TQRShape;
QRShape7: TQRShape;
QRShape6: TQRShape;
QRShape10: TQRShape;
QRShape12: TQRShape;
QRShape2: TQRShape;
QRShape13: TQRShape;
QRShape15: TQRShape;
QRShape1: TQRShape;
QRShape14: TQRShape;
QRShape11: TQRShape;
QRShape4: TQRShape;
QRShape16: TQRShape;
QRShape17: TQRShape;
QRLabel8: TQRLabel;
QRSysData3: TQRSysData;
QRLabel7: TQRLabel;
QRLabel19: TQRLabel;
QRLabel30: TQRLabel;
QRLabel31: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form_yulanyujiesuan: TForm_yulanyujiesuan;
implementation
uses DataModule;
{$R *.DFM}
end.

我是说form文件，不是unit!

object Form_yulanyujiesuan: TForm_yulanyujiesuan
Left = 110
Top = 13
Width = 808
Height = 580
Caption = '工程预、结算统计表预览'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Scaled = False
PixelsPerInch = 96
TextHeight = 13
object QuickRep1: TQuickRep
Tag = 1
Left = 5
Top = 18
Width = 1587
Height = 1058
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = True
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = DataModule1.Udata_Query
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
#39#39)
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = Custom
Page.Values = (
100
2800
100
4200
100
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 QRBand1: TQRBand
Left = 38
Top = 38
Width = 1511
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ForceNewColumn = False
ForceNewPage = False
ParentFont = False
Size.Values = (
82.0208333333333
3997.85416666667)
BandType = rbTitle
object QRLabel1: TQRLabel
Left = 608
Top = 0
Width = 182
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
66.1458333333333
1608.66666666667
0
481.541666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '工程预、结算统计表'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel15: TQRLabel
Left = 1360
Top = 14
Width = 60
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
52.9166666666667
3598.33333333333
37.0416666666667
158.75)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '单位 ：元'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel3: TQRLabel
Left = 80
Top = 14
Width = 66
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
211.666666666667
37.0416666666667
174.625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '打印日期：'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRSysData2: TQRSysData
Left = 152
Top = 14
Width = 36
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
402.166666666667
37.0416666666667
95.25)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDate
Transparent = False
FontSize = 10
end
end
object QRBand2: TQRBand
Left = 38
Top = 123
Width = 1511
Height = 22
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
58.2083333333333
3997.85416666667)
BandType = rbDetail
object QRDBText1: TQRDBText
Left = 8
Top = 4
Width = 27
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
21.1666666666667
10.5833333333333
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '序号'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText3: TQRDBText
Left = 421
Top = 4
Width = 114
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
1113.89583333333
10.5833333333333
301.625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '合同价款'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText5: TQRDBText
Left = 216
Top = 272
Width = 64
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
571.5
719.666666666667
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataField = 'QRDBText5'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 216
Top = 272
Width = 64
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
571.5
719.666666666667
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataField = 'QRDBText6'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 216
Top = 272
Width = 64
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
571.5
719.666666666667
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataField = 'QRDBText7'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 540
Top = 4
Width = 160
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
1428.75
10.5833333333333
423.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '合同编号'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText10: TQRDBText
Left = 704
Top = 4
Width = 94
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
1862.66666666667
10.5833333333333
248.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '初结价款'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText11: TQRDBText
Left = 800
Top = 4
Width = 94
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
2116.66666666667
10.5833333333333
248.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '结算价款'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText12: TQRDBText
Left = 1294
Top = 4
Width = 76
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
3423.70833333333
10.5833333333333
201.083333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '结算日期'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText13: TQRDBText
Left = 997
Top = 4
Width = 98
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
2637.89583333333
10.5833333333333
259.291666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '上预收工款'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText14: TQRDBText
Left = 1098
Top = 4
Width = 94
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
2905.125
10.5833333333333
248.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '提供材料'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText15: TQRDBText
Left = 1195
Top = 4
Width = 94
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
3161.77083333333
10.5833333333333
248.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '结算尾款'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText16: TQRDBText
Left = 898
Top = 4
Width = 94
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
2375.95833333333
10.5833333333333
248.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '本预收工款'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText4: TQRDBText
Left = 1376
Top = 4
Width = 134
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
39.6875
3640.66666666667
10.5833333333333
354.541666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '备注'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText2: TQRDBText
Left = 48
Top = 4
Width = 273
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
127
10.5833333333333
722.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '工程名称'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRDBText18: TQRDBText
Left = 328
Top = 4
Width = 89
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
867.833333333333
10.5833333333333
235.479166666667)
Alignment = taCenter
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = DataModule1.Udata_Query
DataField = '工程类别'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
end
object QRBand3: TQRBand
Left = 38
Top = 69
Width = 1511
Height = 54
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ForceNewColumn = False
ForceNewPage = False
ParentFont = False
Size.Values = (
142.875
3997.85416666667)
BandType = rbColumnHeader
object QRLabel16: TQRLabel
Left = 8
Top = 14
Width = 27
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
21.1666666666667
37.0416666666667
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '序号'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel17: TQRLabel
Left = 144
Top = 16
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
381
42.3333333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '工程名称'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = False
FontSize = 10
end
object QRLabel18: TQRLabel
Left = 448
Top = 30
Width = 53
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
52.9166666666667
1185.33333333333
79.375
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '合同价款'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel20: TQRLabel
Left = 608
Top = 30
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
1608.66666666667
79.375
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '合同编号'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel21: TQRLabel
Left = 728
Top = 30
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
1926.16666666667
79.375
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '初结价款'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel22: TQRLabel
Left = 1118
Top = 9
Width = 60
Height = 41
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
108.479166666667
2958.04166666667
23.8125
158.75)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Caption = '建设单位提供材料(本年度)'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel23: TQRLabel
Left = 1032
Top = 32
Width = 40
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
39.6875
2730.5
84.6666666666667
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '上年度'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel24: TQRLabel
Left = 824
Top = 30
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
2180.16666666667
79.375
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '结算价款'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel25: TQRLabel
Left = 928
Top = 30
Width = 40
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
2455.33333333333
79.375
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '本年度'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel26: TQRLabel
Left = 1224
Top = 22
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
3238.5
58.2083333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '结算尾款'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel27: TQRLabel
Left = 1304
Top = 22
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
3450.16666666667
58.2083333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '结算日期'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel28: TQRLabel
Left = 528
Top = 6
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
1397
15.875
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '合同情况'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel4: TQRLabel
Left = 1424
Top = 22
Width = 27
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
3767.66666666667
58.2083333333333
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '备注'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel5: TQRLabel
Left = 960
Top = 6
Width = 66
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
2540
15.875
174.625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '预收工程款'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 768
Top = 6
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
2032
15.875
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '结算情况'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel2: TQRLabel
Left = 344
Top = 16
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
910.166666666667
42.3333333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '工程类别'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = False
FontSize = 10
end
end
object QRShape3: TQRShape
Left = 456
Top = 94
Width = 678
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
1206.5
248.708333333333
1793.875)
Shape = qrsHorLine
end
object PageFooterBand1: TQRBand
Left = 38
Top = 145
Width = 1511
Height = 22
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
58.2083333333333
3997.85416666667)
BandType = rbSummary
object QRLabel9: TQRLabel
Left = 421
Top = 4
Width = 114
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
1113.89583333333
10.5833333333333
301.625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Caption = 'QRLabel9'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 704
Top = 4
Width = 94
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
1862.66666666667
10.5833333333333
248.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Caption = 'QRLabel10'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 800
Top = 4
Width = 94
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
2116.66666666667
10.5833333333333
248.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Caption = 'QRLabel11'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel12: TQRLabel
Left = 898
Top = 4
Width = 94
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
2375.95833333333
10.5833333333333
248.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Caption = 'QRLabel12'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel13: TQRLabel
Left = 997
Top = 4
Width = 98
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
2637.89583333333
10.5833333333333
259.291666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Caption = 'QRLabel13'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel14: TQRLabel
Left = 1195
Top = 4
Width = 94
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
3161.77083333333
10.5833333333333
248.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Caption = 'QRLabel14'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel29: TQRLabel
Left = 4
Top = 2
Width = 27
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
10.5833333333333
5.29166666666667
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '合计'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel31: TQRLabel
Left = 1098
Top = 4
Width = 94
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
2905.125
10.5833333333333
248.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Caption = 'QRLabel31'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object QRShape5: TQRShape
Left = 80
Top = 70
Width = 1
Height = 949
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Frame.Width = 0
Size.Values = (
2510.89583333333
211.666666666667
185.208333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape7: TQRShape
Left = 364
Top = 70
Width = 1
Height = 949
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Frame.Width = 0
Size.Values = (
2510.89583333333
963.083333333333
185.208333333333
2.64583333333333)
Pen.Width = 0
Shape = qrsVertLine
end
object QRShape6: TQRShape
Left = 456
Top = 70
Width = 1
Height = 949
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Frame.Width = 0
Size.Values = (
2510.89583333333
1206.5
185.208333333333
2.64583333333333)
Pen.Width = 0
Shape = qrsVertLine
end
object QRShape10: TQRShape
Left = 576
Top = 94
Width = 1
Height = 925
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2447.39583333333
1524
248.708333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape12: TQRShape
Left = 740
Top = 70
Width = 1
Height = 949
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2510.89583333333
1957.91666666667
185.208333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape2: TQRShape
Left = 836
Top = 94
Width = 1
Height = 925
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2447.39583333333
2211.91666666667
248.708333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape13: TQRShape
Left = 934
Top = 70
Width = 1
Height = 949
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2510.89583333333
2471.20833333333
185.208333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape15: TQRShape
Left = 1032
Top = 94
Width = 1
Height = 925
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2447.39583333333
2730.5
248.708333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape1: TQRShape
Left = 1134
Top = 70
Width = 1
Height = 949
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2510.89583333333
3000.375
185.208333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape14: TQRShape
Left = 1232
Top = 70
Width = 1
Height = 949
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2510.89583333333
3259.66666666667
185.208333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape11: TQRShape
Left = 1328
Top = 70
Width = 1
Height = 949
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2510.89583333333
3513.66666666667
185.208333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape4: TQRShape
Left = 1410
Top = 70
Width = 1
Height = 949
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2510.89583333333
3730.625
185.208333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape16: TQRShape
Left = 37
Top = 120
Width = 1
Height = 899
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Frame.Width = 0
Size.Values = (
2378.60416666667
97.8958333333333
317.5
2.64583333333333)
Shape = qrsVertLine
end
object QRShape17: TQRShape
Left = 1548
Top = 70
Width = 1
Height = 949
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
2510.89583333333
4095.75
185.208333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRLabel8: TQRLabel
Left = 749
Top = 1030
Width = 14
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
1981.72916666667
2725.20833333333
37.0416666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '第'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRSysData3: TQRSysData
Left = 789
Top = 1030
Width = 8
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
44.9791666666667
2087.5625
2725.20833333333
21.1666666666667)
Alignment = taCenter
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Transparent = False
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 824
Top = 1030
Width = 14
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
2180.16666666667
2725.20833333333
37.0416666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '页'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel19: TQRLabel
Left = 1214
Top = 1030
Width = 157
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
3212.04166666667
2725.20833333333
415.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '符合查询条件的工程总数：'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel30: TQRLabel
Left = 1374
Top = 1030
Width = 64
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
37.0416666666667
3635.375
2725.20833333333
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel30'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
end

我的天，这么多。

从你的dfm文件看，有几个QRDBText的设置为：
AutoSize = False
AutoStretch = True
所以估计问题不是出在QRShape缩短了，而是Band延伸了，呵呵
如果用不着换行，就将AutoStretch关掉吧。
btw:把你另外一个相同的帖子删掉吧，Thanx！

预览不正确，但打印出来的应该没有问题吧
qrreport这个烂东西经常打印和预览不一样的

我测试过了，这并不关AutoSize和AutoStretch的事，因为不管预览出来的数据有没换行，第一页
都是正常的，而第二页以后都不正常，从预览的效果来看band也没延伸。打印效果也一样。另：
我在为620364中关于QR3.5安装的问题，也希望liuly回答一下，我想看看装了QR3.5以后效果如何。

多人接受答案了。