Tạo nút nhấn để đặt lệnh in (2 người xem)

[hoangtuankhanh]

Kính cháo các anh chị!
Đầu lời em xin chân thành cảm ơn các anh chị, cảm ơn Giải pháp Excel đã giúp em rất nhiều kiến thức và tiện ích trong công việc do Excel mang lại. Hy vọng rằng Giải pháp Excel sẽ ngày càng phát triển để giúp nhiều người như em hoàn thiện thêm kiến thức về Excel. Tiện đây, các anh chị làm ơn cho em hỏi có cách nào để mình tạo một nút nhấn trên bảng tính Excel để chỉ việc click chuột vào nút nhấn thì sẽ in các sheet trong file excel theo số lượng trang in và số bản in được. Nếu có thể thì làm ơn viết hộ em đoạn code đó và cách thiết lập.
Em xin chân thành cảm ơn, và chúc anh chị mọi sự may mắn!
Chân thành!
Hoàng Tuấn Khanh

 

[XuanThanh]

Kính cháo các anh chị!
Đầu lời em xin chân thành cảm ơn các anh chị, cảm ơn Giải pháp Excel đã giúp em rất nhiều kiến thức và tiện ích trong công việc do Excel mang lại. Hy vọng rằng Giải pháp Excel sẽ ngày càng phát triển để giúp nhiều người như em hoàn thiện thêm kiến thức về Excel. Tiện đây, các anh chị làm ơn cho em hỏi có cách nào để mình tạo một nút nhấn trên bảng tính Excel để chỉ việc click chuột vào nút nhấn thì sẽ in các sheet trong file excel theo số lượng trang in và số bản in được. Nếu có thể thì làm ơn viết hộ em đoạn code đó và cách thiết lập.
Em xin chân thành cảm ơn, và chúc anh chị mọi sự may mắn!
Chân thành!
Hoàng Tuấn Khanh

1/ Bạn gửi thiếu một files nên chưa giúp cụ thể cho bạn được
2/ Bạn cứ thử làm một RecordMacro rồi nhấn Alt+F11 ngâm cứu sẽ ra vấn đề đấy

 

[ongtrungducmx25]

bạn thử dùng UF này xem có giúp ích gì cho bạn không nhé!

 

[daminhlt]

Đại loại là dzầy xem co được không?

 

[ongtrungducmx25]

cái này chỉ in được một trang thôi nhé!

 

[nvson]

bạn thử dùng UF này xem có giúp ích gì cho bạn không nhé!

Góp ý:
Trong chương trình bạn viết

For i = i To Me.TextBox2
    ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate:=True
    i = i + 1
Next

Bạn nên viết như sau:

For i = i To Me.TextBox2 Step 2
    ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate:=True
Next

 

[ongtrungducmx25]

là sao zay pác em thấy nó vẫn hoạt động bình thường mà!

 

[nvson]

Chương trình của bạn vẫn hoạt động bình thường.
Nhưng trong cú pháp của lệnh For .... Next có thông số Step (bước nhảy của lệnh), bạn dùng luôn cú pháp này (step = 2) thay vì phải tăng biến i lên 1 (i = i +1). >>> Dòng lệnh có vẻ "chuyên nghiệp" hơn