Foxtable(狐表)用户栏目专家坐堂 → 关于execl 的打印问题


  共有2791人关注过本帖平板打印复制链接

主题:关于execl 的打印问题

帅哥哟,离线,有人找我吗?
ap9709130
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1467 积分:11418 威望:0 精华:0 注册:2013/11/24 22:10:00
关于execl 的打印问题  发帖心情 Post By:2015/3/9 17:05:00 [只看该作者]

我基于模版生成的EXECl,想直接打印出来,代码要怎么写?

 If FileSys.FileExists(ProjectPath & "Attachments\" & khmc("标签名称") & ".xls") Then
            Dim Book As New XLS.Book(ProjectPath & "Attachments\" & khmc("标签名称") & ".xls")
            Dim fl As String = ProjectPath & "标签\" & e.Row("客户名称") & " & t.xls"
            Book.Build() '生成细节区
            Book.Save(fl) '保存工作簿
            Dim Proc As New Process '打开工作簿
            Proc.File = fl
            Proc.Start()

        End If

 

文件生成没有问题,我想生成后直接打印出来,选相关的打印机,请问题一下代码要怎么写?帮助中没找到?多谢!



 回到顶部