xin macro in tự động ạ

[nvtnet]

em gửi kèm file, các bác giúp em như sau ạ, tạo 1 macro để gắn với 1 nút lệnh, khi nhấn vào nút lệnh đó thì sẽ in ra danh sách của đội số số đội là số trong ô tô màu vàng ạ

 

[phulien1902]

em gửi kèm file, các bác giúp em như sau ạ, tạo 1 macro để gắn với 1 nút lệnh, khi nhấn vào nút lệnh đó thì sẽ in ra danh sách của đội số số đội là số trong ô tô màu vàng ạ

Bạn thử:

Sub Test()
    With Sheets("SHEET")
        If .AutoFilterMode Then .AutoFilterMode = False
        .Range("A7:H7").AutoFilter 8, Range("I2")
        .Range("A7:H862").PrintPreview
        '.Range("A7:H862").PrintOut Copies:=1, Collate:=True
    End With
End Sub

 

[nvtnet]

nó lại bỏ đi cái tiều đề mà chỉ in cái danh sách thôi bác ạ, tức là ko in từ dòng 1 đến dòng 6, chỉnh lại sao đực ạ

Bài đã được tự động gộp: 11/8/19

à em chỉnh được rồi ạ, cảm ơn bác nhiều ạ, chúc bác sức khoẻ

 

[xaydung.vig]

phulien1902 chỉ mình cách in với vẫn không hiểu sao đặt 1 lần in, in dc 40 trang danh sách nén đó? Thanks