VBA cách in từ trang đến trang......theo giá trị một ô trong excel

[chendang123]

Nhờ các anh giúp giùm mình
mình muốn in từ trang 1 đến trang X (from 1 to.......)
Trang X này lấy số liệu từ 1 cell trong Excel
Ví dụ: ô A1 đánh số 10 thì khi thực hiện lệnh in macro sẽ in từ trang 1 đến trang 10 .

 

[HUONGHCKT]

Nhờ các anh giúp giùm mình
mình muốn in từ trang 1 đến trang X (from 1 to.......)
Trang X này lấy số liệu từ 1 cell trong Excel
Ví dụ: ô A1 đánh số 10 thì khi thực hiện lệnh in macro sẽ in từ trang 1 đến trang 10 .

Thử cách này xem:
Ví dụ Ô A1 là ô chứa trang cuối cùng cần in (muốn in từ trang 1 đến trang có số thứ tự ở ô A1 này), Ô A2 là số bản in
Thì chạy sub sau

Sub In()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Range("A1"), Copies:=Range("A2"), Collate _
        :=True
end sub

 

[chendang123]

Thử cách này xem:
Ví dụ Ô A1 là ô chứa trang cuối cùng cần in (muốn in từ trang 1 đến trang có số thứ tự ở ô A1 này), Ô A2 là số bản in
Thì chạy sub sau

Sub In()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Range("A1"), Copies:=Range("A2"), Collate _
        :=True
end sub

Lúc đang rất cần mà nhận được câu trả lời vui quá ạ, cảm ơn bạn nhiều lắm. Mình thử thấy ok lắm ạ, nhưng trường hợp mình lại có 2 sheet. Ví dụ sheet 2 có 10 trang cần in. Ô A1 ở sheet 1 có giá trị là 3. Mình muốn nhấn nút in ở sheet 1 thì sẽ in từ trang 1 đến trang 3 ở sheet 2 thì có được kg ạ. Mình gửi mẫu để dễ hình dung vì mình không biết cách diễn đạt rõ lắm.

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

Lúc đang rất cần mà nhận được câu trả lời vui quá ạ, cảm ơn bạn nhiều lắm. Mình thử thấy ok lắm ạ, nhưng trường hợp mình lại có 2 sheet. Ví dụ sheet 2 có 10 trang cần in. Ô A1 ở sheet 1 có giá trị là 3. Mình muốn nhấn nút in ở sheet 1 thì sẽ in từ trang 1 đến trang 3 ở sheet 2 thì có được kg ạ. Mình gửi mẫu để dễ hình dung vì mình không biết cách diễn đạt rõ lắm.

Ví ụ Nếu mình thay đổi ô a1 từ số 3 thành số 5 thì khi bấm nút in sẽ in từ trang 1 đến trang 5 của sheet 2.

 

[chendang123]

Thử cách này xem:
Ví dụ Ô A1 là ô chứa trang cuối cùng cần in (muốn in từ trang 1 đến trang có số thứ tự ở ô A1 này), Ô A2 là số bản in
Thì chạy sub sau

Sub In()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Range("A1"), Copies:=Range("A2"), Collate _
        :=True
end sub

Dạ mình làm được rồi ạ, mình copy code của bạn đổi thành sheet 2 nó được rồi ạ, cảm ơn bạn rất nhiều. Thật sự cảm ơn bạn
Sub IN()
Sheets("2").PrintOut From:=1, To:=Range("B2"), Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End Sub

 

[HUONGHCKT]

Dạ mình làm được rồi ạ, mình copy code của bạn đổi thành sheet 2 nó được rồi ạ, cảm ơn bạn rất nhiều. Thật sự cảm ơn bạn
Sub IN()
Sheets("2").PrintOut From:=1, To:=Range("B2"), Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End Sub

Bạn vẫn nên để là ActiveSheet. Và ở sheet1 và sheet2 bạn tạo mỗi trên mỗi sh ấy 1 nút bấm Và Assign Macro vào Sub In ấy là được.