Dùng lệnh VBA thay cho lệnh Print

[ninhtom1]

Chào các anh chị, em có 1 vấn đề cần các cao thủ giúp đỡ.
Hiện tại file Nhập xuất vật tư của em có phần in Thẻ Kho. Mỗi lần in Thẻ em phải chọn hết tất ả dữ liệu rồi in theo Selection rất mất thời gian.
Các cao thủ giúp em viết code VBA cho nút Print làm sao khi chọn Mã vật tư, ấn nút Print là tự động in hết dữ liệu của Thẻ kho theo mã vật tư được không a. Yêu cầu em có ghi ở Sheet Thẻ Kho nhé.
Em xin chân thành cảm ơn.
File đính kèm của em đây.

 

[vu_tuan_manh_linh]

Câu lệnh đặt vùng in:
ActiveSheet.PageSetup.PrintArea = "A1:J" & Application.WorksheetFunction.Max(Range("A16:A65536")) + 15
Sau đó in bình thường.

 

[ninhtom1]

Cảm ơn bạn đã giúp đỡ nhưng mình chép code của bạn vào sao không in được nhỉ, bạn coi lại giúp mình nhé. Mình muốn đặt PrintArea từ "A12:J15".

 

[vu_tuan_manh_linh]

Cảm ơn bạn đã giúp đỡ nhưng mình chép code của bạn vào sao không in được nhỉ, bạn coi lại giúp mình nhé. Mình muốn đặt PrintArea từ "A12:J15".

Nó đâu có in! Nó chỉ đặt vùng in cho bạn thôi. Còn lệnh in thì như thế này:
ActiveWindow.SelectedSheets.PrintOut

 

[ninhtom1]

Cảm ơn bạn rất nhiều, rất tuyệt vời.

 

[ninhtom1]

Bạn mạnh linh cho tôi hỏi thêm vấn đề về in nữa nhé. Tôi thêm 3 dòng Tổng nhập, Tổng xuất, Tồn cuối kỳ vào cuối của Sheet Thẻ kho. Gio làm sao để in được thêm 3 dòng đó nữa. Xin cảm ơn. File đính kèm mới đây