Foro Excel

Hola compañeros

Necesito crear una macro para poder imprimir 3 copias a la vez y en una de ellas salga impresa la siguiente frase (COPIA PARA EL TRANSPORTISTA).

Muchas gracias por vuestras aportaciones

Saludos,

lperez

Graba unamacro que te inserte el dato que deseas, guarda el archivo e imprimelo.
Utiliza un contador dentro del evento:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
micontador = micontador + 1
if micontador = "3" then call insertadato
End Sub

Mas o menos no lo he probado.

Suerte

Sorry ya mas o menos probado:
Trabajando con el rango A1 de la hoja 1 igual lo puedes cambiar para no modificar ademas de preparar el area de impresion para no afectar tu rango de impresion de la hoja y no se imprima la celda con el contador.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("a1") = Range("a1") + 1
If Range("a1") = "3" Then Call prueba
End Sub


en un modulo quedaria la macro con el nombre que elijas para insertar el dato que sugieres.

Saludos

Hola opermty

He probado la macro que me pasastes pero no me funciona. Solamente sale impresa una hoja. ¿Puedes adjuntar algún ejemplo para adaptarlo a mi hoja?

Muchas gracias por responder

Saludos,

lperez

Este codigo lo adaptas segun tus necesidades.

Sub imprimir()
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
End Sub


Saludos