
07/12/2006, 10:11
|
 | | | Fecha de Ingreso: febrero-2004 Ubicación: En algún impreciso lugar de Argentina
Mensajes: 96
Antigüedad: 21 años, 3 meses Puntos: 0 | |
Imprimir con macro en Excel cierta cantidad de paginas Quizás sea una pavada pero no tengo conocimientos de VB. Estaba preparando una macro para que me imprima varias hojas de un formulario en las que solo cambia el numero de orden: 1, 2, 3, número que el usuario carga en una hoja llamada Datos. El usuario ingresa pagina de inicio y pagina de final, y la macro imprime tantas hojas como haya entre Final - Inicio, colocando el numero de la hoja a medida que imprime. "Invente" esto pero no funciona: Esto que hice está asignado a un boton cuya caption es "Imprimir", en la misma hoja a imprimir:
Private Sub CommandButton3_Click()
Dim Inicio, Final
Inicio = Worksheets("Datos").Range("E12").Value
Fin = Worksheets("Datos").Range("E13").Value
If Inicio < Final Then
Imprimir:
Range("C2").Select
ActiveCell.FormulaR1C1 = "Worksheets("Datos").Range("E12").Value"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Inicio = Inicio + 1
ElseIf Inicio <= Final Then
GoTo Imprimir
End If
End Sub
gracias por lo que puedan indicarme. Seguiré leyendo mientras.
__________________ (_.·-¦-»çg§«-¦-·._) Teoría es cuando se sabe todo y nada funciona; práctica, cuando todo funciona y nadie sabe porqué. Anónimo |