打印图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下之前测试是好的,现在实然只能打印个边出来,不知道为什么? 打印效果如图
dvubb

此主题相关图片如下：snipaste_2020-08-20_12-02-20.png

Dim doc As New PrintDoc '定义一个报表

doc.PageSetting.PaperKind = 9

doc.PageSetting.Landscape = True

Doc.PageSetting.LeftMargin = 20 '设置左边距

Doc.PageSetting.RightMargin = 20 '设置右边距

Doc.PageSetting.TopMargin = 10 '设置上边距

Doc.PageSetting.BottomMargin = 10 '设置下边距

Dim rm As prt.RenderImage '定义一个图片对象

For Each i As Row In rs

If i("fa piao") <> Nothing Then

' Dim fil As String = i("fa piao")

Dim fi As List(of String) = i.DataRow.Lines("fa piao") 'fil.Split(vbcrlf)

Dim file As String

For Each ff As String In fi

ff = ff.Trim()

file = "\\10.100.100.129\产品中心\foxtable资料\fa piao\" & ff

Dim img As image = getImage(file)

If img IsNot Nothing Then

'Dim rep As New prt.RenderEmpty '定义一个新的空对象

'rep.BreakBefore = prt.BreakEnum.Page '打印前换页

'doc.Body.Children.Add(rep ) '加入到报表中

rm = new prt.RenderImage

rm.Image = img '请改为实际的图标名称和路径

rm.Width = "Parent.Width" '宽度等于页面宽度

rm.Height = "Auto" '高度由图片大小自动决定

' rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸

rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示

rm.BreakBefore = prt.BreakEnum.Page

doc.Body.Children.Add(rm) '将表格对象加入到报表中

'Doc.Preview()

'Doc.PrinterName = "HP LaserJet 6L"

End If

doc.Print()

主题：打印图片