Predmet:Re: Access report u PDF
ne trebaju ti moje tablice ili raporte treba ti samo ovaj deo coda i modul koj sam stavio
PreuzmiIzvorni kôd (Visual Basic):Dim blRet As Boolean
Dim sPDF As String
Dim sName As String
dim Raport as String
Raport="rptTest" ' Naziv Tvoga izvestaja
DoCmd.OutputTo acReport,Raport, "SnapshotFormat(*.snp)", "C:\" & Raport & ".snp", False, "", 0
sName = "C:\" &Raport & ".snp"
If Len(sName & vbNullString) = 0 Then Exit Function
sPDF = Mid(sName, 1, Len(sName) - 4)
blRet = ConvertReportToPDF(vbNullString, sName, sPDF & ".PDF", False, True, 0, "", "", 0, 1)
'posle obrabotkata izbrisi go SNP
Dim z As Integer
Dim Ime As String
Ime = Dir$( "C:\" & Raport & ".snp")
Do While Len(Ime) > 0
z = z + 1
Ime = Dir$()
Loop
If z > 0 Then Call Kill( "C:\" &Raport & ".snp")