Cách Báo trang đã in xong ? (1 người xem)

[nqdn2010]

Tôi muốn in phiếu báo như nội dung trong tập tin đính kèm!
Hệ thống sẽ tự động thông báo khi nội dung đã in rồi và dừng in. Mong sự chỉ giáo! Cám ơn!

 

[viehoai]

Tôi muốn in phiếu báo như nội dung trong tập tin đính kèm!
Hệ thống sẽ tự động thông báo khi nội dung đã in rồi và dừng in. Mong sự chỉ giáo! Cám ơn!

Bạn test code này thử xem nhé. sử dụng cột phụ lưu lại các số đã in (cột J)
[GPECODE=vb]Sub InPhieu()
Dim Rng As Range
Dim i&, n&
n = Sheet2.Range("E3").Value
For i = n To n + 4
Set Rng = Sheet2.Range("J1:J1000").Find(Sheet2.Range("E3").Value)
If Not Rng Is Nothing Then
MsgBox "So " & i & " da in roi ban oi"
Exit Sub
End If
Next
For i = n To n + 4
Sheet2.Range("J65500").End(xlUp).Offset(1).Value = i
Next
Sheet2.PrintOut
End Sub[/GPECODE]

 

[nqdn2010]

Bạn test code này thử xem nhé. sử dụng cột phụ lưu lại các số đã in (cột J)

Tôi test rồi hoạt động rất tốt và như ý của tôi. Có gì phát sinh mong anh chỉ giáo tiếp. Cám ơn anh nhiều!