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
"Oyun bitince şah ve piyon aynı kutuya atılır "
Son Düzenleme: 19/11/2012, 01:29, Düzenleyen: yorum70.