Reduce File Size

[cadder1 webforumsuser@macromedia.com]

Hi all, I have a couple of very very big pictures, would like to reduce the size down just enough to print out on letter size at a rought quality (but still look decent on the browser). What is the best procedure to get this done. My first time using fw so I would really appreciate your inputs on this task. I will probably reduce a 20 to 30 pictures down and add them to thumbnails then when click these pictures will enlarge big enought for me to print out on letter size, portrait. Thanks again for your inputs.

[johnricha@gmail.com]

I'm running Acrobat 7, and I have a question about the File > Reduce
File Size feature. How can I check/set the settings for this feature?
If I want to set my default res to, say, 120 dpi?

Thanks!
JR

[wouterdebo@gmail.com]

I have written some code to save a pdf file.
However, i want to add code to reduce the file size of the pdf.
(optimized)
How can I do this?

My code:

Dim AcroExchApp As Acrobat.CAcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim avdoc As Acrobat.CAcroAVDoc


AcroExchApp = CreateObject("AcroExch.App")

PDDoc = CreateObject("AcroExch.PDDoc")
avdoc = CreateObject("AcroExch.AVDoc")

avdoc.Open(<sourceFile>, <sourceFile>)
avdoc = AcroExchApp.GetActiveDoc

If avdoc.IsValid Then
PDDoc = avdoc.GetPDDoc
If PDDoc.Save(1 Or 4 Or 32, <targetFile>) <> True Then
'messagebox.show("Error while saving")
End If
PDDoc.Close()
PDDoc = Nothing
End If

avdoc.Close(True)
avdoc = Nothing

AcroExchApp.Exit()
AcroExchApp = Nothing

[wouterdebo@gmail.com]

Hello!

I have written some code to save a pdf file.
However, i want to add code to reduce the file size of the pdf.
(optimized)
How can I do this?

My code:

Dim AcroExchApp As Acrobat.CAcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim avdoc As Acrobat.CAcroAVDoc

AcroExchApp = CreateObject("AcroExch.App")

PDDoc = CreateObject("AcroExch.PDDoc")
avdoc = CreateObject("AcroExch.AVDoc")

avdoc.Open(<sourceFile>, <sourceFile>)
avdoc = AcroExchApp.GetActiveDoc

If avdoc.IsValid Then
PDDoc = avdoc.GetPDDoc
If PDDoc.Save(1 Or 4 Or 32, <targetFile>) <> True Then
'messagebox.show("Error while saving")
End If
PDDoc.Close()
PDDoc = Nothing
End If

avdoc.Close(True)
avdoc = Nothing

AcroExchApp.Exit()
AcroExchApp = Nothing

Thanks in advance
Wouter Debo

[wouterdebo@gmail.com]

Nobody knows how to optimize the pdf?
There has to be a way to do this in code. I read the adobe sdk, i
searched google.
Can anybody help me?