Giúp code in copy nhiều lần bị lổi khi dùng Excel 2010 (1 người xem)

[minhtuan55]

Chào cả nhà GPE
em có dùng đoạn code sau để in phiếu bán hàng

Sub chonmayin()
Range("i2").Select
dlgAnswer = Application.Dialogs(xlDialogPrinterSetup).Show
Range("i2").Value = ActivePrinter
End Sub

Sub inragiay()
Dim i As Long
i = Range("i1").Value

On Error Resume Next
        Application.ActivePrinter = Sheets("Sheet1").Range("i2").Value
        ActiveWorkbook.Sheets("Sheet1").PrintOut Copies:=i, ActivePrinter:=Sheets("Sheet1").Range("i2").Value, Collate:=True
  

End Sub

Em dùng XLSB trên 2010 thì nó chỉ in copy có 1 bảng mặc dù e đã nhập số lần copy là 2, 3,4.... Nhưng khi em save as về XLS mở bằng 2003 thì in lại được đúng với số lần copy. Không biết nó bị lỗi gì nữa. Mình đả thử 2 máy tính rồi