Foxtable(狐表)用户栏目专家坐堂 → [求助]关于Seagull.BarTender.Print.dll调用的疑问


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

主题:[求助]关于Seagull.BarTender.Print.dll调用的疑问

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


加好友 发短信
等级:幼狐 帖子:167 积分:1803 威望:0 精华:0 注册:2018/1/26 16:11:00
[求助]关于Seagull.BarTender.Print.dll调用的疑问  发帖心情 Post By:2021/6/16 10:40:00 [只看该作者]

1.修改Foxtable.exe.config 配置文件
在<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
下添加节点 <supportedRuntime version="v2.0.50727"/>
2.复制文件 Seagull.BarTender.Print.dll 到FOXTABLE程序安装根目录下
3.添加外部引用文件  Seagull.BarTender.Print.dll
添加命名空间 Seagull.BarTender.Print 设置别名 BarTender
4.后执行代码:
Dim btapp As BarTender.Application
Dim btformat As BarTender.Format
Dim btdb As BarTender.Database
btapp = CreateObject("bartender.application")
btapp.Visible = False
btformat = btapp.Formats.Open("I:\1.btw")
btdb = btformat.Databases(1)
btformat.PrintOut()

报错---------------------------
错误
---------------------------
编译错误:未定义类型“BarTender.Application”。



错误代码:Dim btapp As BarTender.Application
---------------------------
确定   
---------------------------


看看是什么问题

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/16 11:05:00 [只看该作者]

如果是.net程序直接new就行了:Dim btapp As new BarTender.Application

没有必要使用CreateObject,CreateObject要使用原始的命名空间,不能使用别名:CreateObject("Seagull.BarTender.Print.application")

 回到顶部
帅哥哟,离线,有人找我吗?
奶粉大王
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:167 积分:1803 威望:0 精华:0 注册:2018/1/26 16:11:00
  发帖心情 Post By:2021/6/16 11:10:00 [只看该作者]

谢谢甜版 在FOXTABLE中运行用什么代码?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/16 11:12:00 [只看该作者]

运行什么东西?

 回到顶部
帅哥哟,离线,有人找我吗?
奶粉大王
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:167 积分:1803 威望:0 精华:0 注册:2018/1/26 16:11:00
  发帖心情 Post By:2021/6/16 11:14:00 [只看该作者]

引用指定btw标签文件打印


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/16 11:19:00 [只看该作者]

Dim btapp As new BarTender.Application
Dim btformat As BarTender.Format
Dim btdb As BarTender.Database
btapp.Visible = False
btformat = btapp.Formats.Open("I:\1.btw")
btdb = btformat.Databases(1)
btformat.PrintOut()


 回到顶部
帅哥哟,离线,有人找我吗?
奶粉大王
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:167 积分:1803 威望:0 精华:0 注册:2018/1/26 16:11:00
  发帖心情 Post By:2021/6/16 11:32:00 [只看该作者]

还是报错:
---------------------------
错误
---------------------------
编译错误:未定义类型“BarTender.Application”。



错误代码:Dim btapp As new BarTender.Application
---------------------------
确定   
---------------------------


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/16 11:44:00 [只看该作者]

这样呢:Dim btapp As new Seagull.BarTender.Print.Application

如果还出错,说明不存在Seagull.BarTender.Print.Application这类型

 回到顶部
帅哥哟,离线,有人找我吗?
奶粉大王
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:167 积分:1803 威望:0 精华:0 注册:2018/1/26 16:11:00
  发帖心情 Post By:2021/6/16 11:45:00 [只看该作者]

---------------------------
错误
---------------------------
编译错误:未定义类型“Seagull.BarTender.Print.Application”。



错误代码:Dim btapp As new Seagull.BarTender.Print.Application
---------------------------
确定   
---------------------------


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/16 11:49:00 [只看该作者]

不存在Seagull.BarTender.Print.Application这类型,去看看这个组件的开发文档吧

 回到顶部