Nhờ các ACE sửa lỗi VBA Uniform lệnh in trong EXCEL (3 người xem)

[tuananh1202]

các Anh chị em giúp em sửa lỗi và xem em em bị sai chỗ nào mà lệnh oke vẫn không chạy được ạ. em là lính mới, copy được một số code của anh sealand, nhưng áp vô bảng của em thì không chạy đc.
Em cám ơn anh chị.

 

[ndu96081631]

các Anh chị em giúp em sửa lỗi và xem em em bị sai chỗ nào mà lệnh oke vẫn không chạy được ạ. em là lính mới, copy được một số code của anh sealand, nhưng áp vô bảng của em thì không chạy đc.
Em cám ơn anh chị.

Vừa mở file đã báo lỗi ngay tại hàm này:

Function[B][COLOR=#ff0000] Sheet[/COLOR][/B]()
Application.Volatile
Sheet = Application.ThisCell.Parent.Name
End Function

Hết tên đặt rồi hay sao lại lấy đúng ngay từ khóa của Excel đặt cho hàm vậy bạn?

 

[tuananh1202]

Báo cáo bác, cái hàm này là em dùng để lấy tên Sheet, làm giá trị cho Cell. Vì em có thói quen sửa tên sheet thì Tiêu đề của trang cũng nhảy theo. Ví dụ khi em gõ lệnh =Sheet() vào ô A1. Thì tại Cell A1 đó sẽ trả về giá trị của tên Sheet. Trong bản của em có 2 module không cần quan tâm là module tấy tên sheet làm tên tiêu đề, và module Unhide tất cả các sheet.

Bác không cần quan tâm đến Module đó đâu ạ. các Anh chị, các bác nào có thể giải quyết giúp em cái uniform ấy ạ. Em thử hết cách nhưng khi nhấn nút Print, hiện ra bảng tùy chọn, sau đó nhấn lệnh Print thì máy vẫn ko thực hiện lệnh in ạ.

Em bị bế tắc, vì em quá gà nên đi coppy của bác sealand, nên bây giờ không biết bị làm sao luôn...

 

[tuananh1202]

Vừa mở file đã báo lỗi ngay tại hàm này:

Function[B][COLOR=#ff0000] Sheet[/COLOR][/B]()
Application.Volatile
Sheet = Application.ThisCell.Parent.Name
End Function

Hết tên đặt rồi hay sao lại lấy đúng ngay từ khóa của Excel đặt cho hàm vậy bạn?

Dạ vâng, cái đó không sao cả bác ạ, em có thể đặt lại là "Tensheet" cũng được, mặc dù sao nó chạy vẫn ổn, không báo lỗi bác ạ...hjhj

 

[ndu96081631]

Báo cáo bác, cái hàm này là em dùng để lấy tên Sheet, làm giá trị cho Cell. Vì em có thói quen sửa tên sheet thì Tiêu đề của trang cũng nhảy theo. Ví dụ khi em gõ lệnh =Sheet() vào ô A1. Thì tại Cell A1 đó sẽ trả về giá trị của tên Sheet. Trong bản của em có 2 module không cần quan tâm là module tấy tên sheet làm tên tiêu đề, và module Unhide tất cả các sheet.

Bác không cần quan tâm đến Module đó đâu ạ. các Anh chị, các bác nào có thể giải quyết giúp em cái uniform ấy ạ. Em thử hết cách nhưng khi nhấn nút Print, hiện ra bảng tùy chọn, sau đó nhấn lệnh Print thì máy vẫn ko thực hiện lệnh in ạ.

Em bị bế tắc, vì em quá gà nên đi coppy của bác sealand, nên bây giờ không biết bị làm sao luôn...

Thì code trong file của bạn có chỗ nào liên quan đến Print đâu mà kêu nó print chứ. Nói chung code nó vậy thì nó mần vậy

 

[befaint]

Dạ vâng, cái đó không sao cả bác ạ, em có thể đặt lại là "Tensheet" cũng được, mặc dù sao nó chạy vẫn ổn, không báo lỗi bác ạ...hjhj

Tìm Sub PrintID rồi thay thế:

Sub PrintID(ByVal ID As Variant, n As Integer)
    Dim shPrint As Worksheet
    Set shPrint = ActiveSheet
    shPrint.Range("I1").Value = ID
    shPrint.Calculate
    shPrint.PrintOut , , n
    Set shPrint = Nothing
End Sub

 

[NguyenNgocThuHien]

Đã xem file của bạn, có vẻ bạn đang muốn in một sheet với các dữ liệu khác nhau. Bạn có thể xem video sau, chỉ việc add code, không phải lập trình gì nữa.
[video=youtube;EJe90QMl7x0]https://www.youtube.com/watch?v=EJe90QMl7x0[/video]

 

[tuananh1202]

Thì code trong file của bạn có chỗ nào liên quan đến Print đâu mà kêu nó print chứ. Nói chung code nó vậy thì nó mần vậy

Dạ thưa bác, không biết bác có nhã ý giúp em hay là chê bai em nữa ạ, hjx. Em copy cái code, rồi chế cháo lại, nó dài hơn trang giấy A4, để chạy lệnh in cho cho cái UserForm mà sao bác bảo không có cái nào liên qua đến lệnh in, vậy thì em cũng đến chịu ạ, bác xem cái code Userform giúp em, chứ bác xem mấy cái Module làm chi ạ, mấy cái module nó làm gì có cái nào là liên quan đến in là đúng rồi. hjxxx.

 

[tuananh1202]

Tìm Sub PrintID rồi thay thế:

Sub PrintID(ByVal ID As Variant, n As Integer)
    Dim shPrint As Worksheet
    Set shPrint = ActiveSheet
    shPrint.Range("I1").Value = ID
    shPrint.Calculate
    shPrint.PrintOut , , n
    Set shPrint = Nothing
End Sub

Cám ơn bác Befaint . Em đã in được rồi, và tìm ra lỗi của mình, chắc do em tham lam muốn thêm 1 cái messbox thông báo khi nhấn lệnh in nên máy đã không hiểu, bây giờ em xóa lệnh hiện messbox và đơn giản như của bác thì em đã in được, Cám ơn bác nhiều nhé. Đúng là tham lam quá cũng không tốt...hjhj. Cám ơn bác rất nhiều.

Em có gửi kèm file đã chỉnh sửa... chạy trơn tru rất tốt ạ.

 

[befaint]

chắc do em tham lam muốn thêm 1 cái messbox thông báo khi nhấn lệnh in nên máy đã không hiểu, bây giờ em xóa lệnh hiện messbox và đơn giản như của bác thì em đã in được,.

Em có gửi kèm file đã chỉnh sửa... chạy trơn tru rất tốt ạ.

.PrintPreview không có thuộc tính số bản in (Copies) nên bị lỗi.

Msgbox không lỗi.

 

[tuananh1202]

.PrintPreview không có thuộc tính số bản in (Copies) nên bị lỗi.

Msgbox không lỗi.

Bác ạ. em không hiểu sao khi đổi thành Printout và để msgbox thì vẫn không nhận lệnh in ra máy in, em đã thử để lại msgbox và dùng lần lượt các lệnh PrintPreview và Printout, thì Msgbox vẫn chạy nhưng lệnh in ko chuyển ra máy in được. em bị bế tắc ở lúc đó.nhưng ko sao, bjo bỏ đc lệnh msgbox cũng tiện, đỡ rườm rà. rất cám ơn bác.

 

[tuananh1202]

em cám ơn chị nhiều ạ, Video rất hữu ích

 

[tuananh1202]

Đã xem file của bạn, có vẻ bạn đang muốn in một sheet với các dữ liệu khác nhau. Bạn có thể xem video sau, chỉ việc add code, không phải lập trình gì nữa.
[video=youtube;EJe90QMl7x0]https://www.youtube.com/watch?v=EJe90QMl7x0[/video]

em cám ơn chị nhiều ạ, Video rất hữu ích

 

[Thong Hoang Tien 250691]

Tìm Sub PrintID rồi thay thế:

Sub PrintID(ByVal ID As Variant, n As Integer)
    Dim shPrint As Worksheet
    Set shPrint = ActiveSheet
    shPrint.Range("I1").Value = ID
    shPrint.Calculate
    shPrint.PrintOut , , n
    Set shPrint = Nothing
End Sub

nếu không muốn file đươc in bằng tay (Ctrl+P hay file\print) thì phải viết code như thế nào ạ?

 

[befaint]

nếu không muốn file đươc in bằng tay (Ctrl+P hay file\print) thì phải viết code như thế nào ạ?

Mình không rõ đâu.
Có thể là protect sheet hoặc tháo phím P cất kỹ đi...

 

[Thong Hoang Tien 250691]

nếu không muốn file đươc in bằng tay (Ctrl+P hay file\print) thì phải viết code như thế nào ạ?

bạn dùng sự kiện beforeprint thì đỡ bị mất phím P như befaint nói

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub