Access-VB data module

Hi there... has anyone got any insight into this..

basically I need a module which can do the following ...

1. Open a word document that's at least as large as a set > mb size.

2. Pop it into acrobat distiller (adobe's compression routine).

3. Re-name as original name but replace the .doc extension with .pdf.

4. Write to a new folder.

5. Complete and return program flow to Access.

Any ideas appreciated :)

Do you have any documentation on "distillet" ?

Jamie.... sorry that was a typo ... should have been "distiller" is a compression function of Acrobat.. I am at home now and don't have Acrobat installed here, so I can't check the details.

Hmm buggery ******tits.
I'll have a look around here

Thanks Jamie.. any assistance greatly appreciated :)

k.
you send me the extra vbf members pics, and I'll look up about distillation for you ;)

Deal Baby;)

Okay.
Adobe Distiller should come with a Word macro compatible with newer versions of Microsoft Word.

Basically, from what I can tell, you'd want to Print the word document, but Print to File, and Print using the Printer : Adobe Distiller

That should create the .pdf file for you

Thanks Jamie :)

I thought that would be the case.. but my boss wants it in a VB routine to search our database of reports.

This is a bit beyond my level of programming... but I will ask Jello to have a look at it for me.

Its fairly easy programatically as far as I know.
Um, just set the default printer = "Adobe Distiller", .PrintToFile = True ( lol I'm just assuming that property exists :) ) and then print.

I'll see if I can dig up some printer code...

Well starting from here you can enumerate the list of available printers :

VB Code:

Private Sub Form_Load()
    Dim x As Printer
    For Each x In Printers
        Debug.Print x.DeviceName
    Next
End Sub

So I'm going to look up the printer object...

VB Code:

Private Sub Form_Load()
    Dim x As Printer, found As Boolean
    For Each x In Printers
        If x.DeviceName = "Adobe Distiller" Then
            found = True
            Exit For
        End If
    Next
    
    If found Then
        
        '' code to make printer 'x' actually print something
        
    End If
    
End Sub

... something like that ?

Thanks Jamie :D you are a legend;)


Will give that a go at work tomorrow.. and let you know how I went *nervous* :D

n/p :)