liệt kê các lệnh đã in

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài
Mình đoán có thể là để kiểm soát chi phí văn phòng phẩm, không biết có đúng không.
Không phải. Kiểu này là để kiểm soát xem công việc x-y-z... có thực hiện chưa, ở đâu,. và vào lúc nào.
Nhưng theo tôi kiểu kiểm soát mà chứng từ nằm trong tay một người như vậy chả có giá trị gì cả. Chỉ dùng cho sếp tin rằng mình đang nắm vững cơ quan. Kiểu Từ Hi giao tiền cho Lý Hồng Chương sắm tàu đánh Nhật.
 
Hướng này không ổn đâu em. Nhấn Ctrl P, hoặc Print Preview là nó chạy rồi. :D
Sao em test thì không như anh nói nhỉ, chỉ khi in thì code mới chạy, em dùng office 365
Mã:
Option Explicit
Private x As Long
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    x = x + 1
    Sheets("sheet1").Cells(x, 1) = Timer
End Sub
 
Sao em test thì không như anh nói nhỉ, chỉ khi in thì code mới chạy, em dùng office 365
Mã:
Option Explicit
Private x As Long
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    x = x + 1
    Sheets("sheet1").Cells(x, 1) = Timer
End Sub
Anh mới xem lại. Thì ra do anh dùng đồ cổ nên nó mới vậy chứ từ Excel 2010 sự kiện này chỉ được kích hoạt khi in.
 
xin lỗi bạn nhiều nạ.
có lẻ ngôn ngữ lập trình của bạn nó hơi khác ngôn ngữ của mình nên có phần không hiểu ý nhau. Vậy mình giải thích lại nha.
Sheet (sample plan) mình sẽ gọi là data
sheet (PHIEUYEUCAU)
là hằng ngày bọn mình sẽ xem kế hoạch sản xuất rồi qua sheet data copy số tt yêu cầu ,mình gọi đây là ID nha. ID chỉ có 1 không lặp ạ,
rồi dán số ID này vào số yêu cầu bên sheet PHIEUYEUCAU. Từ ID ngày sẽ chạy ra các thông tin trên phiếu yêu cầu may mẫu --> in thôi.
mình mong muốn mỗi lần nhấn lệnh in cho từng ID (phiếu yêu cầu may mẫu) thì thống kê lại lịch sử của nó mà thông tin đầy đủ như bên sheet Log mà mình lấy từ sheet data qua.
Bạn thử code trong file:
 

File đính kèm

Web KT

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

Back
Top Bottom