Viết code cho Button sheet này in nội dung của sheet khác

[trieusgvn]

Kính chuyển các bạn!
Mình có 2 sheet: sheet A thiết kết nút nhấn để in dữ liệu bên sheet B, nhưng không hiểu sao chạy tới dòng rang là báo lỗi. Mong các bạn giúp đỡ. Tks nnnnnnnnn
Đây là đoạn code:
Private Sub CommandButton2_Click()
If in = True Then
Sheets("B").Select
Sheets("B").Unprotect
Range("A11:I11").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=">0", Operator:=xlOr, _
Criteria2:="=.*"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=3
Selection.AutoFilter
Sheets("B").Protect
Sheets("A").Select
Range("A12").Select
Else:
Dim Reply As Long
Reply = MsgBox("BAN CHUA IN MA. OK???!!! " & Chr(10) & Chr(10) & "MAYBE, YOU FORGOT PRINT . OK ???!!!!", vbQuestion + vbOKOnly)
ActiveWorkbook.Save
End If
End Sub

 

[vu_tuan_manh_linh]

If in = True Then: In ở đây là gì thế bạn??? Không thấy khai báo gì cả.

 

[trieusgvn]

Ồ so sorry! Dim start_print as boolean
(thay cho biến in bằng start_print vì khi run với biến in bị lỗi)
Tks