VB 调用Bartender打印问题

Posted 2023-04-27

我已引用Bartender10.0，一下是我按钮的程序，可是结果打印不了，提示：实时错误91 对象变量或WITH块变量未设置；请各位大侠指点，万分感谢
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("E:\abc\abc.btw") '错误提示在这行
btdb = btformat.Databases(1)
btformat.PrintOut

参考技术A 你用的版本太高了吧。
我用的7.75 你参考一下
先要打开bartend.exe
Shell ("D:\Program Files\Seagull\BarTender\7.75\bartend.exe /af=E:\abc\abc.btw /p /x /?qdh=""" & randqdh & """")
dll应该是不用调用的，调用dll需要用正版

二次开发BarTender打印机时,未能解析主引用“Seagull.BarTender.Print, Version=1.0.0.0, Culture=neutral, processorArchit

错误提示:

严重性 代码 说明 项目 文件 行 禁止显示状态
警告 未能解析主引用“Seagull.BarTender.Print, Version=1.0.0.0, Culture=neutral, processorArchitecture=x86”，因为它对框架程序集“System.IdentityModel.Selectors, Version=3.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089”有间接依赖关系，而在当前目标框架中未能解析该程序集。“.NETFramework,Version=v2.0”。若要解决此问题，请移除引用“Seagull.BarTender.Print, Version=1.0.0.0, Culture=neutral, processorArchitecture=x86”，或将应用程序的目标重新指向包含“System.IdentityModel.Selectors, Version=3.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089”的框架版本。 

 

解决办法:

将.net Framework调到4.0

然后接下来有另一个报错:

转到配置文件, 加上

参见:

https://docs.microsoft.com/zh-cn/dotnet/framework/configure-apps/file-schema/startup/startup-element