【搞定】[请求]一个关于表格的问题**

jiahaiminghr

楼主，关于居中你可以尝试设置表格文档的第一列的列宽和第一行的行高方式来实现
lsheet.ColWidths[0] := 560;   

请参考附件的例子：

买猪蹄

居中我目前实现的方法是：
暂时不考虑垂直居中和表格宽度大于DocView宽度的情况
procedure TMainForm.BizFormResize(Sender: TObject);
var
    i : integer ;
   TabColCount : integer ;
   TabColWidth : integer ;
begin
     TabColCount := Business.Model.TSheetDoc(DocViewZBJXX_BGWD1.Doc).Sheet.ColCount ;
     TabColWidth := 0 ;
for i:= 1 to TabColCount-1 do
    begin
    TabColWidth := TabColWidth + Business.Model.TSheetDoc(DocViewZBJXX_BGWD1.Doc).Sheet.ColWidths ;
    end;
    Business.Model.TSheetDoc(DocViewZBJXX_BGWD1.Doc).Sheet.RowHeights[0] := 50;
    Business.Model.TSheetDoc(DocViewZBJXX_BGWD1.Doc).Sheet.ColWidths[0] := integer(( Panel.Width - TabColWidth)/2);  
    DocViewZBJXX_BGWD1.Doc.Close;
    DocViewZBJXX_BGWD1.Doc.Open(TDocMode.dmEdit, DocViewZBJXX_BGWD1);
end;

这段代码实现表格居中，但是现在的困难是Business.Model.TSheetDoc(DocViewZBJXX_BGWD1.Doc).Sheet.ColCount 很难把握，不采取上述的方法无法返回正确的列数值

jiahaiminghr

楼主，其实在表格设计器里这些多余的行、列都是设计器自己加上去的，是实际存在的行、列
所以你看到23行是文档真实的行数，只是你只用了8行而已。

买猪蹄

这样看来想要得到正确的行列数只能按照第3张图的做法了，是这样的吗？
有没有其他的办法让设计不自动添加呀？
感觉我的这种居中方法比较笨，有没有其它更好的办法设置表格居中，我想表格居中应该是很普遍的需求呀

jiahaiminghr

表格文档编辑模式下是不能自动居中的。

在打印预览模式下，可以设置打印属性来实现。

买猪蹄

嗯  明白了，谢谢了

jiahaiminghr

不客气，结贴了！