Sub Print_Ctrl()
On Error GoTo Loi: Workbooks.Open ("Print.xls")
Sheets("Out").PrintOut From:=1, To:=2, Copies:=1, Collate:=True Workbooks("Print.xls").Close
Loi:
If Err.Number = 1004 Then
MsgBox "Sai ten file hoac sai duong dan!"
ElseIf Err.Number = 9 Then
MsgBox "Sai ten Sheet!"
End If
End Sub