07/12/2006, 15:02
|
 | | | Fecha de Ingreso: febrero-2004 Ubicación: En algún impreciso lugar de Argentina
Mensajes: 96
Antigüedad: 20 años, 3 meses Puntos: 0 | |
| Solucionado
Ya está. Me estaba complicando, al final usé un bucle for. Para alguien como yo que no tiene ni idea, acá va el código que se coloca en el boton Imprimir en la hoja:
Private Sub CommandButton3_Click()
Dim inicio As Integer, final As Integer
inicio = Worksheets("Datos").Range("E13").Value
final = Worksheets("Datos").Range("E14").Value
For Count = inicio To final
Worksheets("Hoja a imprimir").Cells(4, 6).Value = inicio
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
inicio = inicio + 1
Next Count
MsgBox "hojas impresas:" & final
End Sub
Suerte~!
__________________
(_.·-¦-»çg§«-¦-·._)
Teoría es cuando se sabe todo y nada funciona; práctica, cuando todo funciona y nadie sabe porqué. Anónimo |