bir program yaptım ve size benzerini gönderiyorum benim sorunum: kayıdı yazdır butonuna bastığımda Excel dosyasında istediğim hücrelere gönderiyor ve matbu kağıda çıktısını alıyorum buraya kadar sorun yok bundan sonra ise Excel dosyası açık kalıyor ve kilitleniyor bilgisayarı kapatmazsam Excel dosyası çalışır vaziyette gizli olarak kalıyor.benim isteğim çıktıyı aldıktan sonra Excel dosyasının otomatik olarak kaydederek veya kayıt etmeden kapatılsın.Yardımlarınızı bekliyorum 3 haftadır araştırıyorum benzer birşey bulamadım örnek üzerinde nasıl yaptığınızı açıklarsanız sevinirim şimdiden teşekkürler.
Private Sub Komut6_Click()
Dim exceldosyasi As Object
Set exceldosyasi = CreateObject("Excel.Application")
With exceldosyasi
.Workbooks.Open FileName:=CurrentProject.Path & "\deneme.xlsx"
.Cells(2, 3).Value = Me.AdSoyad
.Cells(4, 3).Value = Me.Cep
.Cells(6, 4).Value = Me.Ev_Tel
.Sheets("tel").PrintOut
.Workbooks.Close 'Burasını ekleyiniz...................................................
End With
Harikasınız tam yapmak istediğim buydu çeşitli yollardan denedim ama cevabın bu kadar kısa olacağı hiç aklıma gelmezdi inanın çok işime yarayacak size ve tüm access.tr çalışanlarına teşekkür ederim elinize emeğinize sağlık kolay gelsin. _o_