Teşekkür ederim

Rica ederim...

Private Sub Komut85_Click()
Dim MyReport As String
MyReport = CurrentProject.Path & "\EVRAK\" & Me.SucNo & ".pdf"
DoCmd.OutputTo acOutputReport, "VERIGIRIS1", "PDFFormat(*.pdf)", MyReport, False, "", 0
End Sub

Sn.Puletin hızır gibi yetiştiniz.
Rapor Adı: VERIGIRIS1
programın olduğu yere "EVRAK" isimli klasör oluşturdum, Formda veriyi girip ust yazı butonu ile raporu açıp 3 sayfalık rapordan 1 sayfa çıkarıp, diğer 2 sayfayı SucNo ismi ile EVRAK klasörunde imzalı iekilde saklamak istiyorum, FRM buton koydum asıl programda hepsini kaydetmeye başladı, tırstım durdurdum(3000 sayfa) Ben önce 1 sayfa yazdırmak ve 1.2. sayfaları sucno adı altında kaydettirmek istiyorum.

Yardımcı olursanız sevinirim !

---

DENEME 1

Hatalı gönderdiğim dosyayı düzelttim, özür dilyorum.

Sn.Puletin
Elinize sağlık örneğin çok işime yaradı ancak istediğim gibi düzenleyemedim.
Ekteki dosyaya bakabilir misin?
Raporu açmadan Tarihe göre süzerek, süzülen tarih isminde PDF olarak dosyaya kaydetmek istiyorum.

Yardımlarınız için şimdiden teşekkürler.

Me. ÇIKIŞ_TARİHİ yerine Me.ILKTARIH yazdım çünkü PDF oluşturmak için süzme yaptığınız formunuzda ÇIKIŞ_TARİHİ adında bir alanınız olmadığı için hata veriyordu.