[原创]数据套打 随意中止

lnccc

学习了，谢谢分享。

dt_rain

已经下载了，谢谢

lbl016

学习了，谢谢

泓()

来看一看来看一看

necghost

怎么最后一张老师重复打印两张

zhuxiangji

正需要，谢谢楼主！高手，羡慕中。。。。。。

xiaochuchu

学习来了

cm6705

收藏学习，谢谢分享！

zhimibuluo

很多不懂的同学大致是因为没有看见代码，本人班门弄斧一下，把内核COPY出来，免得好多同学不知道
操作：
1.Alt+F8调出宏窗口
2.选择要看的宏，点编辑，就是可以观看代码并且修改了

如下是代码：

Sub 信封打印()
  If 中止 = "中止" Then
      中止 = "中止"
      Exit Sub
  End If
  Sheets("打印页").Activate
  Cells(1, 1).Activate
  Call 数据转移
  '将下句前的单引号删除即实施正式打印
  ' Sheets("打印页").PrintOut Copies:=1
  
  '修改下句中的时间，可以调整两页打印时间间隔
  Application.OnTime Now + TimeValue("00:00:15"), "信封打印"
End Sub
Sub 数据转移()
'请修改本过程，以适应你的打印需求
  h = Sheets("数据页").Cells(1, 1)

  If h = Empty Or IsNumeric(h) = False Then
    h = 3
  End If
  dd = Sheets("数据页").Cells(h, 1)
  If dd = Empty Then
      中止 = "中止"
      rr = MsgBox("当前已经打印到第 " & h - 1 & " 行数据，第 " & h & "  行数据可能为空，打印结束")
      Exit Sub
  End If
  
  rr = Len(dd)
  If rr = 6 Then
     For hh = 1 To 6
       Sheets("打印页").Cells(1, hh) = Mid(dd, hh, 1)
     Next hh
  End If

  Sheets("打印页").Cells(2, 5) = Sheets("数据页").Cells(h, 2)
  Sheets("打印页").Cells(3, 6) = Sheets("数据页").Cells(h, 3)
  Sheets("打印页").Cells(4, 7) = Sheets("数据页").Cells(h, 4)
  Sheets("打印页").Cells(4, 11) = Sheets("数据页").Cells(h, 5)
  Sheets("打印页").Cells(4, 12) = "收"
  Sheets("打印页").Cells(5, 1) = Sheets("数据页").Cells(h, 6)
  Sheets("数据页").Cells(1, 1) = h + 1
End Sub

xinsishao

谢谢，学习学习