| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]报表保存和引用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149475) |
| -- 作者：KWK001 -- 发布时间：2020/5/3 20:33:00 -- [求助]报表保存和引用 报表保存成为图片后，得到的图片文件名并不是"abc.jpg"，而是： abc_page1.jpg 报表的每一页都会生成一个独立的图片文件。 想应用这些文件，如何写？现在代码报错。 请大家看看？ For Each k As Row In Tables("print_A5").GetCheckedRows Dim Rows As List(Of DataRow) Dim CurRow As Row = k
Dim ro As New prt.RenderImage \'定义一个图片对象 ro.Image = GetImage(ProjectPath & "\\Images\\QR\\临时_page" & k & ".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 |
| -- 作者：有点酸 -- 发布时间：2020/5/4 9:16:00 -- k的类型是Row，怎么户参与&运算，我没看懂你的逻辑，所以帮不上忙。 |
| -- 作者：KWK001 -- 发布时间：2020/5/4 11:03:00 -- 我先把多页报表生成了图片，放在ProjectPath & "\\Images\\QR\\ 目录下 ，如： abc_page1.jpg abc_page2.jpg abc_page3.jpg ... ... 以上部分已经完成了。 然后新建一个报表，把ProjectPath & "\\Images\\QR\\ 目录下的图片全部放在新的报表 中,可以吗? [此贴子已经被作者于2020/5/4 11:03:37编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2020/5/4 11:08:00 -- For i As Integer = 1 To 1000 Then Dim fl As String = "ProjectPath & "\\Images\\QR\\abc_page" & i & ".jpg" If FileSys.File(fl) Then Dim ro As New prt.RenderImage ro.Image = GetImage(fl) .... .... Else Exit For End If Next
|