PrintPreview แล้วค้างทำอะไรไม่ได้รบกวนหน่อยครับ
Posted: Thu Sep 12, 2013 10:31 am
รบกวนท่านผู้รู้ทุกท่านครับ
พอดีผมเขียนโปรแกรมขึ้นมาตัวหนึ่งซึ้งต้องการให้ปริ้น พรีวิว ก่อนปริ้นซึ้งผมได้เขียนโค้ดดังนี้
Sheet14.Activate
Sheet14.Range("A1:I" & i).Select
Sheet14.PageSetup.PrintArea = Selection.Address
Sheet14.PrintPreview
ซึ้งในขณะที่โปรแกรมโชว์ปริ้นพรีวิว Form ที่ผมสร้างขึ้นมากะยังรันอยู่ซึ้งทำให้ค้างคลิกไรไม่ได้เลยรบกวนหน่อยครับ
พอดีผมเขียนโปรแกรมขึ้นมาตัวหนึ่งซึ้งต้องการให้ปริ้น พรีวิว ก่อนปริ้นซึ้งผมได้เขียนโค้ดดังนี้
Sheet14.Activate
Sheet14.Range("A1:I" & i).Select
Sheet14.PageSetup.PrintArea = Selection.Address
Sheet14.PrintPreview
ซึ้งในขณะที่โปรแกรมโชว์ปริ้นพรีวิว Form ที่ผมสร้างขึ้นมากะยังรันอยู่ซึ้งทำให้ค้างคลิกไรไม่ได้เลยรบกวนหน่อยครับ
ช่วยแนบไฟล์ตัวอย่างที่เป็นปัญหานั้นมาด้วยเพื่อจะได้ช่วยทดสอบได้ครับ