[已解决]打印时图片不跟着编号改变而发生变化？图片未及时刷新？

chuxue · 发表于 2014-1-20 07:52

本帖最后由 chuxue 于 2014-1-23 12:38 编辑

快照1.jpg

按打印按钮，输入打印编号的起止流水号
快照3.jpg

发现打印预览结果编号在变化，可图片都一样
快照4.jpg

期待各位老师指教，谢谢

打印.part1.rar (481.28 KB, 下载次数: 16)

fffox · 发表于 2014-1-22 08:42

应该是编号超过15位的缘故吧。
编号是数值型文本，可能在转换过程中，把15位之后的信息丢失变成0了，导致最后出来的都是同一张图片

chuxue · 发表于 2014-1-22 09:23

fffox 发表于 2014-1-22 08:42
应该是编号超过15位的缘故吧。
编号是数值型文本，可能在转换过程中，把15位之后的信息丢失变成0了，导致最 ...

应该不是那样，因为调过代码，表格里显示最后图片，可打印结果都是一个没有变化，看过介绍应该是循环过程图片没有及时刷新，造成循环结束时一张图片，很是纠结，盼望解决，谢谢您的关注。

suye1010 · 发表于 2014-1-22 18:17

这个最佳答案由 suye1010 给出，感谢 suye1010 的回答。

单击隐藏图章

本帖最后由 suye1010 于 2014-1-23 11:30 编辑

Private Sub CommandButton1_Click()
Dim a As String
Dim b As String
Dim ks
Dim js
Dim tm As String
ks = InputBox("请输入起始编号："): If Len(ks) = 0 Then Exit Sub
js = InputBox("请输入截止编号"): If Len(js) = 0 Then Exit Sub
C = InputBox("你要打印几份?"): If Len(C) = 0 Then Exit Sub

a = Sheets("打印编号").Range("b:b").Find(ks).Row
b = Sheets("打印编号").Range("b:b").Find(js).Row
If a <> b And a <> "" And b <> "" Then
For counter = a To b
  tm = Sheets("打印编号").Cells(counter, 1)
  For Each shp In ActiveSheet.Shapes
If shp.Type = 13 Then
      shp.Delete
End If
  Next
ActiveSheet.Shapes.AddPicture ThisWorkbook.Path & "\照片\" & tm & ".bmp", True, True, 550, 25, 175, 60
ThisWorkbook.Save
  Range("o5") = counter
  ActiveSheet.PrintOut Copies:=C, Collate:=True
  DoEvents
Next counter
End If
Sheets("套打").Range("o5") = "=MATCH(o6,打印编号!b:b,)"
End Sub

打印.zip (898.03 KB, 下载次数: 5)

		自动登录	找回密码
密码			注册

[已解决]打印时图片不跟着编号改变而发生变化？图片未及时刷新？

相关帖子

评分