Mẫu in giấy khen (1 người xem)

[timhocexcel]

Giúp em code lấy dữ liệu từ sheet danh sách và code in từ số thứ tự.... đến số thứ tự

 

[timhocexcel]

Giúp em code lấy dữ liệu từ sheet danh sách và code in từ số thứ tự.... đến số thứ tự

Em dựa theo bài mẫu in phiếu lương, nhưng khi muốn xem trước khi in từ 1 đến 3 thì không được, nhờ các bạn hướng dẫn cách làm

 

[ptm0412]

Sửa I1 thành I2 trong 2 đoạn code:

    For i = p1 To p2
    Sheet1.Range("I2").Value = i
    Sheet1.PrintOut
    Next

và

    For i = p1 To p2
    Sheet1.Range("I2").Value = i
    Sheet1.PrintPreview
    Next

 

[timhocexcel]

Sửa I1 thành I2 trong 2 đoạn code:

    For i = p1 To p2
    Sheet1.Range("I2").Value = i
    Sheet1.PrintOut
    Next

và

    For i = p1 To p2
    Sheet1.Range("I2").Value = i
    Sheet1.PrintPreview
    Next

Cảm ơn bạn.