- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 专业报表问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191065)
-- 发布时间：2024/3/25 8:57:00
-- 专业报表问题
此主题相关图片如下：图打印.jpg
此主题相关图片如下：图片打印-1.jpg
-- 发布时间：2024/3/25 9:00:00
--
1、http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=142398
-- 发布时间：2024/3/25 9:03:00
--
问题二：下面只能打印一个，没有打印上面图二张图，如何实现将二张或多张图打印？
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 & "〇"
-- 发布时间：2024/3/25 9:05:00
--
2、http://www.foxtable.com/webhelp/topics/2717.htm
-- 发布时间：2024/3/25 10:00:00
--
上面网址个看过，理解能力比差，没看明白
问题二：下面只能打印一个，没有打印上面图二张图，如何实现将二张或多张图打印？ 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插入一个图标: "，没看出与打印或符号调大小的关系，符号调大小用字体调不了 |
-- 发布时间：2024/3/25 10:07:00
--
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 rpar As New prt.RenderParagraph() \'定义一个段落对象
Dim f As New Font("宋体", 16, FontStyle.Bold) \'定义一个同样但加粗的字体
rpar.Content.AddText("爱好：")
Dim f As New Font("宋体", 16, FontStyle.Bold) \'定义一个同样但加粗的字体
rpar.Content.AddText("爱好：")
If ah.contains("书法") Then
rpar.Content.AddText("●", f)
else
rpar.Content.AddText("●", f)
else
rpar.Content.AddText("〇", f)
end if
-- 发布时间：2024/3/25 10:39:00
--
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 & "书法"
Next
Doc.Preview() \'预览报表
[此贴子已经被作者于2024/3/25 11:56:28编辑过]
-- 发布时间：2024/3/25 10:55:00
--
rt.Cells(7, 0).RenderObject = rpar
-- 发布时间：2024/3/25 11:54:00
--
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编辑过]
-- 发布时间：2024/3/25 13:29:00
--
Dim img As image = getImage(fls(0))