参考代码
Dim t As Table = CurrentTableDim tp = t.PrintInfoDim pi = tp.Gettype.getProperty("Title")msgbox(pi.GetValue(tp, Nothing))