Xin giúp đỡ về Form, Code và Các Controls (1 người xem)

[cartoon18]

em có ý tưởng tạo một form trong đó có các check box, nếu đánh dấu vào check box nào thì khi bấm button xem trước sẽ cho xem trang tương ứng bằng PrintPreview, nhưng em gặp phải vấn đề là khi tắt Printpreview thì Form không show lên nữa, các bác giúp em giải quyết vấn đề này với ah,

 

[vodoi2x]

em có ý tưởng tạo một form trong đó có các check box, nếu đánh dấu vào check box nào thì khi bấm button xem trước sẽ cho xem trang tương ứng bằng PrintPreview, nhưng em gặp phải vấn đề là khi tắt Printpreview thì Form không show lên nữa, các bác giúp em giải quyết vấn đề này với ah,

Đơn giản sửa code Sub CM_XEMTRUOC_Click() thành như sau, là xong

Private Sub CM_XEMTRUOC_Click()
    Me.Hide
    With ActiveWorkbook.Sheets("Sheet1")
        If CB_HS1 = True Then .Range("A1:H53").PrintPreview
        If CB_HS2 = True Then .Range("A54:H106").PrintPreview
        If CB_HS3 = True Then .Range("A107:H158").PrintPreview
    End With
    Me.Show
End Sub

Tự nhận ra lỗi của chính bạn nhé, thiếu gì đó

 

[cartoon18]

Cảm ơn bác Vodoi2x đã giúp, nhưng quả thật em thấy đoạn code bác chỉnh lại chạy rất tốt mà, em nhìn mãi vẫn chưa nhận ra lỗi của mình .bác thông cảm em chỉ mới đọc tới phần tạo form "Hello thế giới" trong cuốn sách VBA của thầy Phan Tự Hướng nên còn thiếu kinh nghiệm lắm ah .. mong các đàn anh chỉ bảo thêm

 

[siwtom]

Cảm ơn bác Vodoi2x đã giúp, nhưng quả thật em thấy đoạn code bác chỉnh lại chạy rất tốt mà, em nhìn mãi vẫn chưa nhận ra lỗi của mình

Trích

nhưng em gặp phải vấn đề là khi tắt Printpreview thì Form không show lên nữa,

Thì code của bạn có "lệnh" ẩn Form (Me.Hide). Như thế thì Form sẽ ẩn tới ngày tận thế, hoặc tới khi bạn hiển thị nó trở lại. Cái Me.Show nó làm cái việc đó
-----------
Tôi không xem tập tin nhưng đoán như thế