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

[Ueng999]

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

[snasui]

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

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

[Ueng999]

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

Code: Select all

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

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

[snasui]

ลองปรับ 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

[Ueng999]

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