Skip to main content

AccessTr.neT


Raporu Pdf Olarak Kayıt etmek

Raporu Pdf Olarak Kayıt etmek

#1
Merhaba Hocalarım.
Eklediğim uygulamada Veresiye Satış Formunda Ayrıntılı Rapor veya Toplam Rapor butonuna tıkladığım zaman Yazıcı seç formu açılıyor. Bu forma Pdf Kaydet butonu ekledim. Raporu Pdf olarak kayıt etmek istiyorum. 

Eğer oluyorsa Pdf Kaydet butonuna tıkladığım zaman kayıt yapacağım klasörü sorsun. Kayıt kapılacak Klasörü seçip raporun adın yazarak kayıt yapmak istiyorum.  Bu konuda yardımlarınıza ihtiyacım var. İyi çalışmalar.
.rar CARİ.rar (Dosya Boyutu: 84,3 KB | İndirme Sayısı: 9)
Cevapla
#2
sayın m_demir,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

NOT
klasörü seçtikten sonra,Kaydet Diyalog Penceresindeki TAMAM butonuna tıklamanız yeterlidir.

bilginize...iyi çalışmalar,saygılar.
.rar CARİ-ATOZ.rar (Dosya Boyutu: 92,17 KB | İndirme Sayısı: 25)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Çok, çok teşekkürler Hocam ellerinize sağlık. Çok güzel olmuş.

Hocam klasörü seçtikten sonra,Kaydet Diyalog Penceresindeki TAMAM butonuna tıkladığım zaman daha önce kayıt yaptığım raporun üstüne kayıt yapıyor. 
Klasörü seçtikten sonra bir önceki raporun üstüne değil de faklı olarak kayıt yapmasını istiyorum. O denenle diyalog penceresi açıldığı zaman Klasör Adı: gibi Dosya Adı: metin kutusu da olsa çok iyi olur. 
Son Düzenleme: 01/11/2016, 23:05, Düzenleyen: m_demir.
Cevapla
#4
Butonun tıklandığında olayındaki kodları aşağıdaki ile değiştirerek deneyiniz.

 Dim PencereAc As FileDialog
Dim AktarilanBelge As Variant

Set PencereAc = Application.FileDialog(msoFileDialogSaveAs)
   
   With PencereAc
       .Title = "Rapor Kaydet"
       .InitialFileName = "Genel Rapor " & Format(Now(), "ddmmyyyyhhnn") & ".pdf"
       
       If .Show = True Then
       
           For Each AktarilanBelge In .SelectedItems
               DoCmd.OutputTo acOutputReport, "GenelRapor", acFormatPDF, AktarilanBelge & ".pdf", True
           Next AktarilanBelge
       Else
           MsgBox "Dosya seçilmedi"
       End If
   End With
Cevapla
#5
Çok, çok teşekkürler Hocam ellerinize sağlık. Tam istediğim gibi olmuş.
Hocam konuyu taşıyabilirsiniz saygılarımla iyi çalışmalar.
Cevapla
#6
sayın m_demir,

EK'te;

konunuzun 3.mesajında

Alıntı:Klasörü seçtikten sonra bir önceki raporun üstüne değil de faklı olarak kayıt yapmasını istiyorum. O denenle diyalog penceresi açıldığı zaman Klasör Adı: gibi Dosya Adı: metin kutusu da olsa çok iyi olur. 

bahsettiğiniz talebinize yönelik,alternatif kullanım olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.
.rar CARİ-ATOZ2.rar (Dosya Boyutu: 92,55 KB | İndirme Sayısı: 17)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task