KOD.... düzeltme..

[daffodil]

***********************************************
Sub Düğme17_Tıklat()
Dim s1, s2
Dim sat
Set s1 = Sheets("İZİN BİLGİ")
Set s2 = Sheets("Data")
'**********************************************
If s1.Range("e4") = "YILLIK" Then
If MsgBox("Bilgiler Kaydedilsin mi?", vbCritical + vbDefaultButton2 + vbYesNo, "UYARI") = vbYes Then
sat = WorksheetFunction.Match(s1.Range("E3"), s2.Range("b1:b100"), 0)
izin1 = s2.Cells(sat, "e").Value - s1.Range("e16").Value
If izin1 < 0 Then
s2.Cells(sat, "e").Value = 0
izin2 = Abs(izin1)
izin3 = s2.Cells(sat, "f").Value - izin2
If izin3 < 0 Then
MsgBox s1.Range("e3").Value & " adlı kişinin yeterli izin bakiyesi bulunmamaktadır.", vbInformation, "UYARI"
GoTo son
Else
s2.Cells(sat, "f").Value = izin3
End If
Else
s2.Cells(sat, "e").Value = izin1
End If
MsgBox s1.Range("e3").Value & " adlı kişinin bilgileri kaydedildi.", vbInformation, "UYARI"
End If
End If
ActiveSheet.PageSetup.PrintArea = "$A$3:$N$27"
ActiveWindow.SelectedSheets.PrintOut
son:
Set s1 = Nothing
Set s2 = Nothing
End Sub
***************************************

Yukarıda uzman Recep İPEKİn hazırlamış olduğu kod için yardıma ihtiyacım var..... Problem kod çalıştıktan sonra yazıcıdan çıktı alıyorum.... Ama benim istediğim, önce yazıcıdan çıktı alıp kodun devreye girmesini istiyorum...

 

[Recep İpek]

ActiveSheet.PageSetup.PrintArea = "$A$3:$N$27"
ActiveWindow.SelectedSheets.PrintOut

satırlarını

Set s1 = Sheets("İZİN BİLGİ")
Set s2 = Sheets("Data")
'**********************************************

sonraki bölümüne yazın.

 

[daffodil]

Çok teşekkür ederim....
Hemen uyguladım... saol.....