Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable()
doc.Body.Children.Add(rt)
rt.Style.GridLines.All = New prt.LineDef
rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = 120 '对象高度等于页面高度
rt.Rows.Count = 2 '设置行数为2行
rt.Cols.Count = 2 '设置列数为2列
If FileSys.FileExists("C:\Users\pcliujianhua\Desktop\sdf.jpg") Then
rt.Cells(1,0).Image = GetImage("C:\Users\pcliujianhua\Desktop\sdf.jpg")
Else
MessageBox.Show(1)
End If
rt.Cells(1,1).text = "21321321" ’能输出
doc.Preview()
指定路径不能输出,路径没有问题,请指点
[此贴子已经被作者于2019/3/20 17:07:21编辑过]