Print af pdf objecter

i very much doubt you can without an add-in

Hvad med at se på http://partners.adobe.com/asn/developer/sdks.html.
Der kan være noget, du kan bruge

http://support.adobe.com/devsup/devsup.nsf/docs/52080.htm

this requires that you have acrobat reader installed!

I save the pdf files as objects. How do I send them to Acrobat ( I have the Acrobat Writer 4,0)
I tried with
Dim docname As String
docname = Me.report
docname = "C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe / t"
Call Shell(docname, 1)
but it wont work

what happens?

It says there is no filename "docname".
It seems the problems is to get the record assignet to Acrobat.

thats because your using the /t paramater and it is expect the name of the file to print.
Look at the two lines satrting with
docname !!!!!!!!

I cant et this to work.
I now tried another way around.
But how do I get it recieve the File and pathname from my formular.
See below

Declare Function ShellExecute Lib "shell32.dll" Alias _
        "ShellExecuteA" (ByVal Hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long

Declare Function GetDesktopWindow Lib "user32" () As Long

Public Sub pdf()
Dim StartDoc As Long
  StartDoc = ShellExecute(GetDesktopWindow(), "Print /t", _
  "C:\xxxxx\1085.pdf", "", "C:\", 1)
End Sub
Instead of the C:\xxxxx\1085.pdf I want it to take the filename and path from my recordset in the foemular

not sure what the GetDesktopWindow() function does!

What is wrong with

docname = "C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe / t " & me.report

Call Shell(docname, 1)

It says the file and path does not exist.
Damn. I thought it would be simple to make a database to store, catalogue, and later print out pdf files.

Har du forsøgt med et ekstra felt i formularen med stien til den originale pdf-fil?
I ShellExecute kan du prøve at lave teksten om til variable af typen Variant
(se hjælp til Shell), eller af typen String og tilføje Chr$(0) - ASCIIZ.

Ja, men jeg kan ikke få den til at acceptere filnavn og sti fra feltet.
Den påstår filen ikke findes, men det må være fordi den ikke kan "snappe" det fra feltet.

Eftersom det er en exe-fil der skal startes skulle Shell være nok efter at du har
lavet teksten om til variable, f.eks.:
Dim Filadr as  Variant
Filadr = "C\........."

ShellExecute kender ikke almindelige strenge, derfor kan stien ikke findes.

Den forstår jeg ikke.
På min formular har jeg et felt med fil og sti navn kaldet "path"
hvis jeg vil ha det ind i sub'en skriver jeg:

Dim docname As Variant
docname = Me.Path
docname = "C:\Program Files\Adobe\Acrobat 4.0\Reader\acrobat.exe / t " & Me.Path
Call Shell(docname, 1)

Hvad er det jeg gør galt ?

Som Terry skriver overskrives docname = Me.Path af næste linje og parameteren
"t" skal flyttes til efter filnavn.  Næste linje fjernes.

Hvis Me.path er stien til pdf-filen og parameteren "t" er korrekt  skulle følgende virke

Shell "C:\Program Files\Adobe\Acrobat 4.0\Reader\acrobat.exe" & docname & " /t",1

virke.

place a breakpoint at Call Shell..
and then run the code
Then when the code stops press
Ctrl+G to open the debug window. Then write th efollowing and press enter

?docname

You should now see the contents of what you are sending to shell
does it make sence?

Does acrobat.exe exist in that folder?

Så virker det.
der skulle et ekstra mellemrum ind mellem acrobat delen og sti navnet.
sådan
Dim docname As Variant
Dim sti As Variant
sti = Me.Path
docname = "C:\Program Files\Adobe\Acrobat 4.0\reader\AcroRd32.exe" & " " & "/t" & " " & sti
Call Shell(docname, 1)

Jeg takker mange gange.
Hvordan deler jeg pointene mellem jer.
Jeg kan ike se fynbohans på listen

You can wait a while to see if he appears.

good to see it works though :o)