扫描枪条码枪加excel(3)

扫描枪条码枪加excel

Sheet1.PrintOut

Sheet1.Cells(Target.Row + 1, 1).Activate

End If

End Sub

这个效果是，修改当前行第二列数字为条码+100，打印sheet1，设定下一行第一列为焦点，你可以继续扫描。