也许是我把我的问题的名字取的太老土了，那么久都没人回！！

Question

请查看组件上是否有ForceNewPage这个属性！！

Answer 1

QRCompositeReport控件的属性翻遍了，也没找到这个，，，

Answer 2

刚才有位大哥让我在QuickRep1EndPage(TCustomQuickRep *Sender)里写代码可是，我在里面加了ShowMessage做测试，居然没有执行到那里为什么呢？

Answer 3

在合并报表的事件里写
titleband2.newpage

Answer 4

而且titleband没有newpage方法，
我在里面加的是Form2.QuickRep1.NewPage();
可惜不行：（

Answer 5

老大，看下边了；
用这个控件：TQRCompositeReport
写这个事件：
procedure TForm18.QRCompositeReport1AddReports(Sender: TObject);
begin
with QRCompositeReport1.Reports do
begin
  Clear;
  add(Form1.quickrep1);
  add(form2.quickrep1);
  add(form3.quickrep1);
 end;
end;

Answer 6

我在上面没写明白吗？
我现在QRCompositeReport1AddReports事件里就是这么写的，，，

Answer 7

不好意思，正如xgto所言，你可以重新作一个，如：
object Form2: TForm2
  Left = -75
  Top = 27
  BorderIcons = [biSystemMenu]
  BorderStyle = bsNone
  Caption = '预览接收单'
  ClientHeight = 552
  ClientWidth = 804
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object QRPreview1: TQRPreview
    Left = 3
    Top = 47
    Width = 799
    Height = 490
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    BiDiMode = bdRightToLeftNoAlign
    DragCursor = crArrow
    Color = clInactiveBorder
    ParentBiDiMode = False
    ParentColor = False
    TabOrder = 0
    PageNumber = 1
    Zoom = 100
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 804
    Height = 45
    ButtonHeight = 42
    Caption = 'ToolBar1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Bevel4: TBevel
      Left = 0
      Top = 2
      Width = 14
      Height = 42
      Shape = bsLeftLine
      Style = bsRaised
    end
    object SpeedButton5: TSpeedButton
      Left = 14
      Top = 2
      Width = 56
      Height = 42
      Caption = '全屏显示'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {图}
      Layout = blGlyphTop
      ParentFont = False
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 70
      Top = 2
      Width = 56
      Height = 42
      Caption = '原始大小'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {图}
      Layout = blGlyphTop
      ParentFont = False
      OnClick = SpeedButton6Click
    end
    object SpeedButton1: TSpeedButton
      Left = 126
      Top = 2
      Width = 56
      Height = 42
      Caption = '放大'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {图}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 182
      Top = 2
      Width = 56
      Height = 42
      Caption = '缩小'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {图}
      Layout = blGlyphTop
      ParentFont = False
      OnClick = SpeedButton8Click
    end
    object SpeedButton10: TSpeedButton
      Left = 299
      Top = 2
      Width = 57
      Height = 42
      Caption = '上一页'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {图}
      Layout = blGlyphTop
      ParentFont = False
      OnClick = SpeedButton10Click
    end
    object SpeedButton9: TSpeedButton
      Left = 356
      Top = 2
      Width = 57
      Height = 42
      Caption = '下一页'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {图}
      Layout = blGlyphTop
      ParentFont = False
      OnClick = SpeedButton9Click
    end
    object SpeedButton7: TSpeedButton
      Left = 413
      Top = 2
      Width = 59
      Height = 42
      Caption = '最后页'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {图}
      Layout = blGlyphTop
      ParentFont = False
      OnClick = SpeedButton7Click
    end
    object Bevel1: TBevel
      Left = 472
      Top = 2
      Width = 50
      Height = 42
    end
    object SpeedButton11: TSpeedButton
      Left = 522
      Top = 2
      Width = 55
      Height = 42
      Caption = '打印设置'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {图}
      Layout = blGlyphTop
      ParentFont = False
      OnClick = SpeedButton11Click
    end
    object SpeedButton3: TSpeedButton
      Left = 577
      Top = 2
      Width = 57
      Height = 42
      Caption = '打印'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {图}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object Bevel3: TBevel
      Left = 634
      Top = 2
      Width = 46
      Height = 42
      Shape = bsLeftLine
      Style = bsRaised
    end
    object SpeedButton4: TSpeedButton
      Left = 680
      Top = 2
      Width = 57
      Height = 42
      Caption = '返回'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      Glyph.Data = {图}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton4Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 533
    Width = 804
    Height = 19
    Panels = <
      item
        Text = '       打印预览 '
        Width = 100
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 594
    Top = 65
  end
end

Answer 8

先结了吧，回头再说请ihihonline(小小-&gt;充电中……)去一趟
http://www.csdn.net/expert/topic/705/705273.xml?temp=.7883722一起算分