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:
- Código: Seleccionar todo
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim total As Integer
total = 3
enumera = 1
Do While enumera <> total
'cambio de valor las celdas que me interesan
Sheets("Hoja1").Range("H9").Value = Sheets("Hoja1").Range("H9").Value + 1
Sheets("Hoja1").Range("Q9").Value = Sheets("Hoja1").Range("Q9").Value + 1
'aumento en 1 el bucle
enumera = enumera + 1
'imprime la hoja
ActiveWindow.SelectedSheets.PrintOut , collate:=True
Loop
End Sub
----------------
También había probado esta otra opción, esta vez con un botón. Pero esta opción ya ni me imprime (el botón está en Hoja2 y lo que quiero imprimir está en Hoja1)
- Código: Seleccionar todo
Sub macro1()
Dim inici As Integer
inici = 1
For Count = inici To 2
'Imprimo la hoja
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'cambio de valor las celdas que me interesan
Sheets("Hoja1").Range("H9").Value = Sheets("Hoja1").Range("H9").Value + 1
Sheets("Hoja1").Range("Q9").Value = Sheets("Hoja1").Range("Q9").Value + 1
'Aumento el bucle
inici = inici + 1
Next Count
End Sub
--------------------------------------
Que hago mal?
Gracias.
Un saludo
