专业报表问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：图打印.jpg

此主题相关图片如下：图片打印-1.jpg

问题二：下面只能打印一个，没有打印上面图二张图，如何实现将二张或多张图打印？

rt.Cells(7, 0).Image = GetImage(CurRow("照片"))

问题三："●"，"〇"符号太小，如何调大？

Dim s As String = "爱好："

Dim ah As String = rw("爱好")

' msgbox(ah) '测试显示什么内容

If ah.contains("书法") Then

s = s & "●"

Else

s = s & "〇"

上面网址个看过，理解能力比差，没看明白

问题二：下面只能打印一个，没有打印上面图二张图，如何实现将二张或多张图打印？

rt.Cells(7, 0).Image = GetImage(CurRow("照片"))

问题三："●"，"〇"符号太小，如何调大？

Dim s As String = "爱好："

Dim ah As String = rw("爱好")

' msgbox(ah) '测试显示什么内容

If ah.contains("书法") Then

s = s & "●"

Else

s = s & "〇"

上面网址：2单元格多行内容的处理，，图片列可以管理多个图片，3插入一个图标: "，没看出与打印或符号调大小的关系，符号调大小用字体调不了

3.执行后，空白，没有数据，如何解决？

Dim doc As New PrintDoc '定义一个报表

Dim tbl As Table = Tables("员工")

Dim rt As New prt.RenderTable() '定义一个表格对象

Dim rpar As New prt.RenderParagraph() '定义一个段落对象

Dim f As New Font("宋体", 16, FontStyle.Bold) '定义一个同样但加粗的字体

rpar.Content.AddText("爱好：")

Dim ah As String = rw("爱好")

If ah.contains("书法") Then

rpar.Content.AddText("●", f)

Else

rpar.Content.AddText("〇", f)

End If

' rpar = rpar & "书法"

Doc.Preview() '预览报表

[此贴子已经被作者于2024/3/25 11:56:28编辑过]

Dim fls As List(of String)

fls = CurRow.DataRow.Lines("照片")

rt.Cells(7, 0).Image = GetImage(fls(0))

rt.Cells(8, 0).Image = GetImage(fls(1))

Dim txt As String = "我是水印文字"

Dim img As image = getImage(fls)

Dim bmp = new bitmap(img.Width, img.Height)

Dim g = graphics.fromimage(bmp)

g.DrawImage(img,0,0) ‘绘制原图片’

g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High

g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality

Dim fnt As new Font("微软雅黑", 60, FontStyle.Bold) ‘水印文字字体

Dim size = g.MeasureString(txt, fnt)

g.TranslateTransform((img.width-size.width)/2, img.Height - size.height - 50) '设置文字的绘制起点

g.RotateTransform(-45) '逆时针旋转45度

Dim semiTransBrush As new System.Drawing.SolidBrush(Color.FromArgb(120, 177, 171, 171)) '水印文字颜色，120是透明度，范围0~255

g.DrawString(txt, fnt, semiTransBrush, new PointF(0,0))

报错，加不了

[此贴子已经被作者于2024/3/25 12:24:21编辑过]

主题：专业报表问题