领料单打印问题

wengjl

为解决打印的页数问题，经一晚的思考，调试成功，最后一段打印的代码作了调整
Sub 领料单打印()
    ' https://club.excelhome.net/threa ... tml?_dsign=68639f0d
    ' 2024-4-18
    Sheet6.Select
    Range("A6:G15").ClearContents
    '-----
    c_dh = Sheet6.Cells(3, 6).Value
    If IsEmpty(c_dh) Then
      MsgBox "单据号不能为空！！！"
      Exit Sub
    End If
    '------
    x5 = 2
    foun = False
    sn = 0
    Do While Not (IsEmpty(Sheet5.Cells(x5, 1).Value))
      If Sheet5.Cells(x5, 1).Value = c_dh Then
        sn = sn + 1
        foun = True
        If sn = 1 Then
         Sheet6.Cells(3, 2).Value = Sheet5.Cells(x5, 2).Value
         Sheet6.Cells(4, 2).Value = Sheet5.Cells(x5, 3).Value
         Sheet6.Cells(4, 6).Value = Sheet5.Cells(x5, 4).Value
         Sheet6.Cells(17, 2).Value = Sheet5.Cells(x5, 12).Value
         Sheet6.Cells(17, 4).Value = Sheet5.Cells(x5, 13).Value
         Sheet6.Cells(17, 6).Value = "领料人：" & Sheet5.Cells(x5, 14).Value
        End If
      End If
      x5 = x5 + 1
    Loop
    If foun = False Then
      MsgBox "请正确输入单据号！！！"
      Exit Sub
    End If
    '------
    x5 = 2
    x1 = 1
    Do While Not (IsEmpty(Sheet5.Cells(x5, 1).Value))
      If Sheet5.Cells(x5, 1).Value = c_dh Then
        For y = 1 To 14
          Sheet1.Cells(x1, y).Value = Sheet5.Cells(x5, y).Value
        Next y
        x1 = x1 + 1
      End If
      x5 = x5 + 1
    Loop
    '--完成数据转移到“开单过渡表”上
    i = 0
    For x = 1 To sn
      i = i + 1
      For y = 1 To 7
          Sheet6.Cells(i + 5, y).Value = Sheet1.Cells(x, y + 4).Value
      Next y
      If i = 9 Then      ‘ 写满9行就进行打印
          'ActiveWindow.SelectedSheets.PrintOut      ' 不预览，直接打印
          ActiveWindow.SelectedSheets.PrintPreview   ' 预览，人控打印
          Range("A6:G15").ClearContents
          i = 0
      End If
    Next x
    If Int(sn / 9) <> sn / 9 Then  ' 最后一张不足9人，前面的IF是不打印的，此处打印
      ActiveWindow.SelectedSheets.PrintPreview   ' 预览，人控打印    尾数不满的页
      Range("A6:G15").ClearContents
    End If
   
End Sub

实现了 逢9打印，页数不受限制

chengyunpan

万能批量软件用于楼主的案例

软件简介：   
     真正的软件级别，VBA通用软件，用于批量打印、拆分，用于特殊需求的录入、打印等等。不需改代码，就可以万能套用。复杂的数据引用、格式要求都能简单解决。
      单个、少量、批量操作（打印、拆分等）或者选择性操作都一样方便。
      核心很简单，就是用“=”号引用对应数据列，并作简单设置，一学就会，很容易套用到工作中遇到的实际案例。
       界面超级简单，千篇一律，傻瓜式操作。
      每个案例都仅是此软件的一个小应用，学会一个案例作参考就能一里通百里用，欢迎大家测试使用，更期待能提出宝贵意见。
     软件免费，并附简易教程，需要做简单设计才能吻合到实际案例。也可以联系作者提供设计服务，能为你提供完美的整体解决方案。
      文件就是软件！！！

ytmpgght

chengyunpan 发表于 2024-4-19 20:54
万能批量软件用于楼主的案例

软件简介：   

感谢老师提供方法和学习资料

ytmpgght

leeson7502 发表于 2024-4-19 23:11
打印的功能还是比较复杂的，可以考虑付费定制。如果自己搞，可以参考这里的一篇文章，解释得非常详细，也有 ...

我一会就去学习。感谢老师指点。

ytmpgght

      关于领料单打印问题，之前各位老师都给了最优解。今天我把我在4月份遇到的另一个事件发下来分享下。

由于本人水平有限，没办法优化，但是本案例可以解决我这个检验单的填写与打印。

wang-way

同类问题 一次性搞定
  

wang-way

ytmpgght 发表于 2024-5-3 10:27
关于领料单打印问题，之前各位老师都给了最优解。今天我把我在4月份遇到的另一个事件发下来分享下。
...

不需要中间转化 也不需要控件  一次搞定  需要的可以定制

wang-way

ytmpgght 发表于 2024-5-3 10:27
关于领料单打印问题，之前各位老师都给了最优解。今天我把我在4月份遇到的另一个事件发下来分享下。
...

这个你附带一个说明  我看看啊 到底哪里是数据源  填单填那几个空

ytmpgght

wang-way 发表于 2024-6-19 22:00
同类问题 一次性搞定

老师厉害的。我向您学习。