还是关于打印并保存文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 还是关于打印并保存文件

共有2782人关注过本帖树形打印复制链接主题：还是关于打印并保存文件

dj68301367

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

等级：小狐帖子：358 积分：2719 威望：0 精华：0 注册：2015/4/12 12:13:00

还是关于打印并保存文件 发帖心情

Post By：2015/5/8 16:43:00 [显示全部帖子]

Dim Book As New XLS.Book(ProjectPath & "Attachments\生产请购单.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\" & [产品型号] & ".xls"

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Sheet(7,2).Value = "制单人:" & User.Name '加入制单人信息

Book.Build() '生成报表

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

错误提示，产品型号未声明

dj68301367

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

等级：小狐帖子：358 积分：2719 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/5/8 17:08:00 [显示全部帖子]

谢谢BIN，想点击直接进入预览，在帮助中找到直接打印的代码。。。请问预览的代码是什么。

Proc.Verb = "Print" '指定动作

主题：还是关于打印并保存文件