PDF size

[racer25]

Hi All,

I have the following script which creates between 2000 and 3000 statements. I have another part that attach's this to an email and sends the message.

Its a single page PDF with relatively plain text is there away of reducing the size of the PDF from around 500KB to something at least half the size if not much smaller - ideally under a 100K.

Thanks in advance.

Rob

Private Sub Command0_Click()
Dim rs As DAO.Recordset
Dim sql As String
Dim strPath As String
strPath = "C:\Temp\"
sql = "SELECT DISTINCT StatementTable.StateFile FROM StatementTable;"
Set rs = CurrentDb().OpenRecordset(sql, dbOpenSnapshot)
Do While Not rs.EOF
    strStateFile = rs!StateFile
    DoCmd.OutputTo acOutputReport, "Statement Data", acFormatPDF, strPath & strStateFile & ".pdf"
    rs.MoveNext
Loop
Set rs = Nothing
End Sub

 

[spikepl]

For absolutely all text in your report, make the font Arial.