X
xinyue0615
Unregistered / Unconfirmed
GUEST, unregistred user!
用formula one6.0做报表,已经到了最后时刻,几乎客户所有的要求都满足了,但是现在
出现了一个问题,换页的时候当页最后一行下面的线总是没有。
我是通过设置 f1book1.showgridlines := false
隐藏掉边线。然后在程序中填数的时候,
设置 cfCars := F1Book1.GetCellFormat;
with cfCars do
begin
AlignHorizontal := F1HAlignLeft
//字体水平居左
AlignVertical := F1VAlignCenter
//字体竖直居中
WordWrap := True
//自动换行
FontSize := GFONTSIZE
//一般字体
BorderStyle[F1LeftBorder] := F1BorderThin
//加深边框
BorderStyle[F1RightBorder] := F1BorderThin;
BorderStyle[F1TopBorder] := F1BorderThin;
BorderStyle[F1BottomBorder] := F1BorderThin;
end;
然后插入值。
结果打印出来,每页的最后一行总是没有下边线,就是这个样子:
-----|------|-------|-------|--------|
| | | | |
有谁遇到过么?
怎么解决呀?
我已经实在是不行了!
出现了一个问题,换页的时候当页最后一行下面的线总是没有。
我是通过设置 f1book1.showgridlines := false
隐藏掉边线。然后在程序中填数的时候,
设置 cfCars := F1Book1.GetCellFormat;
with cfCars do
begin
AlignHorizontal := F1HAlignLeft
//字体水平居左
AlignVertical := F1VAlignCenter
//字体竖直居中
WordWrap := True
//自动换行
FontSize := GFONTSIZE
//一般字体
BorderStyle[F1LeftBorder] := F1BorderThin
//加深边框
BorderStyle[F1RightBorder] := F1BorderThin;
BorderStyle[F1TopBorder] := F1BorderThin;
BorderStyle[F1BottomBorder] := F1BorderThin;
end;
然后插入值。
结果打印出来,每页的最后一行总是没有下边线,就是这个样子:
-----|------|-------|-------|--------|
| | | | |
有谁遇到过么?
怎么解决呀?
我已经实在是不行了!