以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  连续打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152336)

--  作者:fendouww
--  发布时间:2020/7/10 9:09:00
--  连续打印
生成的打印报表,我有三个文件,但遍历只执行第一个打印任务,后面的第二个第三个直接略过了?是为什么?
                        For Each ff As String In fi
                             file =  "\\\\10.100.100.129\\产品中心\\foxtable资料\\发票\\" & ff
                            Dim img As image = getImage(file)
                            If img IsNot Nothing Then
                                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 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 \'居中显示
                                doc.Body.Children.Add(rm) \'将表格对象加入到报表中
                                \'Doc.Preview()
                                \'Doc.PrinterName = "HP LaserJet 6L"
                                doc.Print()
                            End If
                        Next

--  作者:有点蓝
--  发布时间:2020/7/10 9:44:00
--  
文件不存在吧?

                        For Each ff As String In fi
                             file =  "\\\\10.100.100.129\\产品中心\\foxtable资料\\发票\\" & ff
                            Dim img As image = getImage(file)
msgbox(img IsNot Nothing)
                            If img IsNot Nothing Then

--  作者:fendouww
--  发布时间:2020/7/22 15:05:00
--  
文件存在的,但显示确实是第二个文件为false ,这是为什么?
--  作者:有点蓝
--  发布时间:2020/7/22 15:07:00
--  
1、文件不存在;2、文件不是图片;3、文件被锁定或者没有权限无法读取