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


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

主题：打印预览出现问题
帅哥哟，离线，有人找我吗？
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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
18365900066
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
18365900066
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
18365900066
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09375 秒, 5 次数据查询