Excel Forum

Posted: **Sun Jan 28, 2018 1:11 pm**

ผมได้สร้างปุ่มสำหรับดูตัวอย่างก่อนพิมพ์ใน 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

Posted: **Sun Jan 28, 2018 1:29 pm**

ตัวอย่าง 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

Posted: **Sun Jan 28, 2018 1:45 pm**

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

Excel Forum

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

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

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

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