以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于专业报表的打印问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184653)

--  作者:ap9709130
--  发布时间:2022/12/20 15:01:00
--  关于专业报表的打印问题
 老师

    我的代码如下:、

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文件 进程正在被使用 ,然后就会一个正在保存的窗口 一直在了

--  作者:有点蓝
--  发布时间:2022/12/20 15:10:00
--  
这个路径已经存在文件,并且已经打开,无法覆盖保存:"D:\\fa piao清单\\444.pdf"

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

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