- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 最大行数分页打印？？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27233)
-- 发布时间：2012/12/25 21:26:00
-- 最大行数分页打印？？
上图最小行数和最大行数属性都设置为6，这样明细的行数不到6行时，会自动补充空行，超过6行时，会分页打印凭证，每页打印6行。
可不可以不要分页，直接打印在同一页就像这样
-- 发布时间：2012/12/26 9:40:00
--
看不到图，也不明白楼主的意思。
如果拷贝重复打印的话，可以设置控件的位置的。
-- 发布时间：2012/12/26 11:49:00
--
以下是引用lin_hailun在2012-12-26 9:40:00的发言：
看不到图，也不明白楼主的意思。
如果拷贝重复打印的话，可以设置控件的位置的。
看不到图，也不明白楼主的意思。
如果拷贝重复打印的话，可以设置控件的位置的。
此主题相关图片如下：搜狗截图121226_1.png
有图了
-- 发布时间：2012/12/26 11:57:00
--
你那个是窗口打印，不懂你说的意思，是重复打印多个窗口内容？
-- 发布时间：2012/12/26 13:16:00
--
以下是引用lin_hailun在2012-12-26 11:57:00的发言：
你那个是窗口打印，不懂你说的意思，是重复打印多个窗口内容？
你那个是窗口打印，不懂你说的意思，是重复打印多个窗口内容？
嗯，用你的代码我改了一下，效果是有了，但是不知道代码的意思
Dim doc As PrintDoc = Forms("窗口1").GernatePrintDoc()
Dim ls_Obj As New List(Of Object)
For Each c As Object In Doc.Body.Children
’Output.Show(c.tostring & " " & c.y.Tostring)
If c.y.Tostring = "auto" Then
ls_obj.add(c)‘这句代码我一直不明白为什么加这就OK？？
Else
For i As Integer = 0 To 2
Dim o As Object = c.clone()
o.y = new C1.C1Preview.Unit(CStr(o.y.value + 80 * i))\'没有办法,试了很多,不能把窗口的高度转成unit类型,只能自己填写具体的值了
ls_Obj.Add(o)
Next
End If
Next
doc.body.Children.Clear
For Each o As Object In ls_Obj
Doc.body.Children.Add(o)
Next
doc.Preview()
-- 发布时间：2012/12/26 15:01:00
--
弄好就好了，我也不知道是什么原因。