Insertar Borde Inferior
Publicado por sargvid (83 intervenciones) el 17/10/2006 11:06:45
Hola muy buenas
Tengo un codigo VB que me va a buscar a un Historico los registros que cumplan determinadas condiciones y me los escribe en otra hoja para imprimir. Mi problema es el siguiente, yo quisiera que cada vez que me escriba un registro en la Hoja de Impresion me hiciera un borde inferior desde las columna 1 hasta la 18 pero la fila variara dependiendo donde termine de copiar el registro, yo hice el siguiente codigo pero no me funciona :
'Linea
Rango1 = Cells(LiIM + 1, 1)
Rango2 = Cells(LiIM + 1, 18)
Range(Rango1, Rango2).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Donde Rango1 y Rango2 son dos variables que tengo declaradas y LiIM es la linea que en ese momento toca imprimir. No se si esta bien echo, agradezco cualquier tipo de ayuda.
Tengo un codigo VB que me va a buscar a un Historico los registros que cumplan determinadas condiciones y me los escribe en otra hoja para imprimir. Mi problema es el siguiente, yo quisiera que cada vez que me escriba un registro en la Hoja de Impresion me hiciera un borde inferior desde las columna 1 hasta la 18 pero la fila variara dependiendo donde termine de copiar el registro, yo hice el siguiente codigo pero no me funciona :
'Linea
Rango1 = Cells(LiIM + 1, 1)
Rango2 = Cells(LiIM + 1, 18)
Range(Rango1, Rango2).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Donde Rango1 y Rango2 son dos variables que tengo declaradas y LiIM es la linea que en ese momento toca imprimir. No se si esta bien echo, agradezco cualquier tipo de ayuda.
Valora esta pregunta
0