请问楼主,有水晶报表实现网络打印的资料吗?

解决方案 »

  1.   


     "报表页眉在连接打印几页的情况下都出现" ?
     
     你放错地方了吧?
      

  2.   

    是在打印纸上都出现报表页眉
      

  3.   

    水晶报表可以设置页眉啊。
    crReportDocument = New Income_Statement()
      CrystalReportViewer1.ReportSource = crReportDocument
      CrystalReportViewer1.SeparatePages = False
      CrystalReportViewer1.DisplayGroupTree = False
      CrystalReportViewer1.DisplayToolbar = FalsePrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim oRpt As New CrystalReport1()Dim dsdataSet As New Dataset1() Dim CN As New Data.SqlClient.SqlConnection("data source=PMSERVER;initial catalog=Northwind;user id=sa;password=sa")CN.Open()Dim daOrders As New Data.SqlClient.SqlDataAdapter("select * from orders", CN)daOrders.Fill(dsdataSet, "orders") Dim daDetails As New Data.SqlClient.SqlDataAdapter("select * from [Order Details]", CN)daDetails.Fill(dsdataSet, "Order Details") '使用“报表引擎”对象模型将填充的数据集,传递给报表oRpt.SetDataSource(dsdataSet)CrystalReportViewer1.ReportSource = oRptEnd Sub  8、运行程序  七、用程序改变报表中text的文本  代码如下:Dim GetTextObject As TextObject' 按名称获取 ReportObject,将其转换为 TextObject,并返回此对象。GetTextObject = orpt.ReportDefinition.ReportObjects.Item("text13")GetTextObject.Text = "XXXX系统"