Tạo nút in 10 bản liên tiếp của các bản khác nhau

[Tran Mui]

Tôi có một file in giầy khen
trên đó mỗi lần chọn 1 số phải chọn in, và chỉ in cho 1 bản của 1 sô ấy
Tôi muốn: mọi người giúp tạo nút Prin sao cho khi Clik vào sẽ in được 10 bản của 10 số tiếp theo
có File đính kèm
Xin cám ơn

 

[nghiaphuc]

Tôi có một file in giầy khen
trên đó mỗi lần chọn 1 số phải chọn in, và chỉ in cho 1 bản của 1 sô ấy
Tôi muốn: mọi người giúp tạo nút Prin sao cho khi Clik vào sẽ in được 10 bản của 10 số tiếp theo
có File đính kèm
Xin cám ơn

Trước hết, cần chọn File\Page Setup để thiết lập vùng in cho phù hợp.
Tiếp theo, bạn tạo 1 nút có tên là CmdPrint và viết code cho nút này như sau:

Private Sub CmdPrint_Click()
    Dim i As Byte
    For i = [Q3].Value To [Q3].Value + 9
        [Q3].Value = i
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next i
End Sub

 

[Tran Mui]

Mình cám ơn bạn NghiaPhuc . Trong file đính kèm mình làm được rồi
Cho mình hỏi thêm, cách tạo nút và đặt tên cho nút Print, mình không thạo lắm mà muốn sử dụng vào một việc khác nữa
Bạn giúp mình với