Makro xls to pdf
04.10.2007 15:06:47
Julia
Sub pdf_erzeugen()
' pdf_erzeugen Makro
' Makro am 04.10.2007 von julia aufgezeichnet
Application.ActivePrinter = "FreePDF XP auf PDF1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"FreePDF XP auf PDF1:", Collate:=True
End Sub
Kann man das Makro so erweitern das er das pdf immer in den Ornder speichert in dem sich auch die xls befindet und das die pdf mit folgendem Namen gespeichert wird:
"Zellinhalt aus C4"_"ZellinhaltD7"threads.pdf