ต้องการให้ Msgbox โชว์แค่ครั้งแรกที่ใช้คำสั่ง

[djung]

ผมต้องการให้ Msgbox โชว์ขึ้นเมื่อกด Print เพื่อเช็คว่าได้ตั้ง Printer ไว้ถูกต้องที่จะใช้งานหรือยัง แต่อยากให้โชว์แค่ครั้งแรกที่เราเปิดไฟล์นี้ขึ้นมาเท่านั้น
พอเราจะ Print ครั้งที่ 2,3,4,5 ไม่ต้องโชว์อีกให้ Print เลย ไม่รู้ว่าต้องใส่ Code อะไรเพิ่มเข้าไปครับ รบกวนช่วยด้วยครับ

[snasui]

การทำเช่นนั้นสามารถทำดังนี้ได้ครับ
ในการสั่งพิมพ์ให้กำหนดค่าให้กับเซลล์ใด ๆ เอาไว้ เช่นกำหนดค่า True ไว้ที่เซลล์ I3 เมื่อเปิดไฟล์ก็กำหนดให้ลบค่านี้ทิ้งไป การเขียน Code เพื่อสั่งพิมพ์ก็ให้ตรวจสอบว่า I3 มีค่า True หรือไม่ ถ้ามีก็ไม่ต้องแสดงข้อความ ให้ Print ได้เลย ถ้าไม่มีก็แสดงข้อความแล้ว Print ดูตัวอย่าง Code ตามด้านล่าง

Code ในชีท Form

Code: Select all

Private Sub CommandButton1_Click()
    If Range("I3") <> True Then
        check1 = MsgBox("µÑé§ Printer Easy Coder à»ç¹ Printer ËÅÑ¡áÅéÇãªèãËÁ", vbInformation + vbOKCancel, "µÃǨÊͺ Printer")
        If check1 = vbOK Then
'            Sheets("FORM").PrintOut
            ActiveWindow.SelectedSheets.PrintPreview
            Range("I3") = True
        End If
    Else
'            Sheets("FORM").PrintOut
            ActiveWindow.SelectedSheets.PrintPreview
    End If
End Sub

Code ใน ThisWorkbook

Code: Select all

Private Sub Workbook_Open()
    Sheets("FORM").Range("I3").ClearContents
End Sub

[djung]

ขอบคุณมากๆเลยครับอาจารย์ เดี๋ยวลองไปทำดูก่อนครับผม