Dim doc As New PrintDoc '定义一个报表 Dim rx As prt.RenderText '定义一个文本对象 Dim CurRow As Row = Tables("piao据明细").Current doc.PageSetting.Width = 176 '纸张宽度为176毫米 doc.PageSetting.Height = 84 '纸张高度为84毫米 Doc.PageSetting.LeftMargin = 0 '设置左边距 Doc.PageSetting.RightMargin = 0 '设置右边距 Doc.PageSetting.TopMargin = 0 '设置上边距 Doc.PageSetting.BottomMargin = 0 '设置下边距 'doc.body.Children.Add(rx) 这一句去掉 rx = new prt.RenderText …… |