打印收货单

xtjeypm · 发表于 2022-1-4 16:52

B2单元格=I4时打印出收货单，B2等于I5时再打印收货单，一直打印到I13，当B2等于I14为空时停止打印，可以录一个宏，录了两个不知道怎么改，求大神

xtjeypm · 发表于 2022-1-4 16:55

function Macro4()
{
Selection.Formula = "=I4";
Application.EnableEvents = false;
ActiveWindow.SelectedSheets.PrintOut(1, 2147483647, 1, false, "RONGTA 80mm Series Printer", false, true, undefined, false);
Application.EnableEvents = true;
Selection.Formula = "=I5";
Application.EnableEvents = false;
ActiveWindow.SelectedSheets.PrintOut(1, 2147483647, 1, false, "RONGTA 80mm Series Printer", false, true, undefined, false);
Application.EnableEvents = true;
Selection.Formula = "=I6";
Application.EnableEvents = false;
ActiveWindow.SelectedSheets.PrintOut(1, 2147483647, 1, false, "RONGTA 80mm Series Printer", false, true, undefined, false);
Application.EnableEvents = true;

这是录的宏，不知道I5单元格那应该怎么修改，求大神

xtjeypm · 发表于 2022-1-4 17:10

是不是用一个 For 循环就是以解决

3190496160 · 发表于 2022-1-4 17:21

Sub 打印()
With Sheets("原")
r = .Cells(Rows.Count, 9).End(xlUp).Row
If r < 7 Then MsgBox "请在【基本信息设置】中设置年级名称，班级数和开始班级名称！": End
ar = .Range("i3:i" & r)
For i = 2 To UBound(ar)
      If Trim(ar(i, 1)) <> "" Then
         .[b2] = ar(i, 1)
         .PrintOut
      End If
Next i
End With
MsgBox "打印完毕！"
End Sub

3190496160 · 发表于 2022-1-4 17:22

打印过磅单.rar (270.88 KB, 下载次数: 8)

xtjeypm · 发表于 2022-1-4 17:34

3190496160 发表于 2022-1-4 17:22

谢谢大神，真是非常感谢，把几小时的工作变为一秒

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