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.

Ek Dosyalar

deneme1.rar(24.29 KB)

Şunu denermisiniz...

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



End Sub

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_

teşekkürler power

---

teşekkürler power
sn doubleone
repleri esirgemeyelim