老师

    我的代码如下：、

Dim doc As New PrintDoc \'定义一个报表
doc.PageSetting.Width = 100 \'纸张宽度为100毫米
doc.PageSetting.Height = 180 \'纸张高度为120毫米
Doc.PageSetting.LeftMargin = 5 \'设置左边距
Doc.PageSetting.RightMargin = 5 \'设置右边距
Doc.PageSetting.TopMargin = 1 \'设置上边距
Doc.PageSetting.BottomMargin = 1 \'设置下边距
Dim rm As prt.RenderImage \'定义一个图片对象
Dim img As image = getImage("D:\\发票清单\\100040719092.jpg")
If img IsNot Nothing Then
    rm = New prt.RenderImage
    rm.Image = img \'请改为实际的图标名称和路径
    rm.Width = "Parent.Width" \'宽度等于页面宽度
    rm.Height = "parent.height" \'高度由图片大小自动决定
    \' rm.Style.ImageAlign.StretchHorz = False \'禁止图片水平拉伸
    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'居中显示
    rm.BreakBefore = prt.BreakEnum.Page
    doc.Body.Children.Add(rm) \'将表格对象加入到报表中
End If
doc.SavePDF("D:\\发票清单\\444.pdf")
Doc.PrinterName = "KM-118D"
Doc.Preview()

会提示 444文件 进程正在被使用 ，然后就会一个正在保存的窗口 一直在了

先判断文件是否存在，如果存在先删除掉。

另外保存和预览分开2个按钮，不要一起使用