Chào các anh chị mình có một vấn đề về print preview

[duythuat58]

Chào các anh chị
mình xin các anh chị trợ giúp một vấn đề đó là:
mình có một user form có nút lệnh in, nhưng trước khi in mình muốn xem sheets cần được in "printpreview" hiện lên trên user form không biết phải làm thế nào? mong sự trợ giúp

 

[qtm1987]

Chào các anh chị
mình xin các anh chị trợ giúp một vấn đề đó là:
mình có một user form có nút lệnh in, nhưng trước khi in mình muốn xem sheets cần được in "printpreview" hiện lên trên user form không biết phải làm thế nào? mong sự trợ giúp

Sao bạn không tạm ẩn cái UserForm đó đi, xem trang in xong thì mở UserForm lên lại thôi.

Private Sub CommandButton15_Click()
    Me.Hide
    ActiveSheet.PrintPreview
End Sub

hoặc có thể tạo một Combobox chứa danh sách tên các sheet, khi click vào tên sheet trong combobox thì sẽ "Select" tới sheet chọn rồi hiện PrintPreview.

 

[duythuat58]

Sao bạn không tạm ẩn cái UserForm đó đi, xem trang in xong thì mở UserForm lên lại thôi.

Private Sub CommandButton15_Click()
    Me.Hide
    ActiveSheet.PrintPreview
End Sub

hoặc có thể tạo một Combobox chứa danh sách tên các sheet, khi click vào tên sheet trong combobox thì sẽ "Select" tới sheet chọn rồi hiện PrintPreview.

Cảm ơn bác, bác có thể cho em chi tiết phương án 2 không ạ. Em xin cảm ơn bác nhiều ạ

 

[qtm1987]

Cảm ơn bác, bác có thể cho em chi tiết phương án 2 không ạ. Em xin cảm ơn bác nhiều ạ

Bạn xem tham khảo nhé.

Private Sub ComboBox1_Click()
    Me.Hide
    With Sheets(ComboBox1.List(ComboBox1.ListIndex, 0))
        .Select
        .PrintPreview
    End With
    Me.Show
End Sub

Private Sub ComboBox1_DropButtonClick()
    Dim nSh As Worksheet
    ComboBox1.Clear
    For Each nSh In Worksheets
        ComboBox1.AddItem nSh.Name
    Next
End Sub