VBA 求助 打印设置数量和设定流水码问题

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

Goodeve705

描述不清，得传个附件吧