我要实现图片体检中心报告单的模板样式，“检查项目及结果”、“检查结论及建议”这两个区域的内容都会随着内容变化，如果遇到换页的时候 当前页需要底部需要有底部的边框线，跳页的顶部也需要边框线。
Private Sub ActiveReport_DataInitialize()
Dim count As Integer
count = 100 ' 定义生成数量
Dim Result1 As String
Dim i As Integer
For i = 1 To count
Result1 = Result1 & "杨子元" & vbCrLf
Next i
Item.Text = Result1
Result.Text = Result1
Unit.Text = Result1
Range.Text = Result1
'dddd.Caption = "dsadaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
End Sub
|
