- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现打印张数控制，设置某列的值，根据该值打印标签数量 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77147)
-- 发布时间：2015/11/11 21:01:00
-- 如何实现打印张数控制，设置某列的值，根据该值打印标签数量
如何实现打印张数控制?
比如设置某列的值，根据该值打印标签数量。
比如订单表，设置一列为标签数量，然后打印时，根据这列的标签数量，打印相应的标签数量。
-- 发布时间：2015/11/12 9:39:00
--
呃，要打印的内容，循环n次不就行了？
专业报表可以这样
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表
Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 2
Doc.Print
-- 发布时间：2015/11/16 10:32:00
--
多谢，看到专业报表了。学习一下，有疑问再请教。
-- 发布时间：2015/11/22 22:04:00
--
以下是引用大红袍在2015/11/12 9:39:00的发言：
呃，要打印的内容，循环n次不就行了？
专业报表可以这样
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表
Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 2
Doc.Print
如果不是专业报表，不能实现吗？ 打印某一行记录时，定义其中一个单元格的数值为打印份数。
谢谢!
-- 发布时间：2015/11/22 22:06:00
--
循环n次，如
for i as Integer = 1 to 3
\'打印代码
next
-- 发布时间：2015/11/24 17:14:00
--
感谢你的帮助，还有一个简单的问题，在帮助文件中找不到下面的属性和方法的帮助文件,哪里可以找到吗？谢谢！
Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 2
-- 发布时间：2015/11/24 17:31:00
--
以下是引用cold在2015/11/24 17:14:00的发言：
感谢你的帮助，还有一个简单的问题，在帮助文件中找不到下面的属性和方法的帮助文件,哪里可以找到吗？谢谢！
感谢你的帮助，还有一个简单的问题，在帮助文件中找不到下面的属性和方法的帮助文件,哪里可以找到吗？谢谢！
Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 2
这个不是帮助文档公开的属性，要靠自己积累这些零星的东西。