如何实现这样的连打?delphi生成程序

需要打印一个盘点表,格式如下


仓别/车间:                          储位/制令单:

物料编码:                          盘点单号:2007120700001

物料描述:                         厂商:

实盘数量:                  监盘数:                       

其中物料编码和物料描述以及储位是有数据的,盘点单号由程序自动生产这样的格式2007120700001.物料有6000多种,分别要打印6000份这样的表单,如何实现连打?