Snasui Excel Forum

Posted: **Fri Jul 25, 2014 10:41 pm**

คือว่าเมื่อคลิกที่ Button1 จะขึ้นฟอร์มให้เลือกชีmที่ต้องการพิมพ์โดยการติ๊กเลือกจาก Check box ว่าจะให้พิมพ์ที่Sheet ไดบ้าง (พิมพ์เฉพาะหน้าที่1ของแต่ละชีท) เลือกได้มากกว่าหนึงSheet แต่ตอนนี้ทำได้แค่ Sheet1 เท่านั้นค่ะ รบกวนท่านที่รู้ช่วยเพิ่มเติมหรือแก้ไข้ข้อผิดพลาดด้วยค่ะ

Posted: **Fri Jul 25, 2014 10:53 pm**

ให้เปลี่ยน else เป็น End If แล้วลบ End If ส่วนเกินออกไปให้หมดครับ

การใช้ If ลักษณะทีต้องดูทุก Checkbox จะต้องไม่ใช้ else หรือ else if ครับ

Posted: **Sat Jul 26, 2014 7:17 am**

แก้ coad ตามที่แนะนำแล้วคะแต่ sheet2 กับ sheet3 ก็ยังพิมพ์ไม่ได้คะ ขึ้นแถบสีเหลืองที่

Code: Select all

ActiveWindow.SelectedSheets("sheet2").PrintOut From:=1, To:=1

รบกวนดูให้ด้วยคะ

Posted: **Sat Jul 26, 2014 7:40 am**

ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    If CheckBox1.Value = True Then
        Sheets("Sheet1").Select
        ActiveWindow.SelectedSheets("sheet1").PrintOut From:=1, To:=1
    End If
    If CheckBox2.Value = True Then
        Sheets("Sheet2").Select
        ActiveWindow.SelectedSheets("sheet2").PrintOut From:=1, To:=1
    End If
    If CheckBox3.Value = True Then
        Sheets("Sheet3").Select
        ActiveWindow.SelectedSheets("sheet3").PrintOut From:=1, To:=1
    End If
End Sub

Posted: **Sat Jul 26, 2014 8:06 pm**

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

Snasui Excel Forum

code ที่ใช้ในการสั่งพิมพ์หลายชีท

code ที่ใช้ในการสั่งพิมพ์หลายชีท

Re: code ที่ใช้ในการสั่งพิมพ์หลายชีท

Re: code ที่ใช้ในการสั่งพิมพ์หลายชีท

Re: code ที่ใช้ในการสั่งพิมพ์หลายชีท

Re: code ที่ใช้ในการสั่งพิมพ์หลายชีท