以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何打印选定区域  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99189)
--  作者：lisami
--  发布时间：2017/4/14 10:04:00
--  如何打印选定区域
我是初学者，在一个表中我想打印部分行，打印预览里可选“”选定区域“”，但实际打印时不是打印的选定区域。如何解决？谢谢！
--  作者：有点色
--  发布时间：2017/4/14 10:08:00
--  

 

  你通过何种方式打印？直接打印，还是excel报表之类的。

 
--  作者：有点色
--  发布时间：2017/4/14 10:10:00
--  

 你可以选筛选数据，然后再打印

 

http://www.foxtable.com/webhelp/scr/0120.htm

 
--  作者：lisami
--  发布时间：2017/4/14 10:14:00
--  
直接打印的
--  作者：lisami
--  发布时间：2017/4/14 10:19:00
--  
窗口中定义按钮，打印从n行到m行，打印代码？
--  作者：lisami
--  发布时间：2017/4/14 10:27:00
--  

http://www.foxtable.com/webhelp/scr/1233.htm

这些代码就可以解决我的问题吧？
--  作者：有点色
--  发布时间：2017/4/14 10:39:00
--  

6楼的帮助文档可以做到。

 

也可以用下面的代码实现你需要的功能。

 

Dim t As Table = Tables("表a")
Dim idxs As String = ""
Dim tbl As WinForm.Table

e.Form.RemoveControl("test")
tbl = e.Form.CreateTable("test", t.name, True)
e.Form.AddControl(tbl)
tbl.visible = False


For i As Integer = t.TopPosition To t.BottomPosition
    idxs &= t.Rows(i)("_Identify") & ","
Next
Dim nt As Table = tbl.Table
nt.Filter = "_Identify in (" & idxs.Trim(",") & ")"
nt.Print(True, False)
--  作者：lisami
--  发布时间：2017/4/14 16:13:00
--  
谢谢，按照您的方法我再试试。
我按照六楼的代码，实现了我要的功能。
但是在我选择的行数超过一页的范围时，它不能自动分页。每次只能打印一页。如何解决。？
--  作者：有点色
--  发布时间：2017/4/14 16:40:00
--  

 我直接测试6楼的代码，并没有问题。你代码怎么写的？

 

 用7楼的代码，有没有问题？