主题：截取图片列字符串一部分打印

在命令窗口测试一下：

 

 

Dim s as string = "c:\照片\&1234566.jpg"
s = s.Substring(s.indexof("&") + 1)
s= s.Substring(0,s.indexof("."))
output.show(s)

1、变量可以重用：
 
Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("EP1.BMP") '设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表
 
rm = New prt.RenderImage
rm.Image = GetImage("EP2.BMP") '设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表

rm = New prt.RenderImage
rm.Image = GetImage("EP3.BMP") '设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表


Doc.Preview() '预览
 
2、定义内部函数，可以重复掉用