主题：我加了强制分页的命令后,打印机就退纸了,不连接打印了,这个怎么解决呢?

        For Each sjzh As DataRow In DataTables("商品数据总汇").Select("id='" & r("id") &"'")

            rt1.Cells(i,0).Text= sjzh("序号")

            rt1.Cells(i,1).Text= sjzh("商品名称")

            rt1.Cells(i,2).Text = sjzh("一级分类")

            rt1.Cells(i,3).Text = sjzh("商品规格")

            rt1.Cells(i,4).Text = sjzh("数量")

            rt1.Cells(i,5).Text = sjzh("单价")

            rt1.Cells(i,6).Text = sjzh("总价")

            i=i+1

        Next

        doc.Body.Children.Add(rt1)    

        rx = new prt.RenderText

        rx.text = "客户明细"

        rx.Style.FontBold = True 

        rx.Style.FontSize = cint(Tables("参数设置").Current("客户明细标题字体大小"))

        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center  

        rx.Style.Spacing.Bottom = 2 

        doc.Body.Children.Add(rx) 

        Dim rt2 As New prt.RenderTable() 

        rt2.Cols.Count = 10 

        rt2.Cols(0).Width =cint(Tables("参数设置").Current("客户明细序号宽度"))

        rt2.Cols(1).Width =cint(Tables("参数设置").Current("客户明细订单编号宽度"))

        rt2.Cols(2).Width =cint(Tables("参数设置").Current("客户明细微信昵称宽度"))

        rt2.Cols(3).Width =cint(Tables("参数设置").Current("客户明细姓名手机号宽度"))

        rt2.Cols(4).Width =cint(Tables("参数设置").Current("客户明细商品名称宽度"))

        rt2.Cols(5).Width =cint(Tables("参数设置").Current("客户明细一级分类宽度"))

        rt2.Cols(6).Width =cint(Tables("参数设置").Current("客户明细商品规格宽度"))

        rt2.Cols(7).Width =cint(Tables("参数设置").Current("客户明细数量宽度"))

        rt2.Cols(8).Width =cint(Tables("参数设置").Current("客户明细总价宽度"))

        rt2.Cols(9).Width =cint(Tables("参数设置").Current("客户明细备注宽度"))

        rt2.CellStyle.Spacing.All = 0.1 

        rt2.Style.GridLines.All = New prt.Linedef  

        rt2.Style.TextAlignVert = prt.AlignVertEnum.Center 

        rt2.Style.TextAlignHorz = prt.AlignHorzEnum.Center

        rt2.Style.FontSize = cint(Tables("参数设置").Current("客户明细明细字体大小"))

        'rt.Rows(6).Style.TextAlignVert = prt.AlignVertEnum.Top      

        rt2.Cells(i,0).Text= "序号"

        rt2.Cells(i,1).Text= "订单编号"

        rt2.Cells(i,2).Text = "微信昵称"

        rt2.Cells(i,3).Text = "姓名/手机号"

        rt2.Cells(i,4).Text = "商品名称"

        rt2.Cells(i,5).Text = "一级分类"

        rt2.Cells(i,6).Text = "商品规格"

        rt2.Cells(i,7).Text = "数量"

        rt2.Cells(i,8).Text = "总价"

        rt2.Cells(i,9).Text = "备注" 

        i=i+1

        For Each khmx As DataRow In DataTables("客户明细").Select("id='" & r("id") &"'")

            rt2.Cells(i,0).Text= khmx("序号")

            rt2.Cells(i,1).Text= khmx("订单编号")

            rt2.Cells(i,2).Text =khmx("微信昵称")

            rt2.Cells(i,3).Text =khmx("姓名手机号")

            rt2.Cells(i,4).Text =khmx("商品名称")

            rt2.Cells(i,5).Text =khmx("一级分类")

            rt2.Cells(i,6).Text =khmx("商品规格")

            rt2.Cells(i,7).Text = khmx("数量")

            rt2.Cells(i,8).Text = khmx("总价")

            rt2.Cells(i,9).Text = khmx("备注")

            i=i+1

        Next

        doc.Body.Children.Add(rt2)

    Next

    Doc.Print

减少代码，只打印一两行数据测试。使用execl、word强制添加换页符测试有没有问题？