Page 1 of 1

สอบถามเกี่ยวกับการ สั่งPrintของ Excel ครับ

Posted: Fri Apr 20, 2018 11:18 am
by jullathep
คือผมได้ความต้องการมาใหม่ คือจาก File ใน Sheet Payment
ผมต้องทำการเลือก No.ที่ช่อง A17 เพื่อนเปลี่ยนข้อมูลของแต่ละคน ซึ่งมีทั้งหมด 17 คน แล้วสั่งปริ้น
ทีนี้ เบื้องบนต้องการ แบบว่า สั่งปริ้นทีเดียว 17 คนเลย ในหน้า Payment โดยข้อมูลก็เปลี่ยนไปตามนั้นๆ จะสามารถทำได้หรือไม่ครับ
ขอบคุณสำหรับคำแนะนำ ครับ

Re: สอบถามเกี่ยวกับการ สั่งPrintของ Excel ครับ

Posted: Fri Apr 20, 2018 6:36 pm
by snasui
:D ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Button2_click()
    Dim i As Integer
    For i = 1 To 17
        ActiveSheet.Range("A17").Value = i
        ActiveWindow.SelectedSheets.PrintOut
    Next i
End Sub

Re: สอบถามเกี่ยวกับการ สั่งPrintของ Excel ครับ

Posted: Mon Apr 23, 2018 6:58 am
by jullathep
snasui wrote: Fri Apr 20, 2018 6:36 pm :D ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Button2_click()
    Dim i As Integer
    For i = 1 To 17
        ActiveSheet.Range("A17").Value = i
        ActiveWindow.SelectedSheets.PrintOut
    Next i
End Sub
ขอบคุณมากครับอาจารย์