- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何实现卡片打印？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149697)
-- 发布时间：2020/5/9 14:34:00
-- [求助]如何实现卡片打印？
有一个档案记录表，现需要把每一条记录打印成一张卡片，请问如何用XLS报表实现？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:打印档案卡片.table |
此主题相关图片如下：档案卡.jpg
此主题相关图片如下：数据.jpg
[此贴子已经被作者于2020/5/9 14:37:33编辑过]
-- 发布时间：2020/5/9 14:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:档案卡片.xls |
-- 发布时间：2020/5/9 14:56:00
--
谢谢！内容可以了。
还有一条记录可以打印为一张卡片吗？即一条记录，一个文件。
-- 发布时间：2020/5/9 15:03:00
--
把模板ALL标签去掉然后，遍历所有行逐行生成即可
for i as integer = 0 to tables("出库单").rows.count - 1
tables("出库单").position - i
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单" & i & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
next
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
next
-- 发布时间：2020/5/9 15:19:00
--
蓝版主，上面第二行代码有误，执行会报错，能否再改下？
---------------------------
错误
---------------------------
编译错误:属性访问必须分配给属性或使用它的值。
错误代码：Tables("档案记录").Position - i
---------------------------
确定
---------------------------
[此贴子已经被作者于2020/5/9 15:20:35编辑过]
-- 发布时间：2020/5/9 15:28:00
--
一点点错误自己都判断不了？
Tables("档案记录").Position = i
-- 发布时间：2020/5/9 15:37:00
--
可以了，把上面第二行的“-”改为“=”就行了，谢谢蓝版主！