主题：报表增加网格线

Dim tbl As Table = Tables("订单")
If tbl.Current IsNot Nothing Then
Dim str As String = SpecialFolder.MyDocuments & "\订单.xls"
tbl.SaveExcel(str,"订单")
Dim Proc As New Process '定义一个新的Process
Proc.File = str
Proc.Start()
End If

用上述代码导出报表。我想在导出的报表为非空格行增加网格线，调试N次未成功。

求助，如何在EXCEL的非空格行增加网格线