Snasui Excel Forum

เรียนอาจารย์และท่านผู้รู้ค่ะ

ขอรบกวนช่วยดู Code ชื่อ SetPrintAreaBeforePrint จากไฟล์แนบค่ะ

Code ตรวจสอบเลขที่เช็คที่เซลล์ O6 ชีท AY ไฟล์ Form หากยังไม่ Print ที่คอลัมน์ O ชีท Check ไฟล์ MyPay_BookShare ว่างก็ให้สั่ง Print แต่ Code ที่แนบมานี้แจ้งให้ทราบว่ามีการ Print แล้วทั้งที่คอลัมน์ O ชีท Check ไฟล์ MyPay_BookShare ยังว่างค่ะ

Mark บรรทัด On Error Resume Next ให้เป็น Comment แล้วลอง Run ดูว่าติดบรรทัดใดครับ

อาจารย์คะ ติดที่ With MyPay_BookShare.Sheets("Check") ตามรูปแนบค่ะ

ได้ประกาศตัวแปร MyPay_BookShare ไว้ที่ไหนแล้วหรือไม่ครับ หากยัง ต้องประกาศตัวแปรและ Assign ค่าให้กับตัวแปร MyPay_BookShare ก่อน จึงจะใช้ Code เช่นที่เขียนมาได้ครับ

การที่จะเขียนOn Error Resume Next ซึ่งเป็น Code สำหรับยกเลิกการฟ้อง Error เข้าไปกำกับนั้น เราควรทราบเสมอว่าเขียนเพื่อดัก Error ใด เพื่อป้องกันการเขียนเยิ่นเย้อยืดยาว แต่หากมั่นใจว่าไม่เกิด Error ใน Code ก็ไม่จำเป็นต้องใช้ เพราะมันจะไปดัก Error ทุกชนิดทำให้เราไม่สามารถแก้ปัญหาได้หากโปรแกรมไม่ทำงานตามที่ต้องการ จึงควรใช้ On Error Resume Next อย่างเข้าใจครับ

ขอบคุณค่ะอาจารย์ ปรับใช้งานได้ตรงตามต้องการแล้วค่ะ