主题：关于专业报表的打印问题

 老师

    我的代码如下：、

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:\fa piao清单\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:\fa piao清单\444.pdf")
Doc.PrinterName = "KM-118D"
Doc.Preview()

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

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

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