专业报表打印图片时，加上页码，如图片效果，怎么设置呢？试了很多次没有成功。请大家看看呢？
在1张A5的纸上，横向打印，每张4个图片，每个图片上标上第几张。
如第1张A4 纸上的图片标上第1张、第2张、第3张、第4张
如第2张A4 纸上的图片标上第5张、第6张、第7张、第8张
依次类推
此主题相关图片如下：无标题.jpg
'''
Dim doc1 As New PrintDoc '定义一个报表对象
doc1.PageSetting.PaperKind = 11 '纸张类型改为A5
Doc1.PageSetting.LeftMargin = 5 '设置左边距
Doc1.PageSetting.RightMargin = 0 '设置右边距
Doc1.PageSetting.TopMargin = 3 '设置上边距
Doc1.PageSetting.BottomMargin = 0 '设置下边距
Doc1.Columns.Add() '增加2栏
Doc1.Columns.Add()
Dim s As Integer= val(e.form.controls("textbox7").text)
For i As Integer = 1 To s
Dim ro As New prt.RenderImage '定义一个图片对象
ro.Image = GetImage(ProjectPath & "\Images\临时_page1.jpg" ) '设置图片
ro.Style.Spacing.Bottom = 10 '设置下间隔为3毫米
ro.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候，表格被分割成两部分。
ro.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
ro.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
ro.Style.ImageAlign.StretchHorz = False '禁止水平方向扩展图片
ro.Style.ImageAlign.StretchVert = False '禁止垂直方向扩展图片
不知道怎么写？水印又不行？
doc1.Body.Children.Add(ro) '将图片对象加入报表
doc1.PageSetting.Landscape = True '横向打印
Next
Dim r1 As WinForm.RadioButton = e.Form.Controls("RadioButton1")
Dim r2 As WinForm.RadioButton = e.Form.Controls("RadioButton2")
If r1.Checked=True Then
doc1.Preview(True) '自带预览
Else
If r2.Checked=True Then
Doc1.Print()
Else
MessageBox.Show("请选择预览或者直接打印!")
End If
End If
[此贴子已经被作者于2020/5/2 10:11:56编辑过]
加好友 
发短信
Post By：2020/5/2 10:01:00 [只看该作者]
