J
jesseyzy
Unregistered / Unconfirmed
GUEST, unregistred user!
在打印的时候，我给数据强制分页，但是column head 却不显示了，怎么办呢？
procedure TForm2.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
i := i + 1;
PrintCount := PrintCount+1;
end;
procedure TForm2.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if i < 6 then
begin
PrintBand := True;
end else
begin
form2.QuickRep1.NewPage ;
i:= 0;
end;
end;
procedure TForm2.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
i := i + 1;
PrintCount := PrintCount+1;
end;
procedure TForm2.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if i < 6 then
begin
PrintBand := True;
end else
begin
form2.QuickRep1.NewPage ;
i:= 0;
end;
end;