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