Cách in nhiều sheet cùng một lúc (1 người xem)

[maiban116]

xin hỏi các Bạn. có code nào in sheet1 sheet 2 sheet 3, sheet 4 cùng 1 lúc được không. mong các Bạn hướng dẫn

 

[♫ђöล♥ßล†♥†µ♫]

xin hỏi các Bạn. có code nào in sheet1 sheet 2 sheet 3, sheet 4 cùng 1 lúc được không. mong các Bạn hướng dẫn

Hình như là không có Anh ạ. Có in liên tục thì được. .

 

[maiban116]

Hình như là không có Anh ạ. Có in liên tục thì được. .

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ề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ề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

 

[maiban116]

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 ah

 

[♫ђöล♥ßล†♥†µ♫]

hì hì. muấn tạo lút bấm in hết mấy sheet đấy đỡ phải chọn bạn ah

Nó dạng kiểu này ạ

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

 

[maiban116]

Nó dạng kiểu này ạ

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

Sao nó báo nỗi bạn ợi. xin hướng dẫn

 

[♫ђöล♥ßล†♥†µ♫]

Sao nó báo nỗi bạn ợi. xin hướng dẫn

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",.....,......)

 

[maiban116]

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ẫn

 

[♫ђöล♥ßล†♥†µ♫]

mình gửi sheet mong bạn hướng dẫn

Cái Arr As Long em viết sai em sửa rồi mà
Arr As Variant

 

[maiban116]

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

 

[maiban116]

Cái Arr As Long em viết sai em sửa rồi mà
Arr As Variant

cài này nỗi với sheet đặt tên. mong bạn xem thử