Tự động lưu lại Ngày -giờ mỗi khi đã in phiếu

[AnhThu-1976]

Các anh chị giúp code như sau
Mỗi khi sheet PGH được in, thì bên sheet Luu sẽ tự động lưu lại thông tin tên số phiếu (ô F1) và ngày giờ in phiếu (lưu ý chỉ cần lưu số phiếu chứ không cần lưu nội dung)
Trường hợp 1 phiếu được in nhiều lần thì vẫn lưu nhiều lần
Ví dụ: phiếu số 1/6 được in lúc 12:02 ngày 08/09 thì sẽ lưu vào sheet Luu
Em cảm ơn!

 

[BuiQuangThuan]

Các anh chị giúp code như sau
Mỗi khi sheet PGH được in, thì bên sheet Luu sẽ tự động lưu lại thông tin tên số phiếu (ô F1) và ngày giờ in phiếu (lưu ý chỉ cần lưu số phiếu chứ không cần lưu nội dung)
Trường hợp 1 phiếu được in nhiều lần thì vẫn lưu nhiều lần
Ví dụ: phiếu số 1/6 được in lúc 12:02 ngày 08/09 thì sẽ lưu vào sheet Luu
Em cảm ơn!

Theo mình nên tạo 1 nút in, Khi in sẽ ghi thời gian thực hiện sang sheet lịch sử luôn

 

[Hoàng Tuấn 868]

Các anh chị giúp code như sau

Giá như thêm chữ "Nhờ" phía trước thì số người muốn giúp chắc không đếm xuể.

 

[Hong.Van]

Theo mình nên tạo 1 nút in, Khi in sẽ ghi thời gian thực hiện sang sheet lịch sử luôn

Em Nhờ anh giúp nhé. Em cảm ơn! kkk

 

[AnhThu-1976]

Theo mình nên tạo 1 nút in, Khi in sẽ ghi thời gian thực hiện sang sheet lịch sử luôn

Anh giúp em nhé, cảm ơn anh trước.

 

[ngocbaovu]

Bạn thử file này xem đúng yêu cầu không? Nếu tạo nút in thì có thể không lưu lịch sử khi in bằng phím tắt. Ở đây mình dùng sự kiện BeforePrint

 

[Giahao2006]

Đoạn code nho nhỏ gửi bạn tham khảo,


Sub Inphieu()
Dim pgh, sluu As Worksheet
Dim dongcuoi, dongcuoi1, dongcuoi_luu As Variant
Dim soto As Long

Application.ScreenUpdating = True
Set pgh = Sheets("PGH")
Set sluu = Sheets("Luu")
dongcuoi_luu = sluu.Cells(sluu.Rows.Count, 1).End(xlUp).Row
With pgh
soto = .Range("K1").Value
dongcuoi = .Cells(.Rows.Count, "F").End(xlUp).Row
dongcuoi1 = "A1:F" & dongcuoi
If .Range("F1").Value = sluu.Range("A" & dongcuoi_luu) And .Range("F" & dongcuoi).Value = sluu.Range("C" & dongcuoi_luu).Value Then
Worksheets.Application.ActiveSheet.Range(dongcuoi1).PrintOut Copies:=soto, Collate:=True
Else
sluu.Range("A" & dongcuoi_luu + 1) = .Range("F1").Value
sluu.Range("B" & dongcuoi1).NumberFormat = "dd/mm/yyyy"
sluu.Range("B" & dongcuoi_luu + 1) = .Range("B2").Value
sluu.Range("C" & dongcuoi_luu + 1) = .Range("F" & dongcuoi).Value
Worksheets.Application.ActiveSheet.Range(dongcuoi1).PrintOut Copies:=soto, Collate:=True
End If
End With
Application.ScreenUpdating = False
End Sub

Bài đã được tự động gộp: 8/9/22

Nếu ngày in (luôn là ngày hiện tại) thì bạn đặt dòng B2 của PGH là now() thì nó sẽ có giờ luôn, khi copy qua sheet lưu sẽ có ngày và giờ luôn

Bài đã được tự động gộp: 8/9/22