Tự động In hàng loạt Page 1 của các sheet (1 người xem)

[Blad01]

Nhờ các bạn viết giúp đoạn code để khi bấm vào nút sẽ tự động in Page 1 của 03 Sheet mầu đỏ trong file đính kèm.
Lưu ý: 03 sheet mầu đỏ bị siêu ẩn.

 

[Blad01]

Em muốn khi bấm nút thì nó hiện thông báo "bạn có muốn in tất cả" nếu bấm Yes thì nó sẽ in 03 sheet như yêu cầu của đề trên, bấm No sẽ không in thì phải thêm code như thế nào ?
Em làm được rồi các bác ạ ? Thêm đoạn code:

Sub RoundedRectangle52_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sArr, msg1, I As Long
sArr = Array(Sheet3.Name, Sheet5.Name, Sheet7.Name)
msg1 = MsgBox("Do you want to Print 21 SHEET BCTK ?", vbYesNo)
If msg1 = vbYes Then
For I = 0 To UBound(sArr)
With Sheets(sArr(I))
.Visible = -1
.PrintOut , 1
.Visible = 2
End With
Next I
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub