Dừng Preview khi nhấn phím Esc

[Miccpro]

Em có 1 đoạn code xem trước khi in dùng vòng lặp

Sub Preview1()
Dim i&
With Sheet1
.Select
    For i = 1 To 5
        .Range("A1") = i
        .PrintPreview
    Next i
End With
End Sub

Khi ở chế độ Preview em muốn khi nhấn Esc thì vòng lặp sẽ dừng lại được không ạ. Mong mọi người giúp đỡ, em xin cảm ơn

 

[befaint]

Trả lời: được. Mình ấn thì biết mà.

Nhân tiện, bỏ .select đi.

 

[Miccpro]

Trả lời: được. Mình ấn thì biết mà.

Nhân tiện, bỏ .select đi.

Nếu dùng vòng for thì không được anh ạ

 

[befaint]

Nếu dùng vòng for thì không được anh ạ

. Muốn xem kiểm tra thì 1-2 trang là được rồi, gõ luôn vào ô cần kiểm tra ấy [A1], hoặc tạo spin điền số mà xem trên bảng tính ấy.
. Còn muốn dừng khi vòng lặp lớn thì thử For i=1 to 500 rồi lấy tay đè phím esc xem, đảm bảo sẽ dừng.