Chào các anh chị trên GPE, mình có file này muốn nhờ mọi người xem giúp code VBA để có thể in được hàng loạt theo các điều kiện: Ngày thực hiện, mã sản phẩm và công đoạn. Ví dụ ngày 17/9 có 5 sản phẩm, trong mỗi sản phẩm lại có 10 công đoạn, mình muốn in ra chi tiết như trong sheet "phiếu giao việc" từng công đoạn theo mã sản phẩm và theo ngày. Mỗi công đoạn có thể có nhiều chi tiết nên số dòng sẽ khác nhau, từ đó số trang in sẽ khác nhau. Mình đã tạo được bộ lọc theo ngày, mã sản phẩm và công đoạn rồi nhưng chưa biết cách để tạo ra nút để in hàng loạt theo bộ lọc đó. Nhờ mọi người giúp sức nhé. Chân thành cảm ơn.
Giúp code in hàng loạt theo điều kiện
- Thread starter ducnv0709
- Ngày gửi
Nhattanktnn
Thành viên gắn bó
- Tham gia
- 11/11/16
- Bài viết
- 3,100
- Được thích
- 3,995
- Donate (Momo)
- Giới tính
- Nam
Upvote
0
Đúng rồi bạn ạ, khi chọn ngày bấm nút in là sẽ in ra các bản in theo mã sp và công đoạn. Hiện tại mình đang in thủ công: chọn ngày, chọn mã sản phẩm, chọn công đoạn rồi căn chỉnh dòng xem dòng nào không có dữ liệu thì ẩn đi rồi mới in ra nên mất rất nhiều thời gian. Vì vậy có code để in được hết thì tốt quá. Cảm ơn bạn.
Upvote
0
Nhattanktnn
Thành viên gắn bó
- Tham gia
- 11/11/16
- Bài viết
- 3,100
- Được thích
- 3,995
- Donate (Momo)
- Giới tính
- Nam
Khi in thì bạn không cần thiết phải bấm nút unhide, nhưng trong file mình làm thêm để bạn tiện kiểm tra nếu cần
Mục chữ ký mình gộp 2 dòng vào thành 1 dòng, tránh trường hợp khi in một dòng trang trước, dòng trang sau
PHP:
Const SigRow As Long = 121
Const FirstRow As Long = 7
Private Sub Print_Out()
Dim Lr As Long
Application.ScreenUpdating = False
With Sheet5
Call Unhide
Lr = .Columns("B").Find("*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows, LookIn:=xlValues).Row
If Lr <= FirstRow Then
MsgBox "Chua co du lieu"
Exit Sub
End If
.Rows(Lr + 1 & ":" & SigRow - 2).Hidden = True
.PrintOut
End With
Application.ScreenUpdating = True
End Sub
Private Sub Unhide()
With Sheet5
.Rows(FirstRow & ":" & .Range("B" & Rows.Count).Row).Hidden = False
End With
End Sub
Upvote
0
Cảm ơn bạn rất nhiều, mình sẽ xem thử nhé.
Upvote
0
Bạn ơi cho mình hỏi chút là hiện tại mới in được 1 công đoạn hay 1 mã sản phẩm thôi à, ý mình mong muốn là sẽ xuất in ra tất cả các công đoạn và mã sản phẩm theo ngày đó. ví dụ ngày 18 có 5 sản phẩm, mỗi sản phẩm có 10 công đoạn như vậy sẽ có 5x10=50 bản in theo từng công đoạn và mã sản phẩm của ngày đó.
Upvote
0
Nhờ mọi người thêm code giúp mình nhé. Cảm ơn nhiều
Upvote
0
BuiQuangThuan
❆❆❆❆❆❆❆❆❆❆❆❆
- Tham gia
- 17/12/10
- Bài viết
- 2,455
- Được thích
- 2,914
- Giới tính
- Nam
Bạn tạo ra 1 sheet nguồn nữa. Bao gồm Công đoạn. ID sản phẩm.
Upvote
0
Cảm ơn bạn, vì mình chưa hiểu lắm về code VBA nên chưa tự viết ra được, nhờ mọi người chỉ dẫn.
Upvote
0
Nhờ mọi người thêm code giúp mình được không ạ. Mình cảm ơn nhiều.
Upvote
0
Híc, có bạn nào giúp mình được đoạn code này không. Cảm ơn rất nhiều.
Upvote
0
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,125
- Được thích
- 17,581
- Giới tính
- Nam
Tên Sheet mà có dấu tiếng Việt thì làm khó nhau trong VBA rồi.
Tôi không có máy in, nên bạn tìm dòng bên dưới,Thay PrintPreview thành PrintOut
PHP:
.Range("A1:Q205").PrintPreview 'PrintOut'
Upvote
0
Dạ vâng anh. Em sẽ nghiên cứu thử anh nhé. Em cảm ơn nhiều
Upvote
0
Cảm ơn anh rất nhiều vì file chạy rất tốt và em sẽ lưu ý khi đặt tên sheet. Nếu được anh có thể chỉnh lại code để cho chỉ chạy theo ngày được không ạ vì hiện tại theo file của anh làm đang chạy theo chọn ngày và mã sản phẩm. Thực tế em mong muốn sẽ chỉ chọn ngày thì sẽ in toàn bộ các công đoạn của các mã sản phẩm có trong ngày đó vì nếu để chọn cả ngày và mã sản phẩm thì không rõ trong ngày đó có bao nhiêu mã sản phẩm để chọn. Nếu phức tạp quá thì em dùng file này cũng là ổn rồi ạ. Em cảm ơn.
Upvote
0
Cảm ơn anh nhiều nhé
Upvote
0
Bài viết mới nhất
- Question
