Dim doc As New PrintDoc '定义一个报表
doc.Body.Children.Add(rt)
rt.Style.GridLines.All = New prt.LineDef
rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = 120 '对象高度等于页面高度
rt.Rows.Count = 2 '设置行数为3行
rt.Cols.Count = 2 '设置列数为3列
If FileSys.FileExists("C:\Users\pc\Desktop\LCH03.png") Then
rt.Cells(0,0).Image = GetImage("C:\Users\pc\Desktop\LCH03.png")
End If
If FileSys.FileExists("C:\Users\pc\Desktop\LCH02.png") Then
rt.Cells(0,1).Image = GetImage("C:\Users\pc\Desktop\LCH02.png")
End If
If FileSys.FileExists("C:\Users\pc\Desktop\LCH05.png") Then
rt.Cells(1,0).Image = GetImage("C:\Users\pc\Desktop\LCH05.png")
End If
'---------------------------图片
rt.Cells(1,1).text = "21321321" ’能输出
doc.Preview()
甜版 我测试结果很奇怪 4个单元格 中 的3个放置图片进去 ,连续试几次,发现 只能随机输出 2个 或者 1 个 不能全部输出。
是我电脑问题还是foxtable问题!