Change VBA code printing with selected page

[tnfsmith]

Mình có code in một sheet được ấn định sẵn trong excel (sưu tầm trên mạng) nhưng mà nó không hoạt động như mong muốn. Trong code này mình muốn nó in ở sheet2 mà nó không work. Bạn nào có ý kiến và sửa nó dùm mình xin cám ơn nhiều. Button mình để ở sheet1 khi nhấn vào thì nó sẽ in ở sheet2.

Sub PrintSelectedSheets()
Dim i As Integer
i = 2

If Sheets("Sheet2").Cells(i, 1).Value <> "" Then
'If Trim(Sheets("Sheet2").Cells(i, 2).Value <> "") Then
Sheets(Sheets("Sheet2").Cells(i, 1).Value).Select

ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
i = i + 1

End Sub

 

[nghiaphuc]

Bạn sửa câu lệnh

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

thành câu lệnh này thử xem sao

Sheets("Sheet2").PrintOut

 

[tnfsmith]

Thanks mình đã làm được trước đó. Dù sao cũng cám ơn bạn đã nhiệt tình trả lời.