Xin giúp đỡ code VBA tự động in từng đơn hàng

[duchuan299]

Xin chào các anh/chị GPE,
Mình đang gặp vấn đề phải lặp đi lặp lại công việc in các đơn hàng (PO). Mình muốn nhờ các anh/chị GPE giúp đỡ đoạn code VBA để tự động hóa công việc thay vì phải thực hiện công việc một cách thủ công như hiện tại. Xin chân thành cám ơn các anh/chị GPE đã đọc yêu cầu này.

Mô tả yêu cầu:
1. Filter cột A --> click chọn PO --> In form "Manufacturing Order Pick List" với các thông tin tương ứng với PO vừa click chọn.
2. Filter cột A --> click chọn PO kế tiếp --> In form "Manufacturing Order Pick List" với các thông tin tương ứng với PO kế tiếp vừa click chọn.
3. Làm tuần tự cho đến hết các PO có trong cột A. Số lượng PO trong cột A sẽ thay đổi theo từng ngày.

Kết quả mong muốn:
Chỉ cần click nút "Print" trên form --> excel sẽ tự động in toàn bộ nội dung tương ứng PO theo PO.

 

[Maika8008]

In xoẹt 1 lúc nhiều như thế không sợ hết giấy, kẹt giấy sao?

 

[snow25]

Xin chào các anh/chị GPE,
Mình đang gặp vấn đề phải lặp đi lặp lại công việc in các đơn hàng (PO). Mình muốn nhờ các anh/chị GPE giúp đỡ đoạn code VBA để tự động hóa công việc thay vì phải thực hiện công việc một cách thủ công như hiện tại. Xin chân thành cám ơn các anh/chị GPE đã đọc yêu cầu này.

Mô tả yêu cầu:
1. Filter cột A --> click chọn PO --> In form "Manufacturing Order Pick List" với các thông tin tương ứng với PO vừa click chọn.
2. Filter cột A --> click chọn PO kế tiếp --> In form "Manufacturing Order Pick List" với các thông tin tương ứng với PO kế tiếp vừa click chọn.
3. Làm tuần tự cho đến hết các PO có trong cột A. Số lượng PO trong cột A sẽ thay đổi theo từng ngày.

Kết quả mong muốn:
Chỉ cần click nút "Print" trên form --> excel sẽ tự động in toàn bộ nội dung tương ứng PO theo PO.

Sao không làm cái file in cho nó ở 1 sheets khác rồi in.Tại vì mình không thích làm việc với VBA mà tác động trực tiếp vào Data.

 

[duchuan299]

Sao không làm cái file in cho nó ở 1 sheets khác rồi in.Tại vì mình không thích làm việc với VBA mà tác động trực tiếp vào Data.

Vậy sheet khác sẽ là sheet để in, còn sheet data sẽ là sheet mình sẽ truyền thông tin vào. Nhưng thật ra, mình không biết thực hiện một cách tự động như thế nào. Nhờ bạn hỗ trợ giúp. Xin cám ơn.

Bài đã được tự động gộp: 18/5/23

In xoẹt 1 lúc nhiều như thế không sợ hết giấy, kẹt giấy sao?

Từ trước đến giờ, nếu hết giấy thì bỏ thêm giấy vào. Còn vấn đề kẹt giấy, mình chưa gặp phải. Xin cám ơn đã quan tâm.

 

[Maika8008]

Từ trước đến giờ, nếu hết giấy thì bỏ thêm giấy vào. Còn vấn đề kẹt giấy, mình chưa gặp phải. Xin cám ơn đã quan tâm.

Tôi là dân lười có khả năng lập trình và sau bao lần kẹt giấy, hết mực tốn nhiều giấy để in lại nên tôi chỉ dám in 5 trang, hết bấm in tiếp.

 

[snow25]

Tôi là dân lười có khả năng lập trình và sau bao lần kẹt giấy, hết mực tốn nhiều giấy để in lại nên tôi chỉ dám in 5 trang, hết bấm in tiếp.

Máy họ xịn in được bạn à.Nếu hết giấy thì lệnh in vẫn ở đấy khi nào đủ cho giấy vào thì in tiếp.Và kẹt giấy cũng vậy mà.Bạn viết code đi.

 

[Maika8008]

Máy họ xịn in được bạn à.Nếu hết giấy thì lệnh in vẫn ở đấy khi nào đủ cho giấy vào thì in tiếp.Và kẹt giấy cũng vậy mà.Bạn viết code đi.

Tưởng bạn xong code lâu rồi chứ. Tôi vẫn giữ ý kiến, không code in cả trăm trang như thế.

 

[dangductuong2125]

Xin chào các anh/chị GPE,
Mình đang gặp vấn đề phải lặp đi lặp lại công việc in các đơn hàng (PO). Mình muốn nhờ các anh/chị GPE giúp đỡ đoạn code VBA để tự động hóa công việc thay vì phải thực hiện công việc một cách thủ công như hiện tại. Xin chân thành cám ơn các anh/chị GPE đã đọc yêu cầu này.

Mô tả yêu cầu:
1. Filter cột A --> click chọn PO --> In form "Manufacturing Order Pick List" với các thông tin tương ứng với PO vừa click chọn.
2. Filter cột A --> click chọn PO kế tiếp --> In form "Manufacturing Order Pick List" với các thông tin tương ứng với PO kế tiếp vừa click chọn.
3. Làm tuần tự cho đến hết các PO có trong cột A. Số lượng PO trong cột A sẽ thay đổi theo từng ngày.

Kết quả mong muốn:
Chỉ cần click nút "Print" trên form --> excel sẽ tự động in toàn bộ nội dung tương ứng PO theo PO.

Bạn dùng tạm file này xem sao ( Trước khi IN chuyển sang "Print to PDF" để kiểm tra nhé )

 

[duchuan299]

Bạn dùng tạm file này xem sao ( Trước khi IN chuyển sang "Print to PDF" để kiểm tra nhé )

Mình thử chức năng "Print to PDF", code chạy OK. Nếu được, bạn hỗ trợ mình 2 yêu cầu như bên dưới.

1. Sau khi in xong, xuất hiện hộp thông báo "Đã hoàn tất: SỐ LƯỢNG PO".
2. Sau khi mình click OK từ hộp thông báo trên --> sheet PRINT_PO sẽ được refresh lại trạng thái trước khi thực hiện việc in.

Chân thành cám ơn bạn​

 

[BuiQuangThuan]

1. Sau khi in xong, xuất hiện hộp thông báo "Đã hoàn tất: SỐ LƯỢNG PO".

Cái này thì thêm dòng này vào dưới chữ Wend trong sub IN_LIENTUC

MsgBox "Da hoan thanh: " & i - 4 & " PO"

Còn cái 2 chưa hiểu ý bạn muốn như nào

 

[duchuan299]

Cái này thì thêm dòng này vào dưới chữ Wend trong sub IN_LIENTUC

MsgBox "Da hoan thanh: " & i - 4 & " PO"

Còn cái 2 chưa hiểu ý bạn muốn như nào

Hi bạn,
Cám ơn bạn đã phản hồi. Cái số 2 ý mình như hình.
Sau khi in xong, mình click OK, sheet PRINT_PO sẽ trở về trạng thái như trước khi click nút "IN ẤN"

 

[dangductuong2125]

Thêm dòng code này nữa:
ws.Cells(2, 11).ClearContents
Vì dữ liệu được tham chiếu ô K2