Đánh mã hóa đơn khi in

[vson.itvn]

Em muốn làm một tệp hóa đơn bán lẻ cho mỗi nhân viên. khi in ra mã hóa đơn thay đổi ví dụ như:
in 50 hóa đơn cho nv tên Quân thì mã hóa đơn sẽ thay đổi từ Q01-> Q50 mong các bác giúp em ak.

 

[vson.itvn]

Cảm ơn mọi người đã quan tâm, em đã tìm ra và xin share cho mọi người ak.
Sub PrintCopies_ActiveSheet()


Dim CopiesCount As Long
Dim copynumber As Long


CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
Name = Application.InputBox("Input Name?")
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.


For copynumber = 1 To CopiesCount
With ActiveSheet
.Range("B4").Value = name & copynumber 'I assume your invoice number is in cell E1.
.PrintOut 'Print the sheet
End With
Next copynumber
End Sub