Ön izleme görüntüle kodunda ki hata

[yamahato]

Kolay gelsin abilerim.
Basit bir görüntüle tuşu için bir abimin yardımıyla kod yazdık.Kod güzel çalışıyor ama ön izleme ekran görüntüsünde bulunan yazdır baskı önizlemeyi kapat -yazdır-sayfa yapısı yakınlaştır gibi araçlar pasif oluyor. İnternet üzerinden yaptığım araştırmada excelden kaynaklanabileceği officenin kaldırılıp tekrar kurulması gerekir diye bir şey okudum. Bu bilgiye istinaden officeyi kaldırdım tekrar kurdum ama hiç bir şey değişmedi.Size göster tuşunun kodlarını vereceğim. Umarım hatayı bulmama ve gidermeme yardım edersiniz saygılar.

Not: Önizleme ekranının ekran görüntüsü ekte paylaştım saygılar.

Dim S1 As Worksheet, S2 As Worksheet, X As Long, Satir As Long

Private Sub Calendar1_Click()
    'If TextBox4.Tag <> "" Then
If TextBox4.Value = "Tarih için çift tıklayınız..." Then
Me.Controls(TextBox4.Tag) = Format(Calendar1.Value, "dd.mm.yyyy"): Me.Calendar1.Visible = False:
Else
If TextBox5.Value = "Tarih için çift tıklayınız..." Then
Me.Controls(TextBox5.Tag) = Format(Calendar1.Value, "dd.mm.yyyy"): Me.Calendar1.Visible = False
End If
End If
End Sub

Private Sub CommandButton8_Click()
On Error Resume Next
Application.Visible = True

If TextBox3.Value = Empty Then MsgBox ("Lütfen plaka giriniz."), vbInformation, "DOĞAN YAZILIM": TextBox3.SetFocus: Exit Sub

'Or TextBox5.Value = "Tarih için çift tıklayınız..."
If TextBox4.Value = "Tarih için çift tıklayınız..." Then MsgBox ("Lütfen başlangıç tarihini giriniz."), vbInformation, "DOĞAN YAZILIM": TextBox4.SetFocus: tarih_aç: Exit Sub

If TextBox5.Value = "Tarih için çift tıklayınız..." Then MsgBox ("Lütfen bitiş tarihini giriniz."), vbInformation, "DOĞAN YAZILIM": TextBox5.SetFocus: tarih_aç2: Exit Sub
   'TextBox3.Value <> Empty And
If TextBox3.Value <> Empty Or TextBox4.Value <> "Tarih için çift tıklayınız..." Or TextBox5.Value <> "Tarih için çift tıklayınız..." Then
    Application.Visible = True
    
    S2.Range("A3:M" & Rows.Count).ClearContents
    Satir = 3
    
    For X = 3 To S1.Cells(Rows.Count, 1).End(3).Row
        If S1.Cells(X, "B") = Val(TextBox3) Then
        If S1.Cells(X, "G") >= CDate(TextBox4) And S1.Cells(X, "G") <= CDate(TextBox5) Then
                S2.Cells(Satir, 1) = Satir - 2
                S1.Range("B" & X, "M" & X).Copy S2.Cells(Satir, 2)
                Satir = Satir + 1
            End If
        End If
    Next
    If S2.Range("A3") <> "" Then
        S2.PageSetup.PrintArea = "A1:M" & Satir - 1
        UserForm6.Hide
        S2.PrintPreview
        UserForm6.Show
        End If: End If

 If S2.Range("A3") = "" Then
 MsgBox ("Belirtilen tarih aralığında kayıt yoktur."), vbInformation, "DOĞAN YAZILIM"
    End If

End Sub

Private Sub CommandButton9_Click()
    Application.Visible = False
    Unload Me
    UserForm2.Show
End Sub

Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Calendar1.Value = Date
    Me.Calendar1.Visible = True
    Me.TextBox4.Tag = "TextBox4"
    Me.TextBox5.Tag = ""
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    If TextBox4 <> "" Then TextBox4 = Format(TextBox4, "dd.mm.yyyy")
End Sub

Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Calendar1.Value = Date
    Me.Calendar1.Visible = True
    Me.TextBox5.Tag = "TextBox5"
    Me.TextBox4.Tag = ""
End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    If TextBox5 <> "" Then TextBox5 = Format(TextBox5, "dd.mm.yyyy")
End Sub

Private Sub UserForm_Activate()
    Set S1 = Sheets("BAKIM ONARIM BİLGİ DEPOSU")
    Set S2 = Sheets("RAPOR")
    Me.Calendar1.Visible = False
End Sub

Private Sub UserForm_Initialize()
    TextBox4 = "Tarih için çift tıklayınız..."
    TextBox5 = "Tarih için çift tıklayınız..."
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> 1 Then Cancel = True
End Sub

Sub tarih_aç()
    Calendar1.Value = Date
    Me.Calendar1.Visible = True
    Me.TextBox4.Tag = "TextBox4"
    'Me.TextBox4.Tag = ""
End Sub

Sub tarih_aç2()
    Calendar1.Value = Date
    Me.Calendar1.Visible = True
    Me.TextBox5.Tag = "TextBox5"
    'Me.TextBox4.Tag = ""
End Sub

 

[yamahato]

Abilerim yardım edebilecek kimse yok mu?

 

[YUSUF44]

Kod ve resim yerine rnek dosya eklemeniz daha iyi olur diye düşünüyorum. Çünkü kodlarda baskı önizlemeyle ilgili bir şey göremedim. Belki dosyadaki başka bir kod sebep oluyordur.