giúp minh lệnh printpriview từ form (1 người xem)

[kuvi1324]

tình hình là mình tạo một userform bằng vba, trong đó có nút với chức năng priview 1 sheet trước khi in, khi bấm nút này thì xem được trang priview, nhưng khi thoát khỏi trang priview thì làm sao để userform vẫn nằm im đó với những thông tin mình đã nhập (mình làm nhưng trang userform mất, mở lên lại thì thông tin nhập vào không còn nữa)
lệnh của mình:
private sub .....
unload me
sheet2.printpriview:=true
end sub

 

[Hoàng Trọng Nghĩa]

Đây là thủ tục để bạn xem trước trang in, khi thoát xem trước thì trở lại form, nhưng vẫn giữ được những gì đã nhập trên form này:

Private Sub CommandButton1_Click()
    Me.Hide
    Sheet2.Select
    ActiveWindow.SelectedSheets.PrintPreview
    Me.Show
End Sub

 

[kuvi1324]

thank bạn nhiều lắm
mình hỏi thêm chút
mình muốn khi mở excel lên là hiện lên userform1 luôn
mình dùng userform1.show rồi mà không được

 

[nghiaphuc]

thank bạn nhiều lắm
mình hỏi thêm chút
mình muốn khi mở excel lên là hiện lên userform1 luôn
mình dùng userform1.show rồi mà không được

Bạn phải đưa câu lệnh trên vào Sub WorkBook_Open của đối tượng ThisWorkbook hoặc vào Sub Autpen trên Module mới được.

 

[kuvi1324]

nó báo lỗi run-time error 400
form already displayed; can't show modally

 

[nghiaphuc]

nó báo lỗi run-time error 400
form already displayed; can't show modally

Bạn đưa cái file đó lên đây xem nào. Chẳng lẽ lại có 2 "đứa" cùng gọi cái Form này lên?!

 

[kuvi1324]

tại mình không biết cách tự hiện form lên nên mình tạo một button trong sheet1 cũng dùng lệnh trên @@

 

[nghiaphuc]

tại mình không biết cách tự hiện form lên nên mình tạo một button trong sheet1 cũng dùng lệnh trên @@

Vấn đề ở chỗ nút lệnh trên sheet thì chỉ khi nào bạn nhấn thì nó mới có tác dụng, còn nếu đưa câu lệnh vào 1 trong 2 sub trên kia thì nó sẽ được tự động kích hoạt khi mở file. Do đó tôi thấy lạ khi gặp lỗi trên. Bạn không thể đưa cái file đó lên đây được à?

 

[kuvi1324]

chương trình mình dung lượng lớn hơn cho phép rồi
mình tạo mới một workbook thì làm được
chứ cái của mình thì pó tay
chắc chồng chéo ông nội nào đó trong mấy cái sub rồi

 

[Bảy Dzõ]

chương trình mình dung lượng lớn hơn cho phép rồi
mình tạo mới một workbook thì làm được
chứ cái của mình thì pó tay
chắc chồng chéo ông nội nào đó trong mấy cái sub rồi

Bạn nén file lại hoặc xoá bớt dữ liệu (chỉ cần để vài cái làm ví dụ) rồi đưa lên cho anh/chị xem chứ ngồi tưởng tượng ra thì hơi căng à. Thân.

 

[kuvi1324]

mình click đúp vào thisworkbook trong vba chỉ thấy mỗi 1 sub này à

Private Sub Workbook_Open()
UserForm1.Show
End Sub



thế mày vẫn báo lỗi

để mình xóa bớt rồi gửi lên cho bạn xem thử

 

[kuvi1324]

Bạn nén file lại hoặc xoá bớt dữ liệu (chỉ cần để vài cái làm ví dụ) rồi đưa lên cho anh/chị xem chứ ngồi tưởng tượng ra thì hơi căng à. Thân.

View attachment ph_n m_m hoàn ch_nh1.rar

file của mình ........................................................

 

[nghiaphuc]

View attachment 102335

đó bạn, khổ tâm

Khi thì không có file, khi thì bạn tung một lần 3 file lên.
Tôi thấy trong UserForm1 có sub này:

Private Sub UserForm_Initialize()
    Call MinMax(UserForm1.Caption)
End Sub

Nhấn F8 thì code chạy từng câu lệnh, code gọi sub MinMax, và trong sub này có câu lệnh:

SetWindowPos hWndForm, HWND_NOTOPMOST, 0, 0, 806, 632, SWP_SHOWWINDOW

Câu lệnh này mở Form lên và vấn đề xuất phát từ anh chàng này (tôi chỉ phát hiện ra đến vậy chứ chưa đủ trình để hiểu nó). Bạn bỏ Sub UserForm_Initialize đi là hiện Form được.

 

[Hoàng Trọng Nghĩa]

View attachment 102337

file của mình ........................................................

Bạn cứ gửi bài lên tùm lum thế! 1 bài được rồi!

Bạn thay thủ tục trong form này:

Private Sub UserForm_Initialize()
    Call MinMax(Me.Caption)
End Sub

Thành:

Private Sub UserForm_Activate()
    Call MinMax(Me.Caption)
End Sub

là được! Thử xem.

 

[kuvi1324]

được rồi, cảm ơn bạn nha
mình gửi 3 lần vì nó nhảy qua trang 2 mình không để ý nên tưởng là chưa úp file đó mà
thank bạn nhiều