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