Configurar IMPRESIÓN - Macro

Buenos dias a todos, a ver si con esta aplicacion que quiero hacer hay tanta
suerte como con las anteriores y entre todos llegamos a una solución.

Tengo un libro con muchas hojas, y quiero que cuando termine de calcular
todo (va llamando a diferentes subrutinas entre hojas), pueda imprimir 3
hojas de todo el libro para pasarlo a PDF (tengo Adobe Acrobat 6) y
guardarmelo en el ordenador. Lo he hecho seleccionando las 3 hojas (dos de
ellas son graficas), y me lo hace en 3 hojas por separado. Lo que quiero
hacer es todas ellas en el mismo PDF, en el mismo documento pero no he
podido. Alguien sabe donde esta el fallo?

Os pongo aqui el codigo que he usado:
Sheets(Array("Hoja1", "Grafica1", "Grafica2")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Espero que podais ayudarme ya que es de mucha aplicacion para lo que necesito.

Muchas gracias a todos,

Saludos,

Jon.