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.