excel 签收单批量打印问题

ifrogz · 发表于 2018-1-29 10:47

通过VBA代码已经实现了点击打印按钮打印签收单，但是因为能力有限，现有新需求无法实现。因签收内容比较少，每张单据只能打印一条记录，现希望点击打印按钮后能在每张纸上能打印两条记录，希望有人帮忙看下代码，谢谢！

数据页

目前已经实现功能

需求

ifrogz · 发表于 2018-1-29 10:48

希望帖子不要沉了，谢谢大家

ifrogz · 发表于 2018-1-30 09:01

祝各位2018年新年快乐

ifrogz · 发表于 2018-1-30 09:06

求大家给个思路，谢谢大家了！

ifrogz · 发表于 2018-1-30 11:03

好像有点想法了，等会试试，应该可以解决的

ifrogz · 发表于 2018-1-31 09:09

思路不对，没搞成功

ifrogz · 发表于 2018-2-5 16:20

都放假过年了吗？？？没人理我！

ifrogz · 发表于 2018-2-7 17:41

每天看一次，祝大家过年好！！

ifrogz · 发表于 2018-4-8 11:29

还能顶上去吗？

doul123 · 发表于 2018-4-12 21:12

本帖最后由 doul123 于 2018-4-12 21:25 编辑

把下面这段修改到你的程序中，应该就行了把。

Sub Table_Print()
For i = 2 To Sheet2.Cells(Rows.Count, 5).End(xlUp).Row Step 2
      Sheet4.[e3] = Sheet2.Cells(i, 6)
      Sheet4.[l3] = Sheet2.Cells(i, 8)
      Sheet4.[t3] = Sheet2.Cells(i, 7)
      Sheet4.[f4] = Sheet2.Cells(i, 9)
      Sheet4.[v3] = Sheet2.Cells(i, 5)
      Sheet4.[e14] = Sheet2.Cells(i + 1, 6)
      Sheet4.[l14] = Sheet2.Cells(i + 1, 8)
      Sheet4.[t14] = Sheet2.Cells(i + 1, 7)
      Sheet4.[f15] = Sheet2.Cells(i + 1, 9)
      Sheet4.[v14] = Sheet2.Cells(i + 1, 5)
Next
Sheet4.Select
ActiveSheet.Printout
End Sub

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