sub in_phieu_luong()
Dim lr As Long
lr = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
Dim fr As Long
fr = 6
Dim i As Long
For i = fr To lr
If Sheet2.Range("A" & i) = Sheet3.Range("I2").Value Then
Sheet3.Range("F6").Value = Sheet2.Range("E" & i).Value
Sheet3.PageSetup.PrintArea = "$A$1:$F$29"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
Next i
End Sub
Em làm lệnh như này khi thực hiện không báo lỗi, nhưng dữ liệu không được như yêu cầu, dữ liệu ở sheet Data_TienLuong bị xáo trộn và các file được in ra bị lỗi hoặc không có nội dung. Mong thầy chữa hộ em ạ!