Gán sự điều kiện cho nút in và save (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

thanhsangnguyen1982

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia
21/12/10
Bài viết
875
Được thích
499
Nghề nghiệp
Accounting - Auditing
Chào các A/C:
Trong quá trình làm fil bán hàng có vướng, chưa nghĩ ra
Tôi có 2 nút lệnh: Nút SAVE và nút IN
- Khi nhập số liệu xong hết thì sẽ SAVE lại rồi mới in. Nếu quên chưa nhấn nút SAVE mà nhấn nút IN thì khi nhấn nút IN sẽ hiện ra thông báo

Cảm ơn A/C
 

File đính kèm

Chào các A/C:
Trong quá trình làm fil bán hàng có vướng, chưa nghĩ ra
Tôi có 2 nút lệnh: Nút SAVE và nút IN
- Khi nhập số liệu xong hết thì sẽ SAVE lại rồi mới in. Nếu quên chưa nhấn nút SAVE mà nhấn nút IN thì khi nhấn nút IN sẽ hiện ra thông báo

Cảm ơn A/C

thì ở sự kiện before print
thisworkbook.save
 
Upvote 0
Cám ơn bạn đã quan tâm. Bạn xem lại file của mình, nút save của mình có ý nghia là chuyển dữ liệu của hoá đơn mới lập sang một sheet khác để lưu lại thông tin tại đó. chứ không phải đơn thuần là save cả workbook
 
Upvote 0
Chào các A/C:
Trong quá trình làm fil bán hàng có vướng, chưa nghĩ ra
Tôi có 2 nút lệnh: Nút SAVE và nút IN
- Khi nhập số liệu xong hết thì sẽ SAVE lại rồi mới in. Nếu quên chưa nhấn nút SAVE mà nhấn nút IN thì khi nhấn nút IN sẽ hiện ra thông báo

Cảm ơn A/C

Chưa xem file bạn nhưng bạn có thể thực hiện theo các bước sau:
1/ Khai báo 1 biến Check ở đầu Module
Mã:
Public Check As Boolean
2/ Tiến hành gán giá trị cho Check tại 2 nút lệnh
+/ Save: đặt Check =1
+/ In: có phần kiểm tra Check nếu =1 thì in và đặt Check=0 ngược lại thì thông báo
 
Upvote 0
Thanks bạn , để mình thử.
 
Upvote 0
Còn một tí trục trặc
đã làm theo cách của bạn nhưng khi in xong đóng workbook rồi mở ra thì biến check mới có tác dụng trở lại. Nếu in xong rồi lập tiếp hoá đơn kế tiếp thì biến check không có tác dụng. có cách nào giả quyết không bạn.
 
Upvote 0
Còn một tí trục trặc
đã làm theo cách của bạn nhưng khi in xong đóng workbook rồi mở ra thì biến check mới có tác dụng trở lại. Nếu in xong rồi lập tiếp hoá đơn kế tiếp thì biến check không có tác dụng. có cách nào giả quyết không bạn.

bạn thử khai báo biến check

Dim check As Double

rồi ở sub
Private Sub CANCEL1_Click()
Application.ScreenUpdating = False
Range("B7,C12:C22,G12:G22").ClearContents
check = 0
Application.ScreenUpdating = True
End Sub
...............................
góp ý nhỏ, bạn bỏ mấy cái select đi, nó làm cho code chạy chậm mà màn hình cà giựt nữa
thí dụ vậy
Columns("F").Select
Selection.EntireColumn.Hidden = True
bạn chỉ cần viết vậy
Columns("F").EntireColumn.Hidden = True

hay như
Range("I3").Select
Selection.Copy
Range("J3").Select
Selection.PasteSpecial Paste:=xlPasteValues

bạn viết lại như vậy
Range("I3").Copy
Range("J3").PasteSpecial Paste:=xlPasteValues
hoặc
[I3].Copy
[J3].PasteSpecial 3
 
Upvote 0

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

Back
Top Bottom