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ı: 23)
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.

Visual Basic Code
 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
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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ı: 16)
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