nhờ tạo macro in sheet2 khi đang ở sheet1

[tranthanhhai]

Mình không rành macro nhờ mọi người tạo giúp macro in sheet2 khi đang ở bảng tính hiện hành là sheet1. Xin cám ơn.

 

[salam]

Bạn chỉ việc ghi lại Macro thao tác in ở sheet2 thôi.

Sub Insheet()
    Sheet2.Activate
    ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
    Sheet1.Activate
End Sub

 

[sealand]

Mạn phép sửa code của SALAM, bạn ấy hình như có ý là vẫn ở sheet1 nhưng ra lệnh in sheet2, mình sửa code ngắn tối thiểu để bạn hiểu thôi:

Sub Insheet()
    Sheets("Sheet2").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub

Lưu ý: Nếu dùng NameCode thì câu lệnh là (Phải kiểm tra chính xác):

Sheet2.PrintOut From:=1, To:=1, Copies:=1, Collate:=True

Không cần thiết sang sheet 2 làm gì vì lệnh in load rất nhanh chỉ làm rối mắt thôi.