Foxtable(狐表)用户栏目专家坐堂 → 打印预览出现问题


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

主题:打印预览出现问题

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


加好友 发短信
等级:幼狐 帖子:177 积分:1849 威望:0 精华:0 注册:2019/1/27 23:19:00
打印预览出现问题  发帖心情 Post By:2025/2/5 18:02:00 [只看该作者]

“C1.Win.C1Preview.C1PreviewPane”的类型初始值设定项引发异常。
未能加载文件或程序集“C1.C1Zip.4, Version=4.0.20191.359, Culture=neutral, PublicKeyToken=79882d576c6336da”或它的某一个依赖项。找到的程序集清单定义与程序集引用不匹配。 (异常来自 HRESULT:0x80131040)

打印机预览按钮,我的电脑可以预览,换电脑不能预览了,但是可以打印出来。

预览代码这样写的
Dim cmb As WinForm.ComboBox = e.form.Controls("cmbprinters")
Dim doc As PrintDoc = e.Form.gernateprintdoc()
If cmb.Value <> "默认打印机" Then
Doc.PrinterName =  cmb.Value
End If
doc.Preview()

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


加好友 发短信
等级:幼狐 帖子:177 积分:1849 威望:0 精华:0 注册:2019/1/27 23:19:00
  发帖心情 Post By:2025/2/5 18:05:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112350 积分:572006 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/6 8:38:00 [只看该作者]

发布后的程序?把没有问题的电脑的程序复制到有问题的电脑试试

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


加好友 发短信
等级:幼狐 帖子:177 积分:1849 威望:0 精华:0 注册:2019/1/27 23:19:00
  发帖心情 Post By:2025/2/6 12:24:00 [只看该作者]

谢谢老师,我在换电脑试试,
请教您另外一个问题
我的用户   用 系统需要两个打印机,一个默认打印机,还需要另外热敏一个打印机,
问题是   这用户    好几位需要两台打印机,,但是他们的每个热敏打印机型号都不同,

怎么让用户的客服使用另外一个打印机的时候 打开这个窗口,直接自动切换到需要这个热敏打印机。

能让 用户 自己选择一次以后,就在本机 记住 此用户自己的选择么?

Tables("打印快递单明细_Table1").Filter = "编号 = '" & Vars("编号") & "'"
Dim v As String
For Each p As String In InstalledPrinters
v = v & "|" & p
Next

e.Form.Controls("cmbprinters").combolist =  v



 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112350 积分:572006 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/6 13:39:00 [只看该作者]

到组合框valuechanged事件把用户选择的打印机保存到设置里:http://www.foxtable.com/webhelp/topics/1544.htm

在1楼代码后面读取设置给组合框赋值

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


加好友 发短信
等级:幼狐 帖子:177 积分:1849 威望:0 精华:0 注册:2019/1/27 23:19:00
  发帖心情 Post By:2025/2/7 16:12:00 [只看该作者]

组合框valuechanged事件
Dim xm As String =  Vars("姓名")
Dim cmb As String = e.Form.Controls("cmbprinters").Value
SaveConfigValue(xm, cmb)
'MessageBox.Show(GetConfigValue(xm,1))

这个GetConfigValue离开了这个   组合框   控件就不能用了啊。 
我在命令窗口执行  MessageBox.Show(GetConfigValue(xm,1)) 也没有结果

[此贴子已经被作者于2025/2/7 16:12:48编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112350 积分:572006 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/7 16:26:00 [只看该作者]

组合框valuechanged事件
Dim cmb As String = e.sender.text
if cmb > ""
SaveConfigValue("打印机名称", cmb)
else
msgbox("没有选择打印机")
end if

组合框设置的地方
Tables("打印快递单明细_Table1").Filter = "编号 = '" & Vars("编号") & "'"
Dim v As String
For Each p As String In InstalledPrinters
v = v & "|" & p
Next

e.Form.Controls("cmbprinters").combolist =  v
dim name as string = GetConfigValue("打印机名称","")
msgbox(name)
e.Form.Controls("cmbprinters").text = name

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


加好友 发短信
等级:幼狐 帖子:177 积分:1849 威望:0 精华:0 注册:2019/1/27 23:19:00
  发帖心情 Post By:2025/2/7 17:05:00 [只看该作者]

谢谢有点蓝老师。谢谢


关于 一楼 和 二楼出现的  那个  打印预览错误  导致的原因如下

把foxtable.exe 改成 XXXX管理系统.exe导致 了窗口 预览出错的问题了。
[此贴子已经被作者于2025/2/7 17:22:09编辑过]

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


加好友 发短信
等级:幼狐 帖子:177 积分:1849 威望:0 精华:0 注册:2019/1/27 23:19:00
  发帖心情 Post By:2025/2/7 21:48:00 [只看该作者]

第一段代码
Dim cmb As WinForm.ComboBox = e.form.Controls("cmbprinters")
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
If cmb.Value <> "默认打印机" Then
    Doc.PrinterName =  "cmb.Value"
End If
doc.Print()

上面代码只能   使用  窗口- 文件 - 页面设置 里面的打印机?

第二段代码
Dim cmb As WinForm.ComboBox = e.form.Controls("cmbprinters")
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Select Case Vars("姓名")
    Case "张三"
        Doc.PrinterName =  "Gprinter GP-1124D"
        doc.Print()
    Case "李四"
        Doc.PrinterName =  "HP DJ 2130 series"
        doc.Print()
End Select
''------------这个上面代码能指定  那个账号用那个打印机


老师您好,为什么第一段代码指定不了打印机,第二段代码就可以按名字指定打印机?
[此贴子已经被作者于2025/2/7 21:48:35编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112350 积分:572006 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/2/8 8:57:00 [只看该作者]

Doc.PrinterName =  cmb.Value
调试看区别
msgbox(cmb.Value)
msgbox("cmb.Value")

 回到顶部