- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 手工分页打印设置代码修改 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192265)
-- 发布时间：2024/6/7 11:47:00
-- 手工分页打印设置代码修改
我要手工打印一个报表，采用的是直接向excel写入，excel工作表的上部分是表头，下部分是表尾，各页都一样，中间从第6行插入table明细的数据，每页插入5行，要实现分页打印，下面的代码赋值部分不对，请帮助看看？\'------计算表头需要的数据并赋值
Dim shzb As WinForm.Table = e.Form.Controls("收货主表")
Dim shmx As WinForm.Table = e.Form.Controls("收货明细")
Dim shtj As WinForm.Table = e.Form.Controls("Table1")
Dim r As Row = shzb.Table.Current
Dim ryear As String = Format(r("供货日期"), "yyyy")
Dim rmonth As String = Format(r("供货日期"), "MM")
Dim hs As Integer = shmx.Table.Rows.Count \'hs是收货明细表的行数
Dim totalPages As Integer = Math.Ceiling(shmx.Table.Count / 5) \'计算总页数\'按每页5行明细进行分页打印
Dim lms As String() = {"供货日期","品名","单位","数量","单价","金额"}
Dim sheetRows As Integer() = {0,1,3,4,5,6}
For page As Integer = 1 To totalPages
Dim Book As New XLS.Book("c:\\打印模板.xlsx") \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets("sheet1") \'引用工作簿的第一个工作表 \'打印表头
Sheet(0, 9).Value = ryear \'填写报表头之年
Sheet(1, 9).Value = rmonth \'填写报表头之月
Sheet(2, 9).Value = r("收货单号") \'填写报表头之收货单号
Dim St As XLS.Style = Book.NewStyle
St.Format = "yyyy-MM-dd"
For i As Integer = (page - 1) * 5 To Math.Min(page * 5, hs - 1) \'i代表table收货明细的行号
For j As Integer = 0 To sheetRows.Length - 1 \'j代表sheet 表的行号
For k As Integer = 6 To 10
\'Sheet(i+5, sheetrows(j)).Value = shmx.Table(i,lms(j))
Sheet((k+(i Mod 5)), sheetRows(j)).Value = shmx.Table.Rows(i)(lms(j))
\'MessageBox.show(shmx.Table.Rows(i)(lms(j))) 此值取出正确
\'MessageBox.show(i & "-" & i Mod 5)
Next
Next
Next
Book.Save("c:\\reports\\test " & page & ".xls") \'保存工作簿
Next
\'-------打印预览
\'Dim Proc As New Process \'打开工作簿
\'Proc.File = "c:\\reports\\test.xls"
\'Proc.Start()
-- 发布时间：2024/6/7 11:48:00
--
\'Sheet(i+5, sheetrows(j)).Value = shmx.Table(i,lms(j))
Sheet((k+(i Mod 5)), sheetRows(j)).Value = shmx.Table.Rows(i)(lms(j))这两种写法都不正确，能取值，就是不正确
-- 发布时间：2024/6/7 15:23:00
--
请上传实例测试
-- 发布时间：2024/6/8 6:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:传客服老师.zip |
-- 发布时间：2024/6/8 10:57:00
--
把明细表的供货日期改为日期类型的列
For page As Integer = 1 To totalPages
Dim Book As New XLS.Book(ProjectPath & "打印模板.xlsx") \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets("sheet1") \'引用工作簿的第一个工作表 \'打印表头
Sheet(0, 9).Value = ryear \'填写报表头之年
Sheet(1, 9).Value = rmonth \'填写报表头之月
Sheet(2, 9).Value = r("收货单号") \'填写报表头之收货单号
Dim St As XLS.Style = Book.NewStyle
St.Format = "yyyy-MM-dd"
Dim k As Integer = 6
For i As Integer = (page - 1) * 5 To Math.Min(page * 5 - 1, hs - 1) \'i代表table收货明细的行号
For j As Integer = 0 To sheetRows.Length - 1 \'j代表sheet 表的行号
Sheet(k, sheetRows(j)).Value = shmx.Table.Rows(i)(lms(j))
If j = 0 Then
Sheet(k, sheetRows(j)).Style = St
End If
Next
k += 1
Next
Book.Save(ProjectPath & "reports\\test " & page & ".xls") \'保存工作簿
Next
-- 发布时间：2024/6/9 9:46:00
--
谢谢，测试完全正确。此项目打开后，有两个窗体自动打开，项目一共6个独立窗体，设置与关闭方法都一样，为什么会这样，如何修正？
-- 发布时间：2024/6/10 21:14:00
--
窗口设计里把自动打开设置为false