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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于EXCEL报表设计图片问题

共有3936人关注过本帖树形打印复制链接主题：关于EXCEL报表设计图片问题

hnguang

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：521 积分：4714 威望：0 精华：0 注册：2016/12/17 11:51:00

关于EXCEL报表设计图片问题 发帖心情

Post By：2021/3/16 10:05:00 [只看该作者]

此主题相关图片如下：qq图片20210316094656.png

如图，有一些报表需在图片中插入一部份字段文字，因内容不是固定的，请问需怎样设计排版

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/16 10:12:00 [只看该作者]

方法1、自己绘制图片文字，再引用：http://www.foxtable.com/webhelp/topics/1482.htm

2、使用专业报表

hnguang

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：521 积分：4714 威望：0 精华：0 注册：2016/12/17 11:51:00

Post By：2021/3/18 11:53:00 [只看该作者]

Dim doc As New PrintDoc
Dim rg As New prt.RenderRectangle (100,50,New Prt.Linedef(2,Color.Red))
rg.x = 50
rg.y = 50
doc.Body.Children.Add(rg)

Doc.Preview(

我看了这个，可以绘制圆形等，有绘制菱形的命令吗，因为菱形在包装麦头上很常见

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/18 11:58:00 [只看该作者]

看帮助里绘制线条DrawLines和多边形DrawPolygon的用法，自己指定顶点坐标

hnguang

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：521 积分：4714 威望：0 精华：0 注册：2016/12/17 11:51:00

Post By：2021/3/19 11:46:00 [只看该作者]

    Dim rpar As New prt.RenderParagraph() '定义一个段落对象
    rpar.Content.AddImage(getimage("lx.bmp"))
    rpar.Content.AddText(dr("條款備註1"))

doc.body.Children.add(rpar)

我用专业报表图文模式做出来是这样子，没有达到效果，求助专家需要怎样调整，十万火急

此主题相关图片如下：qq截图20210319114309.png

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/19 11:56:00 [只看该作者]

不是使用这种RenderParagraph，使用RenderGraphics自己绘制，指定绘制坐标：http://www.foxtable.com/webhelp/topics/1232.htm

hnguang

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：521 积分：4714 威望：0 精华：0 注册：2016/12/17 11:51:00

Post By：2021/3/19 13:49:00 [只看该作者]

样式大约试出来了，现在就是这个菱形要怎样绘，老师能指定一下吗，这个绘图真是不懂

Dim cmd As New SQL Com mand
cmd.ConnectionName=_conn
cmd.Co mmandText ="s elect 序號 as _Identify,* from T條款備註打印 where 單號= 'W2103157-2' "
Dim dt As DataTable=cmd.ExecuteReader()
Dim dr As DataRow
If dt.DataRows.Count > 0 Then

    dr = dt.DataRows(0)

    Dim p As WinForm.Painter = e.Form.Controls("Painter1")
    Dim g As Graphics = p.Graphics
    g.DrawEllipse(Pens.Blue,20,10,230,110)
    Dim fnt As New Font("宋体",10)
    Dim msg As String = dr("條款備註1")
    g.DrawString(msg,fnt,Brushes.black,60,70)

    p.Repaint()

End If