Office: PDF per Macro schreiben

Hallo zusammen,

ich habe lange an meiner Tabelle gebastelt und ich kann sie auch mit dem Macro:

Sub Sichern()
ActiveWorkbook.SaveAs Filename:="D:\" & Cells(2, 3).Value
End Sub

abspeichern.

Jetzt möchte ich auch noch ein PDF schreiben. Ich habe bereits eine Zelle in der der Dateiname steht (brauche ich ohnehin für andere Zwecke). Ich habe es bereits mit:

Sub Drucken()
ActiveWorkbook.PrintOut From:=1, To:=1, Copies:=1, Collate:=True, PrToFileName:="D:\test.pdf"
End Sub

versucht, aber da hängt sich mein Excel 2000 einfach auf.

Hat jemand eine Idee was ich falsch mache? Danke schön.

 

Hallo!

Meine Fähigkeiten überschreitet das leider bei weitem, aber schau doch mal hier, ob dich das weiterbringt.