Sacar una factura, original y copia

Sub Macro2()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Value = "Copia"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Value = ""
End Sub

En el supuesto que en el rango A1 pongas la palabra Copia

Entonces: Borra "Copia" de A1, y ejecuta la macro, te imprime el original,
agrega "Copia", imprime la copia y luego elimina "Copia" para la prox.
Factura




"nose" escribió en el mensaje
news:bgro5v$9do$
Hola a todos,

Tengo una factura que imprimo (como oroginal), y luego le añado la palabra
"Copia" para imprimirla otra vez.

¿Esto se puede automatizar?
He visto que en algunos documentos aparece como una marca de agua un texto,
¿como se hace?... la idea es aplicarlo a la factura.

Gracias,