Foxtable(狐表)用户栏目专家坐堂 → 当前副本表不能循环打印


  共有2113人关注过本帖树形打印复制链接

主题:当前副本表不能循环打印

帅哥哟,离线,有人找我吗?
ryubo888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:69 积分:703 威望:0 精华:0 注册:2017/11/4 13:12:00
当前副本表不能循环打印  发帖心情 Post By:2018/3/20 10:49:00 [显示全部帖子]

        For Each dr As Row In CurrentTable.rows()
            Dim Book1 As New XLS.Book(ProjectPath & "Attachments\单人登记表.xls")
            Dim file1 As String = ProjectPath & "Reports\单人登记表.xls"
            Book1.Build() '生成细节区
            Book1.Save(file1) '保存工作簿
            
            Dim App As New MSExcel.Application
            Dim Wb As MSExcel.WorkBook
            try
                wb = App.WorkBooks.Open(file1)
                Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
                With Ws.PageSetup
                    .PaperSize = MSExcel.XlPaperSize.xlPaperA4   '纸张大小
                    '        .CenterHorizontally = True   '页面水平居中
                    '        .CenterVertically = True '页面垂直居中
                    '        .Zoom = False '以下设置将缩印在一页内
                    .FitToPagesWide = 1  '按照1页的宽度打印
                    .FitToPagesTall = 1  '按照1页的高度打印
                End With
                'App.Visible = True
                Ws.PrintOut
            catch ex As exception
                msgbox("出错了")
            finally
                wb.save
                wb.close
                App.Quit
            End try
        Next
上面代码错哪了,不能按当前记录循环打印,总打第一条记录。
[此贴子已经被作者于2018/3/20 10:56:20编辑过]

 回到顶部