Cách in nhiều sheet cùng một lúc (2 người xem)
- Thread starter maiban116
- Ngày gửi
Người dùng đang xem chủ đề này
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
khó nhỉ. chỉ cần in mấy sheet cần thôi. in hết thì không cần code. cảm ơn bạn nhiềuHình như là không có Anh ạ. Có in liên tục thì được..
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Vậy thì cho In hết Sheet này thì đến Sheet kia. Mỗi lần máy in chạy được có 1 tờ à. Sao mà in cùng lúc được
hì hì. muấn tạo lút bấm in hết mấy sheet đấy đỡ phải chọn bạn ahVậy thì cho In hết Sheet này thì đến Sheet kia. Mỗi lần máy in chạy được có 1 tờ à. Sao mà in cùng lúc được
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Nó dạng kiểu này ạ
Mã:
Sub PrintData()
Dim Arr As Variant, I As Long
Arr = Array("Sheet1", "Sheet3", "gi gi do")
For I = LBound(Arr) To UBound(Arr)
Sheets(Arr(I)).PrintOut
Next I
End Sub
Lần chỉnh sửa cuối:
Sao nó báo nỗi bạn ợi. xin hướng dẫn
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Em đảm bảo cái này làm gì có "báo nỗi" được ạ. Có báo lỗi thì có.
Liệt kê tất cả các Sheet cần in vào trong Array("tên Sheet cần in 1", "tên Sheet cần in 2", "tên Sheet cần in 3",.....,......)
mình gửi sheet mong bạn hướng dẫnEm đảm bảo cái này làm gì có "báo nỗi" được ạ. Có báo lỗi thì có.
Liệt kê tất cả các Sheet cần in vào trong Array("tên Sheet cần in 1", "tên Sheet cần in 2", "tên Sheet cần in 3",.....,......)
♫ђöล♥ßล†♥†µ♫
Thành viên tiêu biểu
- Tham gia
- 10/3/18
- Bài viết
- 684
- Được thích
- 1,443
- Giới tính
- Nữ
- Nghề nghiệp
- Worksheet Function trong VBA , Thư viện mã lập trình, Scripting.Dictionary, Sổ tay VBA, Các hàm dò tìm và tham chiếu
Cái Arr As Long em viết sai em sửa rồi mà
Arr As Variant
ok cám ơn bạn nhiều nhiều. chúc bạn một ngày tốt lành
cài này nỗi với sheet đặt tên. mong bạn xem thử
Lần chỉnh sửa cuối:
