Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生产工艺卡的连续打印问题


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

主题：生产工艺卡的连续打印问题
美女呀，离线，留言给我吧！
朱女士
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		生产工艺卡的连续打印问题  发帖心情 Post By：2024/10/23 20:45:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:202410230055.xls

老师您好！
  这几天我设计的生产工艺卡的连续打印问题一直困扰着我，还得请教老师。问题是这样的：
  我有一个“生产计划明细表”，表中主要有工作令号和条形码两个字段，条形码是图片形式。我是想手动选取工作令号，一个工作令号可能有n条条形码，在这些条形码中，我还要勾选“打印否”逻辑字段，用勾选的这些记录逐个生成生产工艺卡。我的目的是一张纸只能打印一个工艺卡，但如果我选三条记录就让它自动逐张连续打印三张生产工艺卡。
为此，我设计了一个窗口，我写的代码，有一个问题，在一张纸上打印两个工艺卡，第三张打印不了了。
Dim Result As DialogResult
Dim b As WinForm.TextBox= e.Form.Controls("TextBox1")
'b.BackColor = Color.Red
Dim gzh As String = b.Value
Dim Filter As String
Filter = "工作令号='" & gzh & "'and 打印否=1"
Tables("生产计划明细表").Filter = Filter
Dim mr As DataRow
mr = DataTables("生产计划明细表").Find("工作令号 = '" & gzh & "'")

 Dim Book As New XLS.Book(ProjectPath & "Attachments\生产工艺加工流程卡模板.xls")
Dim fl As String = ProjectPath & "Reports\" & mr("清单条码编码") & ".xls"
book.AddDataTable("生产计划明细表", "亚中系统数据", "S elect * fr om {生产计划明细表} w here 工作令号 = '" & gzh & "' and 打印否=1 ") 
Book.Build() 
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
请老师帮忙看看问题出在哪里？谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:_生产工艺加工流程卡模板.xls
 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2024/10/24 9:34:00 [显示全部帖子]

老师：上午好！
      我手动选择了三条记录，上述代码执行后，三条记录三条工艺卡内容一次预览输出，这里只用了一个文件名（注：只用了第一条记录的清单条码作为文件名），我想一条记录一个卡并且用选中的三条清单条码作为三个文件名存储，并且一张纸只打印一张。这个怎么实现？请指教！我现在将源代码，生成的excel表和原模板发给您！
Dim Result As DialogResult
Dim b As WinForm.TextBox= e.Form.Controls("TextBox1")
'b.BackColor = Color.Red
Dim gzh As String = b.Value
Dim Filter As String
Filter = "工作令号='" & gzh & "'and 打印否=1"
Tables("生产计划明细表").Filter = Filter
Dim mr As DataRow
mr = DataTables("生产计划明细表").Find("工作令号 = '" & gzh & "'")

 Dim Book As New XLS.Book(ProjectPath & "Attachments\生产工艺加工流程卡模板.xls")
Dim fl As String = ProjectPath & "Reports\" & mr("清单条码编码") & ".xls"
book.AddDataTable("生产计划明细表", "亚中系统数据", "S elect * f rom {生产计划明细表} w here 工作令号 = '" & gzh & "' and 打印否=1 ") 
Book.Build() 
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

只能发模板，其它的不让发了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:_生产工艺加工流程卡模板.xls
 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2024/10/24 10:03:00 [显示全部帖子]

好的，谢谢老师！我的模块要求就是手动选取要打印的内容。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生产工艺加工流程卡模板.xls
 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2024/10/24 10:27:00 [显示全部帖子]

想勾选

 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2024/10/24 10:30:00 [显示全部帖子]

如果拖拽的话，用select 语句？但是如果要打印的记录顺序不连续的话，就不好实现了吧

 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2024/10/24 13:45:00 [显示全部帖子]

老师：您好！
  我按照您的指导意见，写的代码出现了错误信息，烦请再帮助一下。
Dim Result As DialogResult
Dim b As WinForm.TextBox = e.Form.Controls("TextBox1")
'b.BackColor = Color.Red
Dim gzh As String = b.Value
Dim Book As New XLS.Book(ProjectPath & "Attachments\生产工艺加工流程卡模板.xls")
Dim fl As String = ProjectPath & "Reports\打印工艺卡.xls"
Dim s As String = ""
Dim rs As list(Of Row) = Tables("生产计划明细表").GetCheckedRows
If rs.count = 0 Then
msgbox("没有勾选")
Return
End If
For Each r As Row In Tables("生产计划明细表").GetCheckedRows
    s = s & "," & r("_Identify")
Next
s = s.Trim(",")
Tables("生产计划明细表").Filter = "[_Identify] in (" & s & ")"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
'Proc.Verb = "Print" '指定动作
Proc.Start()
我 选中的记录和错误信息请看图片。

图片点击可在新窗口打开查看此主题相关图片如下：打印卡2.jpg
图片点击可在新窗口打开查看


  单帖管理 | 引用 | 回复 | 编辑 | 回到顶部
 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2024/10/24 14:04:00 [显示全部帖子]

麻烦老师再给我看一下行吗

 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2024/10/24 14:05:00 [显示全部帖子]

老师：您好！
  我按照您的指导意见，写的代码出现了错误信息，烦请再帮助一下。
Dim Result As DialogResult
Dim b As WinForm.TextBox = e.Form.Controls("TextBox1")
'b.BackColor = Color.Red
Dim gzh As String = b.Value
Dim Book As New XLS.Book(ProjectPath & "Attachments\生产工艺加工流程卡模板.xls")
Dim fl As String = ProjectPath & "Reports\打印工艺卡.xls"
Dim s As String = ""
Dim rs As list(Of Row) = Tables("生产计划明细表").GetCheckedRows
If rs.count = 0 Then
msgbox("没有勾选")
Return
End If
For Each r As Row In Tables("生产计划明细表").GetCheckedRows
    s = s & "," & r("_Identify")
Next
s = s.Trim(",")
Tables("生产计划明细表").Filter = "[_Identify] in (" & s & ")"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
'Proc.Verb = "Print" '指定动作
Proc.Start()
我 选中了三条记录但出现了错误，错误信息请看图片。

此主题相关图片如下：打印卡2.jpg
按此在新窗口浏览图片
 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2024/10/24 15:02:00 [显示全部帖子]

老师您好！
 连续打印生产工艺卡时，清单条码依次打印但是卡上得条形码指针不移动。比如：我有两个要打印的生产工艺卡清单条码编码分别是：202410230056\202410230057，这个与之对应的条形码也是这个。可是我现在打印出来的不是，是鼠标指定的那个条形码。比如下图中的清单条码编码是202410230057，可条码显示是202410230056
就是说报表模板的条形码指针，与代码控制的指针不一致。这个问题我不知道怎么解决。
Dim Result As DialogResult
Dim b As WinForm.TextBox = e.Form.Controls("TextBox1")
'b.BackColor = Color.Red
Dim gzh As String = b.Value
Dim Filter As String

Tables("生产计划明细表").ShowCheckBox = True '开启复选框
Dim rs As list(Of Row) = Tables("生产计划明细表").GetCheckedRows
If rs.count = 0 Then
msgbox("没有勾选")
Return
End If
Dim s As String = ""
Dim qdm As String
For Each r As Row In Tables("生产计划明细表").GetCheckedRows
qdm = r("清单条码编码")
    s = s & "," & r("_Identify")

s = s.Trim(",")
Tables("生产计划明细表").Filter = "[_Identify] in (" & s & ")"
Dim Book As New XLS.Book(ProjectPath & "Attachments\生产工艺加工流程卡模板.xls")
Dim fl As String = ProjectPath & "Reports\'" & qdm & "'.xls"

Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
'Proc.Verb = "Print" '指定动作
Proc.Start()
Next
图片发不过去
 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2024/10/24 15:47:00 [显示全部帖子]

老师您好！
 我给你传实例啊，谢谢您啦！您运行一下窗口，看一下显示的条码是不对应的。
 回到顶部
总数 24 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 8 次数据查询