print as pdf

prøv lige det her.

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Acrobat PDFWriter on LPT1:", printtofile:=True, prtofilename:="minPDF"

nope får denne fejl
"Compile error:
Named argument not found"

Bør måske sige at jeg bruger Excel 97, hvilket muligvis gør en forskel...

mere specifikt er det
prtofilename:= som den brokker sig over

har også prøvet printotfilename ...

Beklager, så må vi have lidt hjæp af en der sidder med en xl97. Jeg bruger xl2000 og der kan godt være kommet en ny parameter til.

bak, lidt tak skal du da ha, sagen er bare at beholder jeg printtofile promter dem mig for et "output file name", så nu skal jeg bare finde ud af den variable hedder i 97 versionen.

Fandt nedenstående til Excel 97:

Sub Printtofile()
dim filename As String
filename = "MyPrintFile.prn"
ChDrive "C" : ChDir "C:\Abcédaire"
if Dir(curdir & "\" & filename) <> "" then kill curdir & "\" & filename
SendKeys filename & "{enter}"
thisworkbook.worksheets("Sheet1").printout PrinttoFile:=true
end Sub

Ovenstående skulle være det samme som nedenstående som er til Excel 2000:

thisworkbook.worksheets("Sheet1").printout printtofile:=true, Prtofilename:="C:\MyPrintFile.prn"

Måske det kan bruges til noget ;)

Snowball

Er problemet her ikke, at PDF-writer ikke er en "skriv til fil", men er en "virtuel printer" - systemet ser den som en printer. Det er formentlig driveren, ikke Excel, der spørger efter filnavnet?
Om Snowballs eksempel virker kan jeg ikke helt gennemskue - hvor sender Sendkeys filnavnet hen?

Men hvis Snowballs eksempel skal bruges, så må det være tilstrækkeligt at bruge SendKeys filename & "{enter}" lige før Printout (i den oprindelige form i spm)

Muligvis kan PDF-writer sættes op til at generere et filnavn - men jeg har ikke mulighed for at prøve det her

4. kommentar...  Snowballs eksempel ser ud til at virke, i hvert fald så langt jeg kan teste det.

lukker