Nhờ các A/C giúp em xử lý VBA in theo điều kiện với ạ (1 người xem)

[Chian91]

Em có file này, bây giờ em muốn chỉ in khi được chọn vào các ô: Chọn in A, chọn in B, Chọn in C

 

[Mutants Men]

Em có file này, bây giờ em muốn chỉ in khi được chọn vào các ô: Chọn in A, chọn in B, Chọn in C

không hiểu câu này
chỉ in khi được chọn vào các ô
là chỉ in được khi chọn vào tất cả các mục đó hay là chỉ in những sheet được chọn
code này là in những sheet được chọn
xem đúng ý không nhé bạn

Sub InBienBan()
    Dim str As String
    Dim Arr As Variant
    With Sheets("Sheet1")
        If Cells(11, 6) Then str = str & vbBack & "A"
        If Cells(12, 6) Then str = str & vbBack & "B"
        If Cells(13, 6) Then str = str & vbBack & "C"
        Arr = Split(Mid(str, 2), vbBack)
        Sheets(Arr).Select
        ActiveWindow.SelectedSheets.PrintPreview
        'Sheets("A").PrintOut
        'Sheets("B").PrintOut
        'Sheets("C").PrintOut
    End With
End Sub

 

[Chian91]

E cám ơn ạ, đúng ý e rồi