将页面设置设为缩放100%，再根据行高，边距算出一页打多少行（打印一下就知道了）
Var
theRow,nextBreak : integer
begin
theRow = 8;
F1Book1.AddRowPageBreak(theRow);
....
nextBreak = F1Book1.NextRowPageBreak (therow);//第8行后的NextRowPageBreak
我建议你最好用New一个和原来一样的Sheet，把下页的数据放到另一页中，
规定一页放多少行数据，这样打印出来也好看。
我都是这样做
