主题：[求助]Excel模板设置

老师，如何设置每页打印30行，每页都有表头。谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:狂犬病疫苗出入库记录.xls

谢谢！

红袍老师，删除行出现错误提示，还出现一把大红叉，请您看看什么问题。
此主题相关图片如下：qq图片20151130222156.png

好的

红袍老师，就是

DrawCell  的代码有问题，不知道问题出在哪，如果table 是空的，新增行再删除没问题，但是如果table不是空的，删除行就出现上面的错误。请您指点。

If e.Table.Current IsNot Nothing Then
    If e.Col.IsDate AndAlso e.Col.Name = "第二次按程序接种日期" AndAlso  e.Row.IsNull("第二次按程序接种日期") = False Then
        If e.Row("患者去向") <> "本门诊接种" AndAlso e.Row.IsNull("第二次实际接种日期") = True Then
            e.Style = "带回"
        End If
        If e.Row("患者去向") = "本门诊接种" AndAlso e.Row.IsNull("第二次实际接种日期") = True AndAlso  Date.today <= e.Row("第二次按程序接种日期") Then
            e.Style = "到期"
        End If
        If e.Row("患者去向") = "本门诊接种" AndAlso e.Row.IsNull("第二次实际接种日期") = True AndAlso  Date.today > e.Row("第二次按程序接种日期") Then
            e.Style = "顺延"
            e.Text = "过期未种" & e.Row("第二次按程序接种日期")
        End If
        If e.Row("患者去向") = "本门诊接种" AndAlso e.Row.IsNull("第二次实际接种日期") = False AndAlso  e.Row("第二次实际接种日期") > e.Row("第二次按程序接种日期") Then
            e.Text = "过期已种" & e.Row("第二次实际接种日期")
        End If
    End If  
End If

红袍老师，如果把这个删除了再删除行就没问题了，在菜单里面删除没问题，就是在窗口里面删除不行。我的这个项目有200多兆。能不能远程一下。谢谢！

好的

红袍老师，我把所有的代码都试了一遍，删除后试的，table为空时新增后删除没问题，但是table不为空时，新增后删除就出错。table中有几行就提示该行数索引不是为负数就是大于行数。不在窗口操作没问题，在窗口操作就出错。唉。。。。不知道怎么办。

搞好了，可能是那个窗口有的控件的代码有问题，修改了后没问题了。