Imprimir una agenda 2010 en excel
Me gustaría imprimir una página por cada día del año con un cuadrante de actividades disrias, lo único que cambiaría seria la cabecera que me gustaría que araceciese la fecha como en una agenda, a ver si me podéis echar una mano para ver si se puede hacer en excel.
Gracias
Gracias
Respuesta de Victor Perdomo
1
Vamos a hacer lo siguiente:
En la hoja1 pondrás el formato.
La hoja2 servirá de control, pondrás en la celda A1:desde B1:hasta C1:celda, aunque no importa que texto le pongas, es como una guía, así que en la celda a2 pondrás la fecha inicial de impresión, la b2 la fecha fin de impresión, y en la c2 pondrás la celda de la hoja1 en la que esta la fecha que se hira modificando, ejemplo C2->b5.
Luego insertaras un botón, y le agregaras este código.
Private Sub CommandButton1_Click()
Dim f1 As Date
Dim f2 As Date
Dim c As String
f1 = Worksheets(2).Range("a2").Value
f2 = Worksheets(2).Range("b2").Value
c = Worksheets(2).Range("c2").Value
While f1 <= f2
Worksheets(1).Range(c).Value = f1
Worksheets(1).PrintOut
f1 = f1 + 1
Wend
End Sub
En la hoja1 pondrás el formato.
La hoja2 servirá de control, pondrás en la celda A1:desde B1:hasta C1:celda, aunque no importa que texto le pongas, es como una guía, así que en la celda a2 pondrás la fecha inicial de impresión, la b2 la fecha fin de impresión, y en la c2 pondrás la celda de la hoja1 en la que esta la fecha que se hira modificando, ejemplo C2->b5.
Luego insertaras un botón, y le agregaras este código.
Private Sub CommandButton1_Click()
Dim f1 As Date
Dim f2 As Date
Dim c As String
f1 = Worksheets(2).Range("a2").Value
f2 = Worksheets(2).Range("b2").Value
c = Worksheets(2).Range("c2").Value
While f1 <= f2
Worksheets(1).Range(c).Value = f1
Worksheets(1).PrintOut
f1 = f1 + 1
Wend
End Sub
