以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  连续打印  (http://www.foxtable.com/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、文件被锁定或者没有权限无法读取