以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表图片对齐问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194063)
--  作者：cd_tdh
--  发布时间：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
--  发布时间：2024/11/7 13:23:00
--  
老师这个问题解决了，
在请教一下老师，多个段落时，怎么获取某一个段落至上页边距的距离？比如我需要知道地址距上页边距或是下页边距的距离，有没办法获取到？

[此贴子已经被作者于2024/11/7 14:54:28编辑过]
--  作者：有点蓝
--  发布时间：2024/11/7 13:32:00
--  
代码？
--  作者：cd_tdh
--  发布时间：2024/11/7 14:02:00
--  
找到变通的方法，直接把横线弄成图片，图片可以设置和上一个对象的距离，这样就没必要去找位置了。
--  作者：cd_tdh
--  发布时间：2024/11/7 14:20:00
--  
请老师看看下面代码，调试弹窗都弹出来了，卡在了正在保存的界面


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



[此贴子已经被作者于2024/11/7 14:54:56编辑过]
--  作者：有点蓝
--  发布时间：2024/11/7 14:28:00
--  
看不出什么问题，请提供实例测试
--  作者：cd_tdh
--  发布时间：2024/11/7 14:49:00
--  
因为用了一些系统不常用字体，怎么判断字体是否存在？
--  作者：有点蓝
--  发布时间：2024/11/7 14:56:00
--  
遍历所有判断：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=8963&skin=0
--  作者：cd_tdh
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：2024/11/7 15:37: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 then
打印
else
提示出错
end if