不好意思我方错地方了,我方到page_start里面了,现在有一个新问题,的代码如下
Private Sub _rptPage_ReportStart(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ReportStart
Dim tb As New DataDynamics.ActiveReports.TextBox()
Dim pf As New System.Drawing.PointF(1, 1)
tb.Location = pf
tb.Text = "text1"
Me.PageHeader.Controls.Add(tb)
Next
End Sub
-------------------------------------------------------------------------------------------
Dim rpt As New rptPage()
rpt.SetData(rptData)
rpt.Run()
Dim tifExporter As New DataDynamics.ActiveReports.Export.Tiff.TiffExport
tifExporter.Export(rpt.Document, "d:\page.tiff")
------------------------------------------------------
这样打印出来的 tiff 文件是空白,看不出添加的控件。 |