ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1106|回复: 6

[求助] Excel打印Textbox时刷新不及时的问题无法解决,求助!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2016-12-8 13:16 | 显示全部楼层 |阅读模式
本帖最后由 kcui77 于 2016-12-8 13:19 编辑

新人求助!

刚接触VBA不久,编写了一个非常简单的快递单打印程序。与网上其他的快递单模板不同,我不是靠调整单元格宽高来对准需打印的内容的,而是直接使用ActiveX里的Textbox控件,这样调整起来更加直观简便,而且更换不同的单子也能极快地调整对准。

其他一切ok,就是在打印的时候,记录不能及时地在Textbox里更新,总是在打印第一条记录时,Textbox还是之前的内容;打印第二条时,Textbox才更新到第一条;再往下打印,Textbox就不更新了,直到所有记录打印完成。
可是在我预览记录时,又一切正常,调用的都是同一个函数,非常莫名其妙。

不知我是否解释清楚。烦请各位高手赐教。

PS:我用的是Excel2007,工作表保护密码就是一个字母“a”。

愿意帮忙的高手可以下载附件试一试,把默认打印机设置成pdf就可以试着打印。


快递单打印.rar

77.77 KB, 下载次数: 7

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-12-8 13:26 | 显示全部楼层
批量打印部分的代码如下:

  1. Sub batchPrint()
  2. '批量打印快递单

  3.     Dim vi As Integer
  4.     Dim va As Integer
  5.     Dim vb As Integer
  6.     Dim vm As String
  7.    
  8.     '取得待打印范围
  9.     va = Cells(5, 16)
  10.     vb = Cells(5, 18)
  11.     If va > 300 Or vb > 300 Or va > vb Then
  12.         va = IIf(va > 300, 300, va)
  13.         vb = IIf(vb > 300, 300, vb)
  14.         If va > vb Then
  15.             vi = va
  16.             va = vb
  17.             vb = vi
  18.         End If
  19.         Cells(5, 16).Value = va
  20.         Cells(5, 18).Value = vb
  21.     End If
  22.     va = va + 6
  23.     vb = vb + 6
  24.    
  25.     '循环遍历待打印记录,若不为空则打印。
  26.     vm = "请确认快递单已装入打印机,是否继续?"
  27.     If MsgBox(vm, 65, "提示") = 1 Then
  28.         infoSender
  29.         For vi = va To vb
  30.             If Cells(vi, 2) <> "" Then
  31.                 infoReciper (vi)
  32.                 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  33.             End If
  34.         Next vi
  35.         infoReciper (Cells(3, 16).Value + 6) '恢复当前所指定的记录号
  36.     End If
  37. End Sub


  38. Sub infoReciper(ByVal tRow As Integer)
  39. '根据给定行数,更新打印区域的收件人信息
  40.     Application.ScreenUpdating = False
  41.     With ActiveSheet
  42.         .inName.Value = Trim(Cells(tRow, 2).Value)
  43.         .inArea.Value = Trim(Cells(tRow, 3).Value) & " " & Trim(Cells(tRow, 4).Value)
  44.         .inAddress.Value = Trim(Cells(tRow, 5).Value) & " " & Trim(Cells(tRow, 6).Value)
  45.         .inCompany.Value = Trim(Cells(tRow, 7).Value)
  46.         .inPhone.Value = Trim(Cells(tRow, 8).Value)
  47.         .xGoods.Value = Trim(Cells(tRow, 9).Value)
  48.         .xNum.Value = Trim(Cells(tRow, 10).Value)
  49.         .xRemark.Value = Trim(Cells(tRow, 11).Value)
  50.     End With
  51.     Application.ScreenUpdating = True
  52.     Application.Calculation = xlCalculationAutomatic
  53. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2019-4-21 18:08 | 显示全部楼层
M = .OLEObjects("TEXTBOX" & V).Height
        .OLEObjects("TEXTBOX" & V).Height = M - 1
        .OLEObjects("TEXTBOX" & V).Height = M
加入以上代码,就可以了

TA的精华主题

TA的得分主题

发表于 2019-4-21 19:51 | 显示全部楼层
本帖最后由 一指禅62 于 2019-4-21 19:53 编辑



楼主不妨换一个给Textbox赋值的方式,试试看:

1.jpg







TA的精华主题

TA的得分主题

发表于 2019-4-21 19:52 | 显示全部楼层
TextBox 赋值.zip (5.3 KB, 下载次数: 2)

TA的精华主题

TA的得分主题

发表于 2019-6-6 14:55 | 显示全部楼层
我也遇到了与您同样的问题:文本框数据不能及时刷新,导致打印的全是第一个人的。请问您的问题解决了吗?

TA的精华主题

TA的得分主题

发表于 2019-6-6 15:00 | 显示全部楼层
本帖最后由 chy553 于 2019-6-6 16:09 编辑

等待中。。。。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 08:13 , Processed in 0.035690 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表