Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表图片对齐问题


  共有679人关注过本帖树形打印复制链接

主题：专业报表图片对齐问题
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00 		专业报表图片对齐问题  发帖心情 Post By：2024/11/7 9:36:00 [显示全部帖子]

老师，以下代码，图片设置是靠右，为什么出来在左边呢？
'加入二   维码
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("凯天二维码.png") '设置图片
rm.Width = 25 '宽度25mm
rm.Height = 25 '高度25mm
rm.Style.Spacing.top = -30 '上面的对象距离-30毫米
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.top '垂直靠上显示
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Right '水平靠右显示
doc.Body.Children.Add(rm) '将图片对象加入报表



[此贴子已经被作者于2024/11/7 14:54:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2024/11/7 13:23:00 [显示全部帖子]

老师这个问题解决了，
在请教一下老师，多个段落时，怎么获取某一个段落至上页边距的距离？比如我需要知道地址距上页边距或是下页边距的距离，有没办法获取到？

[此贴子已经被作者于2024/11/7 14:54:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2024/11/7 14:02:00 [显示全部帖子]

找到变通的方法，直接把横线弄成图片，图片可以设置和上一个对象的距离，这样就没必要去找位置了。

 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2024/11/7 14:20:00 [显示全部帖子]

请老师看看下面代码，调试弹窗都弹出来了，卡在了正在保存的界面


但是不另存为pdf格式的，直接预览专业报表没有问题。



[此贴子已经被作者于2024/11/7 14:54:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2024/11/7 14:49:00 [显示全部帖子]

因为用了一些系统不常用字体，怎么判断字体是否存在？

 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2024/11/7 15:31:00 [显示全部帖子]

循环里面是这样判断，好像不对，忘记怎么判断了：
For i As Integer = 0 To System.Drawing.FontFamily.Families.Length - 1
    If System.Drawing.FontFamily.Families(i).Name = "自定义字体名称" Then
        '执行后面代码
.........
    Else
        Output.Show("没有所需字体，请联系管理员安装字体")
        Exit For
    End If
Next
[此贴子已经被作者于2024/11/7 15:32:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2024/11/7 15:50:00 [显示全部帖子]

测试需要改成以下这样才行
Dim b as boolean = false
For i As Integer = 0 To System.Drawing.FontFamily.Families.Length - 1
    If System.Drawing.FontFamily.Families(i).Name = "自定义字体名称" Then
      'b=true
        Exit For
    End If
Next
if b=true then
打印
else
提示出错
end if
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询