- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口小piao打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41680)
-- 发布时间：2013/10/24 22:25:00
-- 窗口小piao打印
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口打印.table |
各位
请问如何实现类似超市，服装店的小票打印
1）单位名称
2）日期
3）名称、数量、单价、小计，行数没有限制，一直向下可以加，直到没有信息。
4）合计
我做了一个，但是不知如何设置
备注：打印不能用EXCLE,要窗口打印
谢谢
-- 发布时间：2013/10/24 22:38:00
--
只差第四项。合计模式加入下面代码
Dim t As Table = e.Form.Controls("Table1").Tablet.Cols("数量").GrandTotal = True \'指定要合计的列
t.GrandTotal = True
http://www.foxtable.com/help/topics/2750.htm
项如果需要用一个label显示合计，可以把代码写到表A的datacolchanged事件，如
Forms("xxx").Controls("Label1").Text = e.datatable.compute("数量")
项如果需要用一个label显示合计，可以把代码写到表A的datacolchanged事件，如
Forms("xxx").Controls("Label1").Text = e.datatable.compute("数量")
[此贴子已经被作者于2013-10-24 22:39:12编辑过]
-- 发布时间：2013/10/25 8:27:00
--
各位：可能是我表达的不够清楚。
首先打印类似超市或水果店的小票打印
其次行可以无限的打，只到没有信息，最后一行都是合计
所以楼上的好像不是我要的，不过还是谢谢
-- 发布时间：2013/10/25 8:50:00
--
楼主不是想要这样吗? 这个是依据你的半成品做的啊
此主题相关图片如下：qq截图20131025084922.png
-- 发布时间：2013/10/25 13:29:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:窗口打印.table |
[此贴子已经被作者于2013-10-25 14:19:46编辑过]