打印 合格证问题 取日期和流水码打一次加1 打印次数设置

shidenwei

具体看附件：需要指定E3里面的位置9位流水码打印一次自动累加1，需要加个打印按钮，点打印按钮的时候提示请输入打印份数，输入份数后，自动开始打印，流水码在手动前面填写后自动累加1，F3位置为日期需要XXXX年YY月DD日。那个大神帮忙写下。万分感谢。
以下是我写的一些，打印出来有问题，
Sub Macro1()
aa = InputBox("请输入打印份数：")
    If aa = "'" Then Exit Sub
    ActiveWindow.SelectedSheets.PrintOut Copies:=aa, Collate:=True
'
' Macro1
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("E3"))
s = s + 1
Range("E3") = "'" & Right("0000000000" & s, 10)

End Sub

shidenwei

咋没有大神回复啊，

shidenwei

[图片] 如图怎么处理下，VBA怎么写顺畅

shidenwei

如照片，大神

shidenwei

咋没有人回复啊，没有人会弄吗？

shidenwei

平台 没有人会还是没有

huaner0113

Sub Macro1()
dim bb as range,dd()
bb=application.inputbox("请选择打印区域：",type=8)
dd=application.inputbox("请选择日期区域",type=8)
aa = InputBox("请输入打印份数：")
    If aa <> "'" Then
for i=1 to ubound(dd)
range("f3")=dd(i)
    bb.PrintOut
range("e3")=range("e3")+1
next
msgbox("共计打印"&ubound(dd)&"次")
else
exit sub
end if
End Sub

shidenwei

huaner0113 发表于 2019-12-2 22:03
Sub Macro1()
dim bb as range,dd()
bb=application.inputbox("请选择打印区域：",type=8)

打印区域选择红色，这里不知道怎么填写，打印日期也是红色，VBA完全小白，麻烦告知，谢谢了

huaner0113

Sub Macro1()
Dim bb As Range, dd()
Set bb = Application.InputBox("请选择打印区域：", Type:=8)
dd = Application.Transpose(Application.InputBox("请选择日期区域", Type:=8).Value)
aa = InputBox("请输入打印份数：")
  If aa <> "'" Then
For i = 1 To UBound(dd)
Range("f3") = dd(i)
For j = 1 To aa
bb.PrintPreview
     bb.PrintOut
     Next
Range("e3") = Range("e3") + 1
Next
MsgBox ("打印完成！共计打印" & UBound(dd) * aa & "页")
Else
Exit Sub
End If
End Sub

shidenwei

huaner0113 发表于 2019-12-4 00:06
Sub Macro1()
Dim bb As Range, dd()
Set bb = Application.InputBox("请选择打印区域：", Type:=8)

在选择打印区域的时候，格式错误，