Foros del Web » Soporte técnico » Ofimática »

Problema Macro BeforePrint Excel

Estas en el tema de Problema Macro BeforePrint Excel en el foro de Ofimática en Foros del Web. Muy buenas. Vereis, tengo una hoja de Excel con un número de Albaran. Resulta que ese Albaran se va sumando de uno en uno cada ...
  #1 (permalink)  
Antiguo 02/03/2010, 08:12
 
Fecha de Ingreso: febrero-2010
Mensajes: 7
Antigüedad: 9 años, 9 meses
Puntos: 0
Pregunta Problema Macro BeforePrint Excel

Muy buenas.

Vereis, tengo una hoja de Excel con un número de Albaran.

Resulta que ese Albaran se va sumando de uno en uno cada vez que imprimo. Hasta aqui todo bien.

El caso es que querría que ese Albaran se imprima, por ejemplo, 5 veces. Y el número de Albarán si que suma 5 pero solo me imprime el último valor.

Por ejemplo:

Ahora tengo el número 2

Toco Imprimir

Se pone el número a 7

Pero en vez de imprimir el 3, el 4, el 5, el 6 y el 7, solamente me imprime el 7, los demás no.

Aqui os pongo la Macro, a ver que hago mal:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim total As Integer

total = 3

enumera = 1

Do While enumera <> total
Sheets("Hoja1").Range("H9").Value = Sheets("Hoja1").Range("H9").Value + 1
Sheets("Hoja1").Range("Q9").Value = Sheets("Hoja1").Range("Q9").Value + 1

enumera = enumera + 1

ActiveWindow.SelectedSheets.PrintOut , collate:=True
Loop

End Sub

Que hago mal?

Gracias.

Un saludo :)
  #2 (permalink)  
Antiguo 02/03/2010, 15:36
 
Fecha de Ingreso: febrero-2010
Mensajes: 7
Antigüedad: 9 años, 9 meses
Puntos: 0
Respuesta: Problema Macro BeforePrint Excel

Nadie?

Me es un poco urgente :(

Saludos

Etiquetas: excel, imprimir, macro
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:58.