一张销售商品的单据，客户希望根据产地的不同分别打印在不同页上

Question

我想用王寒松大虾作的Creport 实现下面功能如：一张销售商品的单据，客户希望根据产地的不同分别打印在不同页上
 
商品名称         数量       产地       单价       金额
电视              1         绵阳       200        200
冰箱              2        广州        300        600
微波炉            1         北京       200        200 
洗衣机            3         广州       500        1500
 
上面一张单据就要分成三张单据打印
 
商品名称         数量       产地       单价       金额
电视              1         绵阳       200        200 
商品名称         数量       产地       单价       金额
冰箱              2        广州        300        600
洗衣机            3         广州       500        1500
 
 
商品名称         数量       产地       单价       金额
微波炉            1         北京       200        200 
 
 
 
请帮忙实现一下，非常感谢！另外，对于图片打印不知道能实现？我 非常希望有该功能，

Answer 1

摘自 ：超级猛料上的强制分页
你写语句时需要order by 一下了！
  
先声明一个变量varTempName : string;调用报表预览procedure TForm1.Button1Click(Sender: TObject);beginquery1.Close;query1.Open;TempName := query1.fieldbyname('name').AsString;QuickRep1.Preview;end;调用DetailBand的BeforePrint方法procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);beginif Query1.FieldByName('Name').AsString <>TempName thenbeginquickrep1.NewColumn;tempname := query1.fieldbyname('name').Asstring;end;end;