هل يمكن اختصار الكود

[Wael Hamed_1975]

هل يوجد طريقة لاختصار الكود وشكراً

New Text Document.rar

[أحمد يوسف]

لا يمكن المساعدة في هذا العمل من قبل الأساتذة الا بعد وضع هذا الكود في ملفه اى في ملف الإكسيل وشرح طريقة مختصرة عن عمل هذا الكود

[Wael Hamed_1975]

تم رفع الملف برجاء المساعدة ضروري وجزاكم الله خيراً

Sub Macro_all_93()
'3
   If Range("Y3").Value > 0 Then
    Range("Y3").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'4
   If Range("Y4").Value > 0 Then
    Range("Y4").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'5
   If Range("Y5").Value > 0 Then
    Range("Y5").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'6
   If Range("Y6").Value > 0 Then
    Range("Y6").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'7
   If Range("Y7").Value > 0 Then
    Range("Y7").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'8
   If Range("Y8").Value > 0 Then
    Range("Y8").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'9
   If Range("Y9").Value > 0 Then
    Range("Y9").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'10
   If Range("Y10").Value > 0 Then
    Range("Y10").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'11
   If Range("Y11").Value > 0 Then
    Range("Y11").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'12
   If Range("Y12").Value > 0 Then
    Range("Y12").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'13
   If Range("Y13").Value > 0 Then
    Range("Y13").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'14
   If Range("Y14").Value > 0 Then
    Range("Y14").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'15
   If Range("Y15").Value > 0 Then
    Range("Y15").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'16
   If Range("Y16").Value > 0 Then
    Range("Y16").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'17
   If Range("Y17").Value > 0 Then
    Range("Y17").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'18
   If Range("Y18").Value > 0 Then
    Range("Y18").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'19
   If Range("Y19").Value > 0 Then
    Range("Y19").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'20
   If Range("Y20").Value > 0 Then
    Range("Y20").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'21
   If Range("Y21").Value > 0 Then
    Range("Y21").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'22
   If Range("Y22").Value > 0 Then
    Range("Y22").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'23
   If Range("Y23").Value > 0 Then
    Range("Y23").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'24
   If Range("Y24").Value > 0 Then
    Range("Y24").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'25
   If Range("Y25").Value > 0 Then
    Range("Y25").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'26
   If Range("Y26").Value > 0 Then
    Range("Y26").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'27
   If Range("Y27").Value > 0 Then
    Range("Y27").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'28
   If Range("Y28").Value > 0 Then
    Range("Y28").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'29
   If Range("Y29").Value > 0 Then
    Range("Y29").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'30
   If Range("Y30").Value > 0 Then
    Range("Y30").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'----
'31
   If Range("Y31").Value > 0 Then
    Range("Y31").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'32
   If Range("Y32").Value > 0 Then
    Range("Y32").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'33
   If Range("Y33").Value > 0 Then
    Range("Y33").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'34
   If Range("Y34").Value > 0 Then
    Range("Y34").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'35
   If Range("Y35").Value > 0 Then
    Range("Y35").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'36
   If Range("Y36").Value > 0 Then
    Range("Y36").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'37
   If Range("Y37").Value > 0 Then
    Range("Y37").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'38
   If Range("Y38").Value > 0 Then
    Range("Y38").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'39
   If Range("Y39").Value > 0 Then
    Range("Y39").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'40
   If Range("Y40").Value > 0 Then
    Range("Y40").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'41
   If Range("Y41").Value > 0 Then
    Range("Y41").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If
'42
   If Range("Y42").Value > 0 Then
    Range("Y42").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'43
   If Range("Y43").Value > 0 Then
    Range("Y43").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'44
   If Range("Y44").Value > 0 Then
    Range("Y44").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'45
   If Range("Y45").Value > 0 Then
    Range("Y45").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'46
   If Range("Y46").Value > 0 Then
    Range("Y46").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'47
   If Range("Y47").Value > 0 Then
    Range("Y47").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'48
   If Range("Y48").Value > 0 Then
    Range("Y48").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'49
   If Range("Y49").Value > 0 Then
    Range("Y49").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'50
   If Range("50").Value > 0 Then
    Range("Y50").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'51
   If Range("Y51").Value > 0 Then
    Range("Y51").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'========2

'52
   If Range("Y52").Value > 0 Then
    Range("Y52").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'53
   If Range("Y53").Value > 0 Then
    Range("Y53").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'54
   If Range("Y54").Value > 0 Then
    Range("Y54").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'55
   If Range("Y55").Value > 0 Then
    Range("Y55").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'56
   If Range("Y56").Value > 0 Then
    Range("Y56").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'57
   If Range("Y57").Value > 0 Then
    Range("Y57").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'58
   If Range("Y58").Value > 0 Then
    Range("Y58").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'59
   If Range("Y59").Value > 0 Then
    Range("Y59").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'60
   If Range("Y60").Value > 0 Then
    Range("Y60").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'61
   If Range("Y61").Value > 0 Then
    Range("Y61").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'62
   If Range("Y62").Value > 0 Then
    Range("Y62").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'63
   If Range("Y63").Value > 0 Then
    Range("Y63").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'64
   If Range("Y64").Value > 0 Then
    Range("Y64").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'65
   If Range("Y65").Value > 0 Then
    Range("Y65").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'66
   If Range("Y66").Value > 0 Then
    Range("Y66").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'67
   If Range("Y67").Value > 0 Then
    Range("Y67").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'68
   If Range("Y68").Value > 0 Then
    Range("Y68").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'69
   If Range("Y69").Value > 0 Then
    Range("Y69").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'70
   If Range("Y70").Value > 0 Then
    Range("Y70").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'71
   If Range("Y71").Value > 0 Then
    Range("Y71").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'72
   If Range("Y72").Value > 0 Then
    Range("Y72").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'----
'73
   If Range("Y73").Value > 0 Then
    Range("Y73").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'74
   If Range("Y74").Value > 0 Then
    Range("Y74").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'75
   If Range("Y75").Value > 0 Then
    Range("Y75").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'76
   If Range("Y76").Value > 0 Then
    Range("Y76").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'77
   If Range("Y77").Value > 0 Then
    Range("Y77").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'78
   If Range("Y78").Value > 0 Then
    Range("Y78").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'79
   If Range("Y79").Value > 0 Then
    Range("Y79").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'80
   If Range("Y80").Value > 0 Then
    Range("Y80").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'81
   If Range("Y81").Value > 0 Then
    Range("Y81").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'82
   If Range("Y82").Value > 0 Then
    Range("Y82").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'83
   If Range("Y83").Value > 0 Then
    Range("Y83").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'84
   If Range("Y84").Value > 0 Then
    Range("Y84").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'85
   If Range("Y85").Value > 0 Then
    Range("Y85").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'86
   If Range("Y86").Value > 0 Then
    Range("Y86").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'87
   If Range("Y87").Value > 0 Then
    Range("Y87").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'88
   If Range("Y88").Value > 0 Then
    Range("Y88").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'89
   If Range("Y89").Value > 0 Then
    Range("Y89").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'90
   If Range("Y90").Value > 0 Then
    Range("Y90").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'91
   If Range("Y91").Value > 0 Then
    Range("Y91").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'92
   If Range("92").Value > 0 Then
    Range("92").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'93
   If Range("Y93").Value > 0 Then
    Range("Y93").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'+++++++3
'94
   If Range("Y94").Value > 0 Then
    Range("Y94").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'95
   If Range("Y95").Value > 0 Then
    Range("Y95").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'96
   If Range("Y96").Value > 0 Then
    Range("Y96").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'97
   If Range("Y97").Value > 0 Then
    Range("Y97").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'98
   If Range("Y98").Value > 0 Then
    Range("Y98").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'99
   If Range("Y99").Value > 0 Then
    Range("Y99").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'100
   If Range("Y100").Value > 0 Then
    Range("Y100").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'101
   If Range("Y101").Value > 0 Then
    Range("Y101").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'102
   If Range("Y102").Value > 0 Then
    Range("Y102").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'103
   If Range("Y103").Value > 0 Then
    Range("Y103").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'104
   If Range("Y104").Value > 0 Then
    Range("Y104").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'105
   If Range("Y105").Value > 0 Then
    Range("Y105").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'106
   If Range("Y106").Value > 0 Then
    Range("Y106").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'107
   If Range("Y107").Value > 0 Then
    Range("Y107").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'108
   If Range("Y108").Value > 0 Then
    Range("Y108").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'109
   If Range("Y109").Value > 0 Then
    Range("Y109").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'110
   If Range("Y110").Value > 0 Then
    Range("Y110").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'111
   If Range("Y111").Value > 0 Then
    Range("Y111").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'112
   If Range("Y112").Value > 0 Then
    Range("Y112").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'113
   If Range("Y113").Value > 0 Then
    Range("Y113").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'114
   If Range("Y114").Value > 0 Then
    Range("Y114").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'----
'31
   If Range("Y31").Value > 0 Then
    Range("Y31").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'32
   If Range("Y32").Value > 0 Then
    Range("Y32").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'33
   If Range("Y33").Value > 0 Then
    Range("Y33").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'34
   If Range("Y34").Value > 0 Then
    Range("Y34").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'35
   If Range("Y35").Value > 0 Then
    Range("Y35").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'36
   If Range("Y36").Value > 0 Then
    Range("Y36").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'37
   If Range("Y37").Value > 0 Then
    Range("Y37").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'38
   If Range("Y38").Value > 0 Then
    Range("Y38").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'39
   If Range("Y39").Value > 0 Then
    Range("Y39").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'40
   If Range("Y40").Value > 0 Then
    Range("Y40").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'41
   If Range("Y41").Value > 0 Then
    Range("Y41").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'42
   If Range("Y42").Value > 0 Then
    Range("Y42").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'43
   If Range("Y43").Value > 0 Then
    Range("Y43").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'44
   If Range("Y44").Value > 0 Then
    Range("Y44").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'45
   If Range("Y45").Value > 0 Then
    Range("Y45").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'46
   If Range("Y46").Value > 0 Then
    Range("Y46").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'47
   If Range("Y47").Value > 0 Then
    Range("Y47").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'48
   If Range("Y48").Value > 0 Then
    Range("Y48").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'49
   If Range("Y49").Value > 0 Then
    Range("Y49").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'50
   If Range("50").Value > 0 Then
    Range("Y50").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'51
   If Range("Y51").Value > 0 Then
    Range("Y51").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'========2

'52
   If Range("Y52").Value > 0 Then
    Range("Y52").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'53
   If Range("Y53").Value > 0 Then
    Range("Y53").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'54
   If Range("Y54").Value > 0 Then
    Range("Y54").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'55
   If Range("Y55").Value > 0 Then
    Range("Y55").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'56
   If Range("Y56").Value > 0 Then
    Range("Y56").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'57
   If Range("Y57").Value > 0 Then
    Range("Y57").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'58
   If Range("Y58").Value > 0 Then
    Range("Y58").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'59
   If Range("Y59").Value > 0 Then
    Range("Y59").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'60
   If Range("Y60").Value > 0 Then
    Range("Y60").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'61
   If Range("Y61").Value > 0 Then
    Range("Y61").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'62
   If Range("Y62").Value > 0 Then
    Range("Y62").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'63
   If Range("Y63").Value > 0 Then
    Range("Y63").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'64
   If Range("Y64").Value > 0 Then
    Range("Y64").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'65
   If Range("Y65").Value > 0 Then
    Range("Y65").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'66
   If Range("Y66").Value > 0 Then
    Range("Y66").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'67
   If Range("Y67").Value > 0 Then
    Range("Y67").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'68
   If Range("Y68").Value > 0 Then
    Range("Y68").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'69
   If Range("Y69").Value > 0 Then
    Range("Y69").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'70
   If Range("Y70").Value > 0 Then
    Range("Y70").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'71
   If Range("Y71").Value > 0 Then
    Range("Y71").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'72
   If Range("Y72").Value > 0 Then
    Range("Y72").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'----
'73
   If Range("Y73").Value > 0 Then
    Range("Y73").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'74
   If Range("Y74").Value > 0 Then
    Range("Y74").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'75
   If Range("Y75").Value > 0 Then
    Range("Y75").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'76
   If Range("Y76").Value > 0 Then
    Range("Y76").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'77
   If Range("Y77").Value > 0 Then
    Range("Y77").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'78
   If Range("Y78").Value > 0 Then
    Range("Y78").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'79
   If Range("Y79").Value > 0 Then
    Range("Y79").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'80
   If Range("Y80").Value > 0 Then
    Range("Y80").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'81
   If Range("Y81").Value > 0 Then
    Range("Y81").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'82
   If Range("Y82").Value > 0 Then
    Range("Y82").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'83
   If Range("Y83").Value > 0 Then
    Range("Y83").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'84
   If Range("Y84").Value > 0 Then
    Range("Y84").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'85
   If Range("Y85").Value > 0 Then
    Range("Y85").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'86
   If Range("Y86").Value > 0 Then
    Range("Y86").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'87
   If Range("Y87").Value > 0 Then
    Range("Y87").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'88
   If Range("Y88").Value > 0 Then
    Range("Y88").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'89
   If Range("Y89").Value > 0 Then
    Range("Y89").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'90
   If Range("Y90").Value > 0 Then
    Range("Y90").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'91
   If Range("Y91").Value > 0 Then
    Range("Y91").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'92
   If Range("92").Value > 0 Then
    Range("92").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'93
   If Range("Y93").Value > 0 Then
    Range("Y93").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'94
   If Range("Y94").Value > 0 Then
    Range("Y94").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'95
   If Range("Y95").Value > 0 Then
    Range("Y95").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'96
   If Range("Y96").Value > 0 Then
    Range("Y96").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'97
   If Range("Y97").Value > 0 Then
    Range("Y97").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'98
   If Range("Y98").Value > 0 Then
    Range("Y98").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'99
   If Range("Y99").Value > 0 Then
    Range("Y99").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'100
   If Range("Y100").Value > 0 Then
    Range("Y100").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'101
   If Range("Y101").Value > 0 Then
    Range("Y101").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'102
   If Range("Y102").Value > 0 Then
    Range("Y102").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'103
   If Range("Y103").Value > 0 Then
    Range("Y103").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'104
   If Range("Y104").Value > 0 Then
    Range("Y104").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'105
   If Range("Y105").Value > 0 Then
    Range("Y105").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'106
   If Range("Y106").Value > 0 Then
    Range("Y106").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'107
   If Range("Y107").Value > 0 Then
    Range("Y107").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'108
   If Range("Y108").Value > 0 Then
    Range("Y108").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'109
   If Range("Y109").Value > 0 Then
    Range("Y109").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'110
   If Range("Y110").Value > 0 Then
    Range("Y110").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'111
   If Range("Y111").Value > 0 Then
    Range("Y111").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'112
   If Range("Y112").Value > 0 Then
    Range("Y112").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'113
   If Range("Y113").Value > 0 Then
    Range("Y113").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'114
   If Range("Y114").Value > 0 Then
    Range("Y114").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'115
   If Range("Y115").Value > 0 Then
    Range("Y115").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'116
   If Range("Y116").Value > 0 Then
    Range("Y116").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'117
   If Range("Y117").Value > 0 Then
    Range("Y117").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'118
   If Range("Y118").Value > 0 Then
    Range("Y118").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'119
   If Range("Y119").Value > 0 Then
    Range("Y119").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'120
   If Range("Y120").Value > 0 Then
    Range("Y120").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'121
   If Range("121").Value > 0 Then
    Range("121").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'122
   If Range("Y122").Value > 0 Then
    Range("Y122").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'123
   If Range("Y123").Value > 0 Then
    Range("Y123").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If



'124
   If Range("Y124").Value > 0 Then
    Range("Y124").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'125
   If Range("Y125").Value > 0 Then
    Range("Y125").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'126
   If Range("Y126").Value > 0 Then
    Range("Y126").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'127
   If Range("Y127").Value > 0 Then
    Range("Y127").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If



'128
   If Range("Y128").Value > 0 Then
    Range("Y128").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'129
   If Range("Y129").Value > 0 Then
    Range("Y129").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'130
   If Range("Y130").Value > 0 Then
    Range("Y130").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'131
   If Range("Y131").Value > 0 Then
    Range("Y131").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'132
   If Range("Y132").Value > 0 Then
    Range("Y132").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'133
   If Range("Y133").Value > 0 Then
    Range("Y133").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'134
   If Range("Y134").Value > 0 Then
    Range("Y134").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'135
   If Range("Y135").Value > 0 Then
    Range("Y135").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'136
   If Range("Y136").Value > 0 Then
    Range("Y136").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'137
   If Range("Y137").Value > 0 Then
    Range("Y137").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'138
   If Range("Y138").Value > 0 Then
    Range("Y138").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'139
   If Range("Y139").Value > 0 Then
    Range("Y139").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'140
   If Range("Y140").Value > 0 Then
    Range("Y140").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If



'141
   If Range("Y141").Value > 0 Then
    Range("Y141").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'142
   If Range("Y142").Value > 0 Then
    Range("Y142").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'143
   If Range("Y143").Value > 0 Then
    Range("Y143").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'144
   If Range("Y144").Value > 0 Then
    Range("Y144").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'145
   If Range("Y145").Value > 0 Then
    Range("Y145").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'146
   If Range("Y146").Value > 0 Then
    Range("Y146").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'147
   If Range("Y147").Value > 0 Then
    Range("Y147").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'148
   If Range("Y148").Value > 0 Then
    Range("Y148").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'149
   If Range("Y149").Value > 0 Then
    Range("Y149").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'150
   If Range("Y150").Value > 0 Then
    Range("Y150").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'151
   If Range("Y151").Value > 0 Then
    Range("Y151").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'152
   If Range("Y152").Value > 0 Then
    Range("Y152").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'153
   If Range("Y153").Value > 0 Then
    Range("Y153").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'154
   If Range("Y154").Value > 0 Then
    Range("Y154").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'155
   If Range("Y155").Value > 0 Then
    Range("Y155").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'156
   If Range("Y156").Value > 0 Then
    Range("Y156").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'157
   If Range("Y157").Value > 0 Then
    Range("Y157").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'158
   If Range("Y158").Value > 0 Then
    Range("Y158").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'159
   If Range("Y159").Value > 0 Then
    Range("Y159").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'160
   If Range("Y160").Value > 0 Then
    Range("Y160").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'161
   If Range("Y161").Value > 0 Then
    Range("Y161").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'162
   If Range("Y162").Value > 0 Then
    Range("Y162").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'163
   If Range("Y163").Value > 0 Then
    Range("Y163").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'164
   If Range("Y164").Value > 0 Then
    Range("Y164").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'165
   If Range("Y165").Value > 0 Then
    Range("Y165").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'166
   If Range("Y166").Value > 0 Then
    Range("Y166").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'167
   If Range("Y167").Value > 0 Then
    Range("Y167").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'168
   If Range("Y168").Value > 0 Then
    Range("Y168").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'169
   If Range("Y169").Value > 0 Then
    Range("Y169").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'170
   If Range("Y170").Value > 0 Then
    Range("Y170").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'171
   If Range("Y171").Value > 0 Then
    Range("Y171").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'172
   If Range("Y172").Value > 0 Then
    Range("Y172").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'173
   If Range("Y173").Value > 0 Then
    Range("Y173").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'174
   If Range("Y174").Value > 0 Then
    Range("Y174").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'175
   If Range("Y175").Value > 0 Then
    Range("Y175").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'176
   If Range("Y176").Value > 0 Then
    Range("Y176").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'177
   If Range("Y177").Value > 0 Then
    Range("Y177").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'178
   If Range("Y178").Value > 0 Then
    Range("Y178").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'179
   If Range("Y179").Value > 0 Then
    Range("Y179").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'180
   If Range("Y180").Value > 0 Then
    Range("Y180").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'181
   If Range("Y181").Value > 0 Then
    Range("Y181").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'182
   If Range("Y182").Value > 0 Then
    Range("Y182").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'183
   If Range("Y183").Value > 0 Then
    Range("Y183").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'184
   If Range("Y184").Value > 0 Then
    Range("Y184").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'185
   If Range("Y185").Value > 0 Then
    Range("Y185").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'186
   If Range("Y186").Value > 0 Then
    Range("Y186").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'187
   If Range("Y187").Value > 0 Then
    Range("Y187").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'188
   If Range("Y188").Value > 0 Then
    Range("Y188").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'189
   If Range("Y189").Value > 0 Then
    Range("Y189").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'190
   If Range("Y190").Value > 0 Then
    Range("Y190").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'191
   If Range("Y191").Value > 0 Then
    Range("Y191").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'192
   If Range("Y192").Value > 0 Then
    Range("Y192").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'193
   If Range("Y193").Value > 0 Then
    Range("Y193").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'194
   If Range("Y194").Value > 0 Then
    Range("Y194").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'195
   If Range("Y195").Value > 0 Then
    Range("Y195").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'196
   If Range("Y196").Value > 0 Then
    Range("Y196").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'197
   If Range("Y197").Value > 0 Then
    Range("Y197").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'198
   If Range("Y198").Value > 0 Then
    Range("Y198").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'199
   If Range("Y199").Value > 0 Then
    Range("Y199").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'200
   If Range("Y200").Value > 0 Then
    Range("Y200").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'201
   If Range("Y201").Value > 0 Then
    Range("Y201").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'202
   If Range("Y202").Value > 0 Then
    Range("Y202").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'203
   If Range("Y203").Value > 0 Then
    Range("Y203").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'204
   If Range("Y204").Value > 0 Then
    Range("Y204").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'205
   If Range("Y205").Value > 0 Then
    Range("Y205").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'206
   If Range("Y206").Value > 0 Then
    Range("Y206").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'207
   If Range("Y207").Value > 0 Then
    Range("Y207").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'208
   If Range("Y208").Value > 0 Then
    Range("Y208").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'209
   If Range("Y209").Value > 0 Then
    Range("Y209").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'210
   If Range("Y210").Value > 0 Then
    Range("Y210").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'211
   If Range("Y211").Value > 0 Then
    Range("Y211").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'212
   If Range("Y212").Value > 0 Then
    Range("Y212").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'213
   If Range("Y213").Value > 0 Then
    Range("Y213").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'214
   If Range("Y214").Value > 0 Then
    Range("Y214").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'215
   If Range("Y215").Value > 0 Then
    Range("Y215").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'216
   If Range("Y216").Value > 0 Then
    Range("Y216").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'217
   If Range("Y217").Value > 0 Then
    Range("Y217").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
End Sub

 

نموذج مقبول.xlsm

[Wael Hamed_1975]

الكود بسيط جداً بس مكرر بياخد الخلية

Y3

وينسخها 

B7

وبعدين بيطبع

وبعدين ياخد

Y4

وهكذا دواليك

لغاية ما يلاقي خليه فاضية او اصغر من الصفر

[Wael Hamed_1975]

3
   If Range("Y3").Value > 0 Then
    Range("Y3").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
        Exit Sub
End If

 

End Sub

والسؤال هو كيف يمكن عمل كوبي  من

Y3:Y500

بحيث يكون Y3 

ثم 

Y4

الى

Y500

ويتم اللصق فى خلية واحدة

وشكراً

[Wael Hamed_1975]

الموضوع سهل جداً يا خوانا

[عبدالله الصاري]

اخي العزيز

ليست لدي القدرة على اختصار الكود وتحتاج الى خبرائنا بالمنتدى ولكن من خلال تجربتي للكود تظهر رسالة بان الكود طويل

ولذلك الكود لا يقوم بعمله

ولكن ان اردت ان اجزئ الكود لكي يقوم بعمله واسرعه قليلا فانا جاهز ان شاء الله 

لك تحياتي

[Wael Hamed_1975]

الكود شغال تمام بس الاكسل بيعطي رسالة ان حجم المديول كبير.وولو حذفت لغاية 

,103

بيشتغل

وشكراً

[عبدالله الصاري]

عزيزي

اعلم ان الكود شعال تمام الى خد معين

اقصد من كلامي السابق ان اردت تشغيل الكود الى 216 اواكثر يشتغل  

وللتوضيح جرب الملف

وان اردت الاظافة الى اكثر من 216 يمكنك ذلك

الى حين تدخل الخبراء لاختصار الكود

نموذج مقبول.xlsm

 

[Wael Hamed_1975]

 

تم اختصار الكود

sub aaa()
for i=3 to 10000


   If Range( i , "Y").Value > 0 Then
cells(i,"y").Select
  
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1

End If
 next
end sub