In tất cả trang 1,... của nhiều sheet

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi Anhchuot, 22 Tháng hai 2005.

24,911 lượt xem

  1. Anhchuot

    Anhchuot Lên thớt...

    Bài viết:
    361
    Đã được thích:
    1
    Nơi ở:
    Hanoi
    Các bác cho AC hỏi có cách nào in được tất cả các trang từ 1-n của nhiều sheet cùng một lúc ko nhỉ? (giả sử AC cần in trang 1 của 12 sheet trong tổng số 18 sheet)

    AC tìm mãi trong pupv6... mà ko thấy, có cách nào ko ạ?

    Thanks các bác.
     
    #1
  2. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    Chào,
    Nếu bạn cần thì mình có thể viết thủ tục cho bạn.
    Chúc bạn khoẻ.
    Lê Văn Duyệt
     
    #2
  3. Anhchuot

    Anhchuot Lên thớt...

    Bài viết:
    361
    Đã được thích:
    1
    Nơi ở:
    Hanoi
    Dạ, cám ơn anh. Nếu ko ảnh hưởng thì hy vọng được anh giúp đỡ. Là vì AC hay phải in 12 tháng của đủ các kiểu báo cáo, sổ sách... , cứ mỗi lần in, kích mỏi, mất thời gian lắm ạ.
     
    #3
  4. WhoamI

    WhoamI Thành viên thân thiết

    Bài viết:
    534
    Đã được thích:
    0
    Nơi ở:
    Cố lên, cứ đi rồi sẽ tới!
    Em thường phải Set print area trang 1 của từng sheet sau đó Group các sheet cần in như yêu cầu của chị.(giữ Ctrl + dùng chuột di chuyển đến các sheet cần in). Chắc cũng là cách chị đang làm và vẫn mất công lắm. Vậy nếu có được đoạn mã của anh Duyệt thì tuyệt quá!
     
    #4
  5. Bình_OverAC

    Bình_OverAC Over Abnormal / Crazy

    Bài viết:
    845
    Đã được thích:
    7
    Nơi ở:
    Nha Trang
    Theo em thấy thì làm theo cách của WhoamI la được và hay rồi.
    Chọn nhiều Sheet bằng cách giữ Ctrl sau đó vào Ctrl + P để ra lệnh in
    Chọn "Selection" trong frame "Print what" hoặc nhấn tổ hợp Alt + n
    Thế là xong.
    Nếu thế không xong có nghĩa là em chưa chiều cách của chị Anhchuot. Nếu thế Chị Anhchuot mô tả kỷ hơn nhé.
     
    #5
  6. ForestC

    ForestC Thành viên sơ cấp

    Bài viết:
    377
    Đã được thích:
    1
    Nơi ở:
    E'rywhere
    Anh Duyệt ơi, có phải source code của việc đó như thế này không ạ, có điều là em mới chỉ ví dụ thế thôi, việc còn phải làm nữa là: tên các sheet không phải là như thế, vâng, để hoàn thiện thì khi cái Sheets("Sheet1").Select phải trả về tên của sheet thứ nhất phải không ạ? và đoạn mã này chưa được bẫy lỗi tý nào..., nếu anh đã hoàn thiện đoạn mã của công việc này rồi thì cho em xin để em thao khảo học hỏi thêm nhé, cảm ơn anh trước ...

    Sub Macro2()
    Sheets("Sheet1").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet3").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet4").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet5").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet6").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet7").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet8").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet9").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet10").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet11").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    Sheets("Sheet12").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    End Sub
     
    Last edited: 22 Tháng hai 2005
    #6
    Thai.Nguyen thích bài này.
  7. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    Xin lỗi tất cả! Dạo này mình bị "stress" nhiều quá nên trả lời hơi chậm! Đoạn code nó cũng gần như trên nhưng cần phải thêm một số cái như:
    _Vòng lập để kiểm tra tên các sheet theo yêu cầu.
    _Kiểm tra tên Activesheet nếu có yêu cầu.
    _Thêm bẫy lỗi.
    ....và những gì mà bạn muốn.
    Chúc các bạn thành công.
    Lê Văn Duyệt
     
    #7
  8. Tuanktcdcn

    Tuanktcdcn Lão già ham vui

    Bài viết:
    548
    Đã được thích:
    50
    Nơi ở:
    Hà Nội
    Bạn thử record một Macro và làm điều bạn muốn cho khoảng 2-3 sheet sau đó Stop lại. Bạn mở Macro đó ra xem cách nó làm, sau đó bạn có thể sửa chữa lại- Đây cũng là cách học VBA nhanh nhất.
     
    #8
  9. loilatoi

    loilatoi Thành viên sơ cấp

    Bài viết:
    1
    Đã được thích:
    0
    Giới tính:
    Nam
    #9

Chia sẻ trang này