Giúp viết code tăng số thứ tự khi bấm nút Print và in trên máy in cố định

[saobekhonglac]

Dear all.

Mình có file excel, mình muốn in thẻ tài theo thứ tự cho khách hàng. Máy tính mình có 3 máy in, 1 máy in kim là mặt định, 1 máy in giấy A4 bình thường, và 1 máy in thẻ tài (máy nhỏ giống như in phiếu tính tiền tại siêu thị). ACE giúp mình viết code để khi bấm nào nút Print thì máy sẽ tự động in thẻ tài (in trên máy in thẻ tài) và số thứ tự tại ô A7 sẽ tăng sau khi bấm nút Print. (ô A7 mình có thể gõ số bất kỳ).

Thanks all.

 

[saobekhonglac]

Hix. Sao không có ai giúp mình hết vậy.

 

[chuot0106]

Dear all.

Mình có file excel, mình muốn in thẻ tài theo thứ tự cho khách hàng. Máy tính mình có 3 máy in, 1 máy in kim là mặt định, 1 máy in giấy A4 bình thường, và 1 máy in thẻ tài (máy nhỏ giống như in phiếu tính tiền tại siêu thị). ACE giúp mình viết code để khi bấm nào nút Print thì máy sẽ tự động in thẻ tài (in trên máy in thẻ tài) và số thứ tự tại ô A7 sẽ tăng sau khi bấm nút Print. (ô A7 mình có thể gõ số bất kỳ).

Thanks all.

1,Về máy in thì bạn có thể chọn thủ công mà. Mất bao nhiêu thời gian đâu?
2, Bạn muốn giá trị ô A7 tăng đến bao nhiêu thì dừng?(Cái này thì đơn giản thôi).

 

[saobekhonglac]

Mình chọn 4 số, ô A7 sẽ từ 0001 đến 9999, bạn làm giúp mình nha.

Thanks bạn

1,Về máy in thì bạn có thể chọn thủ công mà. Mất bao nhiêu thời gian đâu?
2, Bạn muốn giá trị ô A7 tăng đến bao nhiêu thì dừng?(Cái này thì đơn giản thôi).

 

[befaint]

Bạn làm như sau:
Alt + F11
Menu / Insert / Module
Chép đoạn sau vào Module1 vừa tạo:

Sub Button1_Click()
num = Sheet1.Range("A7").Value
Sheet1.Range("A7").Value = num + 1
Sheet1.PrintPreview
End Sub

Nếu cần in tự động theo Form thì tìm trên diễn đàn rất nhiều.
Hoặc vào đây tìm bài in theo form:
https://www.facebook.com/hotroexcel.247

 

[saobekhonglac]

Code của bạn mình làm được, nhưng khi bấm nút Print thì nó chỉ lên dạng view, sau đó phải bấm vào print 1 lần nữa thì mới chọn máy in và in được, bạn chỉnh lại giúp mình khi bấm nút Print là nó sẽ ra luôn máy in mặc định, chỉ cần mình enter là nó in luôn được không.
Thanks.

Bạn làm như sau:
Alt + F11
Menu / Insert / Module
Chép đoạn sau vào Module1 vừa tạo:

Sub Button1_Click()
num = Sheet1.Range("A7").Value
Sheet1.Range("A7").Value = num + 1
Sheet1.PrintPreview
End Sub

Nếu cần in tự động theo Form thì tìm trên diễn đàn rất nhiều.
Hoặc vào đây tìm bài in theo form:
https://www.facebook.com/hotroexcel.247

 

[befaint]

Bác tải file đính kèm về thử xem đúng ý không nhé.

 

[saobekhonglac]

Thanks bạn nhiều. đúng ý mình rồi,