Object: 3DTableGridLine

Dim oMy3DTable, oMyPosition, oMyX, oMyY, oMyZ, oMySettings
Call Data.Root.Clear()
Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","")
Call Report.NewLayout()
Set oMy3DTable = Report.ActiveSheet.Objects.Add(eReportObject3DTable,"My2DTable")
Set oMyPosition = oMy3DTable.Position.ByBorder
oMyPosition.Top = 20
oMyPosition.Bottom = 20
oMyPosition.Left = 20
oMyPosition.Right = 20
Set oMyX = oMy3DTable.X
Set oMyY = oMy3DTable.Y
Set oMyZ = oMy3DTable.Z
Set oMySettings = oMy3DTable.Settings
oMySettings.UseAutoFontSize = False
oMySettings.GridHorizontal.Visible = False
oMySettings.GridVertical.Visible = False
oMyX.Channel.Reference = "[2]/[1]"
oMyX.Font.Size = 2
oMyX.Format = "d.dd"
oMyY.Channel.Reference = "[2]/[2]"
oMyY.Font.Size = 2
oMyY.Format = "d.dd"
oMyZ.Channel.Reference = "[2]/[3]"
oMyZ.Font.Size = 2
oMyZ.Format = "d.dd"
Call Report.Refresh()