- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- excl打印问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187482)
-- 发布时间：2023/7/21 11:21:00
-- excl打印问题
老师我想按销售单号打印报表，
代码如下：【但点击时没有按单号进行执行打印】
Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售单.xls") \'打开模板
Dim pr As String = Forms("打印").Controls("TextBox1").Value
Dim fl As String = ProjectPath & "Reports\\销售单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3, 9).Value = "<销售单号 = pr>" \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
报表中下方两个数据没有获取出来，我上传了测试项目，您看下里面有excl报表
此主题相关图片如下：报表截图.png
测试项目文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2023/7/21 11:23:00
--
Sheet(3, 9).Value = "<销售单号 = \'" & pr & "\'>" \'写入打印条件
-- 发布时间：2023/7/21 11:30:00
--
老师出库部门和销售日期为啥不能关联字段数据？
此主题相关图片如下：报表截图.png
-- 发布时间：2023/7/21 11:48:00
--
不在表名那一行是不会输出的。
-- 发布时间：2023/7/21 12:11:00
--
老师这个代码修改后还是不行
Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售单.xls") \'打开模板
Dim pr As String = Forms("打印").Controls("TextBox1").Value
Dim fl As String = ProjectPath & "Reports\\销售单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3, 9).Value = "<销售单号 = \'" & pr & "\'>" \'写入打印条
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
-- 发布时间：2023/7/21 13:33:00
--
单元格坐标不正确：Sheet(7, 3).Value = "<销售单号 = \'" & pr & "\'>" \'写入打印条
此主题相关图片如下：1.png
-- 发布时间：2023/7/21 15:17:00
--
好的，谢谢蓝老师；
老师我想实现，点击打印按钮默认打印的为所有行数据，代码需要如何修改？
-- 发布时间：2023/7/21 15:23:00
--
http://www.foxtable.com/webhelp/topics/0201.htm