ผมตอ้งการเขียน excel macro เพื่อสั่งพิมพ์ โดยจำนวน copy ที่พิมพ์นั้นอ่านมาจาก cell  , แต่เมื่อ run macro แล้วขึ้น  error , run time error '13':type mismatch, ขอความช่วยเหลือด้วยดรับ

     Dim PFD_02 As Integer
     Dim PFD_03 As Integer
              
    PFD_02 = CInt(Sheets("Param").Cells(10, 9).Value)
    PFD_03 = Cint(Sheets("Param").Cells(10, 9).Value)
    
    Sheets("FT_HCM_05_PG_1_of_3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=PFD_03
    Sheets("FT_HCM_05_PG_2_of_3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=PFD_02