ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] µLªk¦C¦L°ÝÃD½Ð±Ð

[µo°Ý] µLªk¦C¦L°ÝÃD½Ð±Ð

Dear all ¤j¤j
1.¦p¹Ï¤@ ²Å¦X±ø¥ó®ÉµLªk¦C¦L all¤u§@ªí
2.½Ð°Ý¦p¦ó­×§ï¦¨¥u°w¹ï sheet1¤u§@ªí²Å¦X±ø¥ó®ÉµLªk¦C¦L
   ¨ä¥L¤u§@ªí¤´¥i¦C¦L
3.·Ð¤£¥t½ç±Ð  thanks*10000      

¹Ï¤@
Private Sub Workbook_BeforePrint(Cancel As Boolean)
        If Sheet14.Range("E973") = True Then
          MsgBox "ªO«pÀˮ֤½¦¡-«È¤áµ²ºc©Ò¦³«p«×¥[Á`Äæ¦ì¥¼¶ñµLªk¦C¦L.(³¯ºa½÷)(ºÞ¨î¤£¥i¦Cªí)¡A¤£¥i¦C¦L¡I"
         Cancel = True
      End If
End Sub
ù

Private Sub Workbook_BeforePrint(Cancel As Boolean)
IF ACTIVESHEET.NAME="Sheet1" then
      If Range("E973") = True Then
          MsgBox "ªO«pÀˮ֤½¦¡-«È¤áµ²ºc©Ò¦³«p«×¥[Á`Äæ¦ì¥¼¶ñµLªk¦C¦L.(³¯ºa½÷)(ºÞ¨î¤£¥i¦Cªí)¡A¤£¥i¦C¦L¡I"
         Cancel = True
      End If
END IF
End Sub

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD