Snasui Excel Forum

Code: Select all

Sub PrintFA1_Rank()
        If MsgBox("คุณต้องการพิมพ์แบบรายงาน 1 จัดลำดับคะแนนประเมิน ใช่หรือไม่?", 36, "ยืนยันการสั่งพิมพ์") = 6 Then
            If Range("A2") = 10 Then
                Sheets("FormR18").Select
                    ActiveWindow.SelectedSheets.PrintOut
                Sheets("Main2").Select
            Else
                  If MsgBox("จำนวนบุคลากรในโรงเรียนท่านเกิน 18 คน" & vbCrLf & "โปรแกรมจะพิมพ์ข้อมูลให้เพียง 18 คน เท่านั้น" 
                  & vbCrLf & "ท่านยังต้องการพิมพ์เอกสารอยู่หรือไม่", 36, "โปรดทราบ") = 6 Then
                Sheets("FormR18").Select
          ActiveWindow.SelectedSheets.PrintOut
          Sheets("Main2").Select
          End If

        End If
        
        
        'If Range("A2") = 20 Then
                'Sheets("FormR36").Select
                '    ActiveWindow.SelectedSheets.PrintOut
              '  Sheets("Main2").Select
      '  End If
     '   If Range("A2") = 30 Then
    '            Sheets("FormR54").Select
  '                  ActiveWindow.SelectedSheets.PrintOut
   '             Sheets("Main2").Select
 '       End If
'        If Range("A2") = 40 Then
 '                   Sheets("FormR72").Select
 '                   ActiveWindow.SelectedSheets.PrintOut
   '             Sheets("Main2").Select

 '       End If
  '             If Range("A2") = 50 Then
    '                Sheets("FormR90").Select
    '                ActiveWindow.SelectedSheets.PrintOut
   '             Sheets("Main2").Select

  '      End If
 '
  '             If Range("A2") = 60 Then
  '                  Sheets("FormR108").Select
 '                   ActiveWindow.SelectedSheets.PrintOut
  '              Sheets("Main2").Select
  '          Cancel = True
        'End If
        End If
    End Sub