In nhiều sheet cung 1 lúc

Liên hệ QC

nhamvantrieu

Thành viên mới
Tham gia
19/4/17
Bài viết
39
Được thích
4
Em nhờ các bác viết giúp em 1 đoạn vba in nhiều sheet cung 1 lúc, chỉ in mỗi trang đầu tiên của mỗi sheet đó và không in sheet ẩn
Em cám ơn các bác nhiều
 
Em nhờ các bác viết giúp em 1 đoạn vba in nhiều sheet cung 1 lúc, chỉ in mỗi trang đầu tiên của mỗi sheet đó và không in sheet ẩn
Em cám ơn các bác nhiều
Viết xong rồi mới nhớ ra không biết tên sheets đó là gì và định in từ ô nào đến ô nào, in dọc hay ngang nên lại xóa đi.
 
Upvote 0
Viết xong rồi mới nhớ ra không biết tên sheets đó là gì và định in từ ô nào đến ô nào, in dọc hay ngang nên lại xóa đi.
đây bác, ý em là có thể áp dụng cho nhiều file khác nhau, mỗi sheet in theo kiểu Ctrl+P ra trang đầu tiên là in luôn bác a
 

File đính kèm

  • C19 trạm.xls
    559 KB · Đọc: 8
Upvote 0
Lúc thì nhiều file, lúc thì nhiều sheets, vậy chốt lại là thế nào nhỉ, mà sao đã viết code lại còn phải Ctr+P nữa làm gì.
Ý em là có thể dùng cho tất cả các file, file nào cũng dùng được, mở file đó lên in được tất cả các sheet trên file, chi in trang đầu tiên thôi ( không in sheet ẩn)
 
Upvote 0
Ý em là có thể dùng cho tất cả các file, file nào cũng dùng được, mở file đó lên in được tất cả các sheet trên file, chi in trang đầu tiên thôi ( không in sheet ẩn)
In tất cả các file và các sheets một lần hay thế nào, các trang có trang dài, có trang ngắn thì in trong một trang thôi hay trang dài thì in hai trang.... có bao nhiêu điều kiện nói cụ thể hết một lần đi, cứ lắt nhắt thế này chắc mình không đủ kiên nhẫn để theo mất bạn à.
 
Lần chỉnh sửa cuối:
Upvote 0
In tất cả các file và các sheets một lần hay thế nào, các trang có trang dài, có trang ngắn thì in trong một trang thôi hay trang dài thì in hai trang.... có bao nhiêu điều kiện nói cụ thể hết một lần đi, cứ lắt nhắt thế này chắc mình không đủ kiên nhẫn để theo mất bạn à.
Là mở file excel ra in tất cả các sheet trong file, mỗi sheet đó chỉ in trang đầu tiên đó anh
 
Upvote 0
Em nhờ các bác viết giúp em 1 đoạn vba in nhiều sheet cung 1 lúc, chỉ in mỗi trang đầu tiên của mỗi sheet đó và không in sheet ẩn
Em cám ơn các bác nhiều
Dùng thử nhé, tất nhiên việc căn trang in đã làm trước rồi:

Rich (BB code):
Sub InNhieuSheet_1Sheet1Trang()
Dim Sh As Worksheet
For Each Sh In Worksheets
    If Sh.Visible = xlSheetVisible Then
        Sh.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    End If
Next
End Sub
 
Upvote 0
Dùng thử nhé, tất nhiên việc căn trang in đã làm trước rồi:

Rich (BB code):
Sub InNhieuSheet_1Sheet1Trang()
Dim Sh As Worksheet
For Each Sh In Worksheets
    If Sh.Visible = xlSheetVisible Then
        Sh.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    End If
Next
End Sub
cám ơn anh, em dùng được rồi
Bài đã được tự động gộp:

Nếu vậy thì bạn chỉ cần cài đặt sẵn vùng in cho các sheet rồi khi in chọn chế độ in hết các sheet là được thôi, cần gì phải viết code đâu.
in số lượng lớn, em muốn làm thế cho nhanh anh ạ
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom