Macro imprime RTF desde excel 4 paginas en 1

[erickarciga]

Muchas gracias a todos por su tiempo y su ayuda, tengo el siguiente codigo para abrir un archivo de RTF (word) e imprimirlo.

Sub Abre_word_imprime_cierra()

With CreateObject("word.application")

.Visible = False

With .Documents.Open("C:\Users\erick\Desktop\archivo.rtf", , , , "password")

.PrintOut

.Close False

End With

.Quit

End With

End Sub

Quiero ver si me pueden ayudar con 2 cosas

1 Que imprima 4 paginas en una sola pagina.

2 Que imprima en automático todos los archivos *.rtf de la ruta C:\Users\erick\Desktop\imprimir\

Nota: Los archivo no estan protegidos

Muchas gracias por su ayuda!!!