报表设计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表设计

共有17688人关注过本帖树形打印复制链接主题：报表设计

lihe60

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00

报表设计

Post By：2009/5/20 8:21:00 [只看该作者]

狐狸爸爸,可不可以把易表的报表设计功能全盘移过来呀?那个功能很好用的.

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/20 8:36:00 [只看该作者]

你去学一下帮助中的Excel报表吧。

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/5/20 9:32:00 [只看该作者]

这是不用打开EXCEL表而直接打印的,打印完就关闭了
CurrentTable.SaveExcel("C:\test.xls","sheet1",False)
Dim Book As New XLS.Book("C:\test.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim r As Integer = Sheet.Rows.Count-1
Dim c As Integer = Sheet.Cols.Count -1
With Sheet.PrintSetting
    '页眉
    .Header = "&L"&"期间:" & e.Form.Controls("DTPqsrq").Value & "至" & e.Form.Controls("DTPjzrq").Value
   End With
Sheet(r+2,c).Value = "制单人:" & User.Name
Book.Save("C:\test.xls") '保存工作簿
Dim Proc As New Process
Proc.File = "C:\test.xls"
Proc.Verb = "Print" '指定动作
Proc.Start()

菜鸟foxtable

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：2009/5/20 10:19:00 [只看该作者]

以下是引用yangming在2009-5-20 9:32:00的发言：
这是不用打开EXCEL表而直接打印的,打印完就关闭了
CurrentTable.SaveExcel("C:\test.xls","sheet1",False)
Dim Book As New XLS.Book("C:\test.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim r As Integer = Sheet.Rows.Count-1
Dim c As Integer = Sheet.Cols.Count -1
With Sheet.PrintSetting
    '页眉
    .Header = "&L"&"期间:" & e.Form.Controls("DTPqsrq").Value & "至" & e.Form.Controls("DTPjzrq").Value
   End With
Sheet(r+2,c).Value = "制单人:" & User.Name
Book.Save("C:\test.xls") '保存工作簿
Dim Proc As New Process
Proc.File = "C:\test.xls"
Proc.Verb = "Print" '指定动作
Proc.Start()

学习..

下一主题 >> << 上一主题

主题：报表设计