Excel có thể tự động in theo DS Valication

[Phanhanhdai]

Em có một mẫu các biểu giống nhau, chỉ khác thay đổi họ và tên. Em dự định ô họ và tên này em dùng Validation, các bác cho em hỏi có code VBA nào hoặc chức năng có sẵn trong excel để tự động in tất cả các biểu trong danh sách ra không (nếu có đánh số trang theo thứ tự List trong Validatio thì càng tốt). Xin chân thành cảm ơn các bác

 

[hoangdanh282vn]

Em có một mẫu các biểu giống nhau, chỉ khác thay đổi họ và tên. Em dự định ô họ và tên này em dùng Validation, các bác cho em hỏi có code VBA nào hoặc chức năng có sẵn trong excel để tự động in tất cả các biểu trong danh sách ra không (nếu có đánh số trang theo thứ tự List trong Validatio thì càng tốt). Xin chân thành cảm ơn các bác

Chưa hiểu ý bạn lắm, nhưng sao bạn không viết một Macro để điền tự động Họ và tên, in ra rồi lại chuyển sang tên khác và lại in, sẽ nhanh hơn là chọn bằng tay và in.
Bạn thử đưa file minh họa lên xem

 

[yeudoi]

Cái này có nhiều trong diễn đàn bạn nên tìm thử nha. Dùng vba để in một loạt danh sách chứ gì

 

[Phanhanhdai]

Chưa hiểu ý bạn lắm, nhưng sao bạn không viết một Macro để điền tự động Họ và tên, in ra rồi lại chuyển sang tên khác và lại in, sẽ nhanh hơn là chọn bằng tay và in.
Bạn thử đưa file minh họa lên xem

Nếu là bác thì bác xử lý như thế này. Em xin gửi file đính kèm

 

[Cao Mạnh Sơn]

Em có một mẫu các biểu giống nhau, chỉ khác thay đổi họ và tên. Em dự định ô họ và tên này em dùng Validation, các bác cho em hỏi có code VBA nào hoặc chức năng có sẵn trong excel để tự động in tất cả các biểu trong danh sách ra không (nếu có đánh số trang theo thứ tự List trong Validatio thì càng tốt). Xin chân thành cảm ơn các bác

sao bạn không sử dụng chức năng Mail Merge của Word với File dữ liệu Excel

 

[cadafi]

Nếu là bác thì bác xử lý như thế này. Em xin gửi file đính kèm

Mình sẽ xử như thế này đây. Bạn xem đoạn code và file đính kèm nhé.

Sub AuToPrint()
Dim Zi As Integer
Sheets("Sheet1").Select
For Zi = 1 To [K1].Value   ''Ô K1 chứa tổng số nhân viên
[F1] = Zi
ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
Next Zi
End Sub

sao bạn không sử dụng chức năng Mail Merge của Word với File dữ liệu Excel

Mail Merge không nhanh và hiệu quả bằng cách trên đâu bạn.