老师，以下代码，图片设置是靠右，为什么出来在左边呢？'加入二 维码
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编辑过]
老师这个问题解决了，
在请教一下老师，多个段落时，怎么获取某一个段落至上页边距的距离？比如我需要知道地址距上页边距或是下页边距的距离，有没办法获取到？
[此贴子已经被作者于2024/11/7 14:54:28编辑过]
找到变通的方法，直接把横线弄成图片，图片可以设置和上一个对象的距离，这样就没必要去找位置了。
请老师看看下面代码，调试弹窗都弹出来了，卡在了正在保存的界面
但是不另存为pdf格式的，直接预览专业报表没有问题。
[此贴子已经被作者于2024/11/7 14:54:56编辑过]
因为用了一些系统不常用字体，怎么判断字体是否存在？
遍历所有判断：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=8963&skin=0
循环里面是这样判断，好像不对，忘记怎么判断了：
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编辑过]
dim b as boolean = falseFor 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