循环打印问题(100分)

可否有那为高手遇到过打印时一式打印4份,要没一份变的只是一条label啊
例如一张发料单里,格式是一模一样的,只是要打印四份,一份给仓库,一份给
财务,一份给采购,一份是签收,但在每份上都要有相应的说明:一联:仓库,二联:财务
如此类推.那位高手能指点一下这语句怎么学,我用循环是怎么实现,

哈哈哈，我刚好也在做这样的报表，只是连打时不会搞！！
处理方式如下：
//bCARTONNO起号
//eCARTONNO止号
//Count份数
procedure Tmainfrm.CreateData(bCARTONNO,eCARTONNO,Count:integer);
var
i,j:integer;
begin
with QRLabelForm.ClientDataSet1do
begin
if Active then
Close;
createdataset;
first;
while not eofdo
delete;
end;

for i:=bCARTONNO to eCARTONNOdo
begin
for j:=0 to Count-1do
begin
with QRLabelForm.ClientDataSet1do
begin
Append;
FieldByName('COMPANY').AsString:=ComboBox1.Text;
FieldByName('P/N').AsString:=Edit2.Text;
FieldByName('P/O').AsString:=Edit3.Text;
FieldByName('QTY').AsInteger:=StrtoInt(Edit4.Text);
FieldByName('LOCATION').AsString:=ComboBox2.Text;
FieldByName('MADEIN').AsString:=Edit6.Text;
FieldByName('CARTON').AsString:=FormatFloat('000',i);
end;
end;
end;
end;
接下去就不用多说了吧？？？

对，
设置一个份数对应的QRLABEL，检测打印份数，并动态修改这个值

四层压感打印纸

多人接受答案了。