Đóng form khi PrintPreview!

[ThuNghi]

Tôi có làm form in sổ cái, duyệt qua từng sổ cái và in sổ cái. Nhưng khi chọn for từng sổ cái để in với chế độ ActiveWindow.SelectedSheets.PrintPreview thì form không đóng được và treo máy. Mà chọn
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True sau khi in xong thì dùng Unload Me đóng form được.
Nhờ các anh chị hướng dẫn giúp cách nào khi
1/ PrintPreview theo SoCai i, close hay print
2/ Đóng form hay tạm đóng
3/ next i và tiếp 1/
4/ Nếu end thì thoát form.
Xin cám ơn. Do file chưa hoàn thiện và khó hiểu nên kg tiện up file.

 

[sealand]

Không nên làm thế vì làm thế các thông tin trên Form sẽ mất. Thu Nghi thử như sau:

Private Sub CommandButton1_Click()
Dim i
On Error Resume Next
Me.Hide
For i = 1 To 3
Sheet1.PrintPreview
Next
Me.Show
End Sub

Các thông tin trên form vẫn lưu giữ bình thường

 

[ThuNghi]

Không nên làm thế vì làm thế các thông tin trên Form sẽ mất. Thu Nghi thử như sau:

Private Sub CommandButton1_Click()
Dim i
On Error Resume Next
Me.Hide
For i = 1 To 3
Sheet1.PrintPreview
Next
Me.Show
End Sub

Các thông tin trên form vẫn lưu giữ bình thường

Cám ơn Anh nhiều em cứ loay hoay .Exit or .Disable... mà chả có.
Hóa ra Me.Hide và Me.Show hay quá.
Đúng là viết code cho form khó mà test cũng khó.