各位大哥，小弟要请教一个问题，帮忙解决一下！！

Question

窗体上的文本框的内容，不经过数据库，怎么打印到报表上！！

Answer 1

谁说窗体上的文本框内容是不能赋值给报表上的控件的？？
datareport1.Sections(1).Controls.Item("rpttext1").Caption =text1.text

Answer 2

按照你这样,出现了下标溢出的错误!!
我还把它该成了datareport1.Sections(1).Controls.Item("rpttext1").datafield=text1.text
和datareport1.Sections(1).Controls.Item("rpttext1").text1 =text1.text
都是同样的错误.
请给我留下qq好吗/以便于联系!!

Answer 3

你误会了，我写的语句只是作为参考，我又不知道你报表了控件怎样。
上面我写的rpttext1只是一个报表里的一个Textbox罢了，要换成是你的控件
也许还有一个地方我没有说明，Sections(1)就是你的报表控件所在的Section
你自己加个控件上去试一试就可以了
datareport1.Sections(1).Controls.Item("你的Textbox控件名").text = form1.text1.text

Answer 4

这个我知道,我用的是vb自带的DATAREPORT,用你的方法我试了都是下标越界的错误!!
我想这有可能是datareport不能在分组中加入不在分组类型内的数据的缘故!!

Answer 5

你在Datareport里的Section(除了页标头之外)全部缩小到没有,这样就不会下面总是留有一部分
或者再在打印机里设置好打印机的纸张来限定打印纸的大小(用自定义的)