Foxtable(狐表) → 用户栏目 → 专家坐堂 → 控件


  共有20178人关注过本帖树形打印复制链接

主题：控件
美女呀，离线，留言给我吧！
yangming
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：2009/5/19 15:28:00 [显示全部帖子]

不明白,为何要打印控件的名称?

 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：2009/5/19 16:13:00 [显示全部帖子]

需要安装.net framework 2.0才能运行foxtable，如果你的电脑没有安装，请下载：
http://www.foxtable.com/download/dotnetfx.exe
 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：2009/5/19 16:49:00 [显示全部帖子]

 

CurrentTable.SaveExcel("C:\data\test.xls","订单",False)

[此贴子已经被作者于2009-5-19 16:59:16编辑过]
 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：2009/5/19 18:34:00 [显示全部帖子]

只是第一行的日期我无法做,无法以模板中插入第一行,本想放在页眉中的,可是页眉的写法总是出错,请高手看看如何做吧
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
Sheet(r+2,c).Value = "打印人:" & User.Name
Book.Save("C:\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "C:\test.xls"
Proc.Start()
[此贴子已经被作者于2009-5-19 18:35:37编辑过]
 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：2009/5/19 18:53:00 [显示全部帖子]

这个是有页眉的,呵呵

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.Start()

下面是带打印提示的:
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 Result As DialogResult
Result = MessageBox.Show("明细帐已生成,要打开吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Proc As New Process '打开工作簿
Proc.File = "C:\test.xls"
Proc.Start()
End if
[此贴子已经被作者于2009-5-19 18:57:35编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询