Dim t As Table = e.Form.Controls("Table1").Table Dim doc As PrintDoc = e.Form.GernatePrintDoc() For Each c As object In doc.Body.children If typeof c Is prt.RenderTable Then Dim i = c.rows.count+1 c.cells(i, 0).text = "123" c.cells(i, 1).text = "abc" End If Next doc.Preview()