Print til PDF med ændret navn

... igennem en makro, selvfølgelig.

ActiveDocument.PrintOut Filename:="test.pdf"

virker fortræffelig, men hvis jeg laver en string som pdf navn, får jeg en runtime error 5121

Ny = "test.pdf"
ActiveDocument.PrintOut Filename:=Ny

Når du gør laver en pdf på ovenstående måde, kan du så rent faktisk åbne filen med en pdf-reader bagefter?

prøv  lige at sætte ekstra "" omkring

ny = """test.pdf"""

For god ordens skyld kan I her se hvad det drejer sig om: http://www.eksperten.dk/spm/818967#rid7024247

word-hajen: Har jeg ikke prøvet. Jeg ved bare at den så ikke fejler ved debug. Hvis jeg ikke ændrer navnet, er der ingen ko på isen.

bak: Prøver jeg.

Jeg er dog hjemme fra arbejde nu, men prøver lige at flikke noget sammen.

Nå, det duer nok ikke, da jeg kun har Distiller hjemme. Prøver på arbejde i morgen.

Årsagen til, at jeg spørger, om du har forsøgt at åbne din pdf efter dannelse, er, fordi jeg selv på et tidspunkt har været ude i noget a la det samme. Og der kunne jeg ikke få en korrekt pdf ud af det ved blot at gemme filen. Jeg vil foreslå, at du lige forsøger at åbne en af dine pdf'er.

Det skal jeg prøve på arbejde i morgen. Jeg kan dog ikke se det skulle betyde noget, da de jo virker fint, hvis navnet ikke ændres.

bak: Den dialogboks der kommer frem ved print (spørger efter filnavn), burde man ikke kunne sætte teksten i den i en With-sætning? Eller er den en del af Adobe?

baks forslag giver samme fejl.

Nu virker Y.ActiveDocument.PrintOut Filename:="test.pdf" ikke engang!

Y kommer af Set Y = CreateObject("Word.Application").

Jeg får at vide at Filename:= ikke er et named argument!

Og du har ret i at når det en gang imellem virker, duer pdf'en ikke på den måde at den er tom!

En løsning med at omdøbe bagefter holder ikke, da PDF'erne er åbne, og helst skal være det. Det kunne dog være en nødløsning, men hvordan lukker jeg så pdf'erne?

Prøv lige at se den kode, som jeg har postet i kommentaren 16/04-2007 11:27:33 i http://www.eksperten.dk/spm/773430. Jeg fandt i hvertfald dengang ud af, at jeg ikke bare kunne danne en pdf direkte, men måtte en omvej.

Jeg løste problemet på denne måde:

Y.ActiveDocument.SaveAs Filename:=Vaerdier(2) & "-" & VBA.Format(strDate, "yyMMdd")
Y.PrintOut

Smid et svar, word-hajen og bak, så deler vi mine fattige points ;-)

Og tak for hjælpen!

Velbekomme. Hvad er Vaerdier(2)? Et form for et løbenummer?

Det er bare et nummer fra en af de fields jeg henter i dokumentet. PDF'en skal døbes efter det nummer, samt amerikansk datoformat.

den SaveAs jeg laver, gemmer åbenbart ikke dokumentet, men printout tror åbenbart det er det nye filnavn.
Da jeg ikke gemmer selve Worddokumentet, kan det være lige meget. Det skal blot slettes efter en manuel kontrol.

jeg har dog stadig et lille problem, men det vender jeg tilbage med i en anden tråd.

Det lille problem jeg nævnte, kan I hjælpe med her, hvis I har lyst: http://www.eksperten.dk/spm/819163

bak: et svar?

det synes jeg ikke at jeg har fortjent i dette tilfælde..
word-hajen var den der fulgte op, så points er hans :-)

Nu løste jeg selv problemet, men derfor vil jeg da gerne dele mine fattige point lidt som tak for hjælpen ;-)