AccessTr.neT

Tam Versiyon: Birden Fazla Raporu Yazdırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
merhaba sitemizde bulduğum tam istediğim gibi bir program var ekte
ancak 1 den fazla raporu nasıl pdf yapablirim onu çözemedim , 2 rapor var ama düğmeye basınca bir tanesini pdf oalrak yazdırabiliyorum.
yardımcı olursanız çok sevinirm ?

kod

Private Sub Komut0_Click()
On Error Resume Next

Dim CurrentDirectory, ExportPath As String

CurrentDirectory = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\"))
ExportPath = CurrentDirectory & "teklifler\" & Date & "\"

    If mdl_FolderExists(ExportPath) Then
        'Klasör zaten var!
    Else
        MkDir ExportPath
    End If


Dim blRet As Boolean
blRet = ConvertReportToPDF("Rapor1", vbNullString, ExportPath & "Rapor1.pdf", False, False, 150, "", "", 0, 0, 0)
blRet = ConvertReportToPDF("Rapor2", vbNullString, ExportPath & "Rapor1.pdf", False, False, 150, "", "", 0, 0, 0)

End Sub


tabiki 2 rapor isminide aynı kaydet dersen office sapıtacaktır.
bilerek silmiyorum yönetim isterse konuyu kaldırablir tabiki
basit bir hata arkadaşalrın gözünden kaçarsa onlarında aklında olsun diye silmedim konuyu

rapor 2 olarak kaydet dememişim formülde de görüneceği üzere


problem çözülmüştür.