以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  我这个专业报表为什么不会自动换行的？满了一页后面就不出现了。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32338)

--  作者：comnets --  发布时间：2013/4/29 22:02:00 --  我这个专业报表为什么不会自动换行的？满了一页后面就不出现了。 Dim doc As New PrintDoc() \'定义一个报表 doc.PageSetting.PaperKind = 12 \'纸张类型改为B4 doc.PageSetting.Landscape = True \'横向打印 Dim s As String s = "AAAAAAAAAAAAAAAAAAAAAAAA" s = s & "BBBBBBBBBBBBBBBBBBBBBBBBBB" s = s & "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC" s = s & "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD" s = s & "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE" s = s & "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF" Dim rt As New prt.RenderText \'定义一个文本对象 Doc.PageSetting.LeftMargin = 10 \'设置左边距 Doc.PageSetting.RightMargin = 10 \'设置右边距 Doc.PageSetting.TopMargin = 20 \'设置上边距 Doc.PageSetting.BottomMargin = 20 \'设置下边距 rt.Width = "Parent.Width" \'对象宽度等于页面宽度 rt.Height = "Parent.Height" \'对象高度等于页面高度 rt.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框 rt.Text = s  \'设置文本对象的内容 doc.Body.Children.Add(rt) \'将文本对象加入到报表 doc.Preview() \'预览 [此贴子已经被作者于2013-4-30 17:14:04编辑过]

--  作者：程兴刚 --  发布时间：2013/4/29 23:40:00 --   去掉这一行！

--  作者：comnets --  发布时间：2013/4/30 9:21:00 --   程老师去掉哪一行？ [此贴子已经被作者于2013-5-7 11:02:11编辑过]

--  作者：Neha --  发布时间：2013/4/30 9:21:00 --   浪费我流量

--  作者：comnets --  发布时间：2013/4/30 9:32:00 --   对不住啊

--  作者：程兴刚 --  发布时间：2013/4/30 10:21:00 --   晕，手机回复，忘了粘贴进来： rt.Height = "Parent.Height" \'对象高度等于页面高度

--  作者：comnets --  发布时间：2013/4/30 17:14:00 --   谢程老师