Chạy code sau khi in (1 người xem)

[MeThuongNho]

Dear Anh/Chị,
Em có file đính kèm. Có Sub LuuHD().
Em muốn 2 cách thực hiện lưu hóa đơn qua sheet LuuHD như sau:
1. Sau khi chạy lệnh in trang này thì tự động chạy code LuuHD
2. Tạo button in riêng thì khi chạy button này cũng chạy tiếp code LuuHD
( Code trong Sub LuuHD của em học được trên GPE có ổn không, nếu có cách hay hơn mong anh chị sửa giúp )

Cám ơm mọi người nhiều.
Chúc mọi người cuối tuần vui vẻ!

 

[ndu96081631]

Dear Anh/Chị,
Em có file đính kèm. Có Sub LuuHD().
Em muốn 2 cách thực hiện lưu hóa đơn qua sheet LuuHD như sau:
1. Sau khi chạy lệnh in trang này thì tự động chạy code LuuHD
2. Tạo button in riêng thì khi chạy button này cũng chạy tiếp code LuuHD
( Code trong Sub LuuHD của em học được trên GPE có ổn không, nếu có cách hay hơn mong anh chị sửa giúp )

Cám ơm mọi người nhiều.
Chúc mọi người cuối tuần vui vẻ!

Dùng sự kiện Workbook_BeforePrint xem! Có in là code chạy

 

[AnhThu-1976]

Dear Anh/Chị,
Em có file đính kèm. Có Sub LuuHD().
Em muốn 2 cách thực hiện lưu hóa đơn qua sheet LuuHD như sau:
1. Sau khi chạy lệnh in trang này thì tự động chạy code LuuHD
2. Tạo button in riêng thì khi chạy button này cũng chạy tiếp code LuuHD
( Code trong Sub LuuHD của em học được trên GPE có ổn không, nếu có cách hay hơn mong anh chị sửa giúp )

Cám ơm mọi người nhiều.
Chúc mọi người cuối tuần vui vẻ!

http://www.giaiphapexcel.com/diendan/threads/cập-nhật-nội-dung-sang-sheet-khác-có-điều-kiện.133333/

 

[MeThuongNho]

Dùng sự kiện Workbook_BeforePrint xem! Có in là code chạy

Dùng sự kiện đó thì sửa code sao vậy Thầy ndu96081631, giúp em với chứ em không rành code ạh.
Trân trọng!

 

[be_09]

Dear Anh/Chị,
Em có file đính kèm. Có Sub LuuHD().
Em muốn 2 cách thực hiện lưu hóa đơn qua sheet LuuHD như sau:
1. Sau khi chạy lệnh in trang này thì tự động chạy code LuuHD
2. Tạo button in riêng thì khi chạy button này cũng chạy tiếp code LuuHD
( Code trong Sub LuuHD của em học được trên GPE có ổn không, nếu có cách hay hơn mong anh chị sửa giúp )

Cám ơm mọi người nhiều.
Chúc mọi người cuối tuần vui vẻ!

Góp ý cho bạn:
1/ Tôi thấy bạn muốn làm 1 cái hóa đơn nhưng tại sao tên sheet và nút là LuuHD? bạn nên nêu rõ mục đích cần làm cái gì thì sẽ tốt hơn là đưa ra cái trời ơi rồi nhờ người khác làm theo.
2/ Nếu thực sự bạn muốn làm 1 cái hóa đơn thì nên đưa mẫu thực tế lên, tôi nghĩ hóa đơn còn có nhiều loại hàng hóa, nhiều chủng loại, nhiều đơn giá (code của bạn sẽ không dùng được) thì nói chi sửa lại.

 

[MeThuongNho]

Góp ý cho bạn:
1/ Tôi thấy bạn muốn làm 1 cái hóa đơn nhưng tại sao tên sheet và nút là LuuHD? bạn nên nêu rõ mục đích cần làm cái gì thì sẽ tốt hơn là đưa ra cái trời ơi rồi nhờ người khác làm theo.
2/ Nếu thực sự bạn muốn làm 1 cái hóa đơn thì nên đưa mẫu thực tế lên, tôi nghĩ hóa đơn còn có nhiều loại hàng hóa, nhiều chủng loại, nhiều đơn giá (code của bạn sẽ không dùng được) thì nói chi sửa lại.

Cám ơn be09,
Tên sheet và tên nút không là gì hết ( sao cũng được)
Mục đích thì mình ghi rõ rồi mà. ( không liên quan đơn giá hàng hóa hay chủng loại gì đâu)
Cái này chỉ là form in HĐ đã gửi cho từng khách hàng. Khi in thì nhấp nút lưu để lưu sang sheet LuuHD thôi.
Minh muốn khi in xong thì code trong LuuHD chạy luôn, không cần nhấp button đó
Hoặc là nhấp 1 button để in và lưu luôn.
Cám ơn nhiều.

 

[be_09]

Cám ơn be09,
Tên sheet và tên nút không là gì hết ( sao cũng được)
Mục đích thì mình ghi rõ rồi mà. ( không liên quan đơn giá hàng hóa hay chủng loại gì đâu)
Cái này chỉ là form in HĐ đã gửi cho từng khách hàng. Khi in thì nhấp nút lưu để lưu sang sheet LuuHD thôi.
Minh muốn khi in xong thì code trong LuuHD chạy luôn, không cần nhấp button đó
Hoặc là nhấp 1 button để in và lưu luôn.
Cám ơn nhiều.

Thì gán code cho nút in (xóa nút LuuHD đi) sau đó cho dòng Call LuuHD trước dòng End Sub (rồi thử).
.
Call LuuHD
End Sub

 

[MeThuongNho]

Thì gán code cho nút in (xóa nút LuuHD đi) sau đó cho dòng Call LuuHD trước dòng End Sub (rồi thử).
.
Call LuuHD
End Sub

- Cách nhấn button thì mình add Call sub LuuHD được rồi. Cám ơn be09
- Có thể giúp mình cái code còn lại không: chỉ cần nhấn nút print ( nút mặc định của excel , or Ctr+P)
Thân!

 

[be_09]

- Cách nhấn button thì mình add Call sub LuuHD được rồi. Cám ơn be09
- Có thể giúp mình cái code còn lại không: chỉ cần nhấn nút print ( nút mặc định của excel , or Ctr+P)
Thân!

Code còn lại sao tôi không hiểu?

Bài 5 tôi nêu vầy: Nếu thực sự bạn muốn làm 1 cái hóa đơn thì nên đưa mẫu thực tế lên. Sheet print-bia thu bạn làm nữa chừng tôi đọc không hiểu?

 

[MeThuongNho]

Code còn lại sao tôi không hiểu?

Bài 5 tôi nêu vầy: Nếu thực sự bạn muốn làm 1 cái hóa đơn thì nên đưa mẫu thực tế lên. Sheet print-bia thu bạn làm nữa chừng tôi đọc không hiểu?

Code còn lại mình xin nói lại:

1. Sau khi chạy lệnh in trang này thì tự động chạy code LuuHD

Tức là không cần 1 button nào hết. Nhấn lệnh print của Excel -- ra máy in --> in xong là nó lưu qua sheet LuuHD.
Thân!

 

[be_09]

Code còn lại mình xin nói lại:

Tức là không cần 1 button nào hết. Nhấn lệnh print của Excel -- ra máy in --> in xong là nó lưu qua sheet LuuHD.
Thân!

Chẳng cần nhấn lệnh print của Excel, tại sheet In_Bia khi nhập liệu xong bạn chỉ việc click vào vùng F1:F24 thì code chạy. khi chạy code xong thì E1 tự động tăng lên 1 số.

 

[MeThuongNho]

Chẳng cần nhấn lệnh print của Excel, tại sheet In_Bia khi nhập liệu xong bạn chỉ việc click vào vùng F1:F24 thì code chạy. khi chạy code xong thì E1 tự động tăng lên 1 số.

Cám ơn be09 nhiều.
Code rất hay mình sẽ áp dụng cho file sau này.
Tuy nhiên bài này mình cần : "cần ở chỗ phải dùng nút in của excel.... để print layout.... và mục đích cũng để chọn được máy in khi in"

Trân trọng

 

[be_09]

Cám ơn be09 nhiều.
Code rất hay mình sẽ áp dụng cho file sau này.
Tuy nhiên bài này mình cần : "cần ở chỗ phải dùng nút in của excel.... để print layout.... và mục đích cũng để chọn được máy in khi in"

Trân trọng

Nếu đang sử dụng mạng LAN thì thiết lập chọn máy in trước, sau đó click vào vùng F1F24 thì in bình thường.

 

[befaint]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'...
End Sub

 

[MeThuongNho]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'...
End Sub

Cám ơn befaint
nhưng " '..." đó code như thế nào mới chạy được ah
Thân!

 

[be_09]

Cám ơn befaint
nhưng " '..." đó code như thế nào mới chạy được ah
Thân!

Trong cửa sổ VBAProject click phải vào ThisWorkbook chọn View code rồi Paste cái này vào.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
        Call InAn
End Sub

 

[MeThuongNho]

Trong cửa sổ VBAProject click phải vào ThisWorkbook chọn View code rồi Paste cái này vào.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
        Call InAn
End Sub

Cám ơn be09 nhiều nha.
Trời ơi----- ý mình là vậy đó.
Từ đầu mà biết vậy là được rồi. Mình không biết nên cứ để code trong module nên không chạy được ak.
Cám ơn mọi người nhiều!