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.
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.
Ç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.
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
Ç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.
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.