ใช้ UserForm สั่ง PrintPreview แล้วกดปุ่ม ESC ไม่ได้

[sutham]

ผมได้สร้างปุ่มสำหรับดูตัวอย่างก่อนพิมพ์ใน Sheet1 เพื่อเรียกใช้ UserForm เมื่อกดปุ่ม PrintPreview ใน UserForm code ก็ใช้งานได้ปกติ แต่พอจะออกจากหน้า Preview โดยกดปุ่ม ESC บนคีย์บอร์ด ซึ่งกดไม่ได้
ผมจะต้องแก้ไขหรือเพิ่มเติม Code อย่างไรครับ

code ที่ผมใช้ใน UserForm1

Code: Select all

Private Sub CommandButton1_Click()
Unload UserForm1
Sheets("sheet2").Select
ActiveWindow.ActiveSheet.PrintPreview
Sheets("sheet1").Select
UserForm1.Show
End Sub

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
    UserForm1.Show vbModeless
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    Unload UserForm1
    Sheets("sheet2").Select
    ActiveWindow.ActiveSheet.PrintPreview
    Sheets("sheet1").Select
    UserForm1.Show vbModeless
End Sub

[sutham]

ขอบคุณครับ
ใช้ได้ตามต้องการเลยครับ