Distintos margenes superiores con excel 2010

Tengo una hoja con datos, unas 300 filas y necesito imprimir la 1ª pagina con un margen superior de 2 cms y todas las demás a 10 cms margen superior, alguna macro o idea?
GRACIAS. Llevo mucho tiempo dándole vueltas.

1 Respuesta

Respuesta

Espero estés realmente bien.

Esta macro aplica un margen de 10 cms. Superior a todas las hojas de tu libro.

Sub Margen10()
For Each HOJA In ActiveWorkbook.Sheets
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(3.93700787401575)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
Next HOJA
End Sub

Esta macro aplica margen de 2 centímetros. Ten presente que el nombre de la hoja debe ser Hoja1

Sub Margen2()
Hoja1.Select
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.78740157480315)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintSheetEnd
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
End Sub

Bendiciones!

Lucas.

Lo primerísimo es darte las gracias por tu tiempo. Creo que no me he explicado bien, te cuento:

Tengo un fichero excel, con un una única hoja, pongamos "DATOS", esta hoja tiene 300 filas. Lo que quiero es una macro que me imprima, en la primera página, la información que quepa pero con un margen superior de 2 cms, por ejemplo de la fila 1 a la 50 y el resto de páginas solo entrarían unas 30 filas aprox. porque el margen superior ha de ser de 10 cms. Repito una sola hoja, con aproximadamente 10 paginas, y el margen de la primera pag es distinto al margen de las restantes. Espero haberme explicado con claridad.

MUCHÍSIMAS GRACIAS OTRA VEZ POR TU TIEMPO

Espero estés realmente bien.

Te tengo que pedir disculpas pero sinceramente no se como lograr eso que estas necesitando. Te sugiero que preguntes nuevamente en el tablón, dando la información adicional que me brindaste en tu respuesta.

Mil disculpas.

Bendiciones!

Lucas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Personalizar dimensiones de Tamaño de Papel en Excel

Dam, Estoy organizando una Macro y una de sus tareas no he logrado concluirla. Necesito generar la instrucción que me permita dar dimensiones específicas de Alto = 21,59 cms y de Ancho = 32,56 cms La que más se aproxima es la de tamaño oficio que es...
1 respuesta

Macro para Imprimir hoja en impresora que no es la predeterminada.

Me podrían ayudar a generar una macro para imprimir una un archivo en dos paginas y mandarla a otra impresora que no es la predeterminada, Tengo varias impresoras en red y la que uso predeterminada es una impresora matriz, el tema es que el reporte...
1 respuesta

Mejora en impresión por medio de macro

Tengo este macro Private Sub imprimir() Application.ScreenUpdating = False Sheets("IMPRESION").Select Range("A:G" & j).Select Selection.PrintOut Copies:=1 Sheets("JUGADOS").Select Application.ScreenUpdating = True End Sub pero quiero que cuando...
1 respuesta

Auto ajustar el contenido a una sola hoja en Excel

Necesito que me ayudes, necesito una macro en excel para que esta automaticamente ajuste el contenido de un libro para que este siempre se imprima en una sola hoja y no salga en dos. ¿Me podras ayudar en esto? Necesito que por ejemplo se reduzca el...
1 respuesta

Macro especificaciones de impresión

Quiero saber cómo crear macro que establezca las condiciones de impresión: calidad borrador, ambas caras, desde la última hoja, etc.
1 respuesta

Macro para imprimir selecciones diferentes en hojas diferentes

Necesito ayuda con una macro que debería ser sencilla y me esta causando problemas, necesito imprimir de una hoja de excel 2 selecciones diferentes en hojas diferentes y de otra hoja 1 selección, me explico: lo que hago normalmente es en la "hoja 1"...
1 respuesta

Ajustar margenes de una hoja de excel desde VB

Si recuerdas la última vez te pregunte acerca de cambiar la orientación de una hoja de cálculo desde VB y el formato de una celda. Ambas sugerencias tuyas me sirvieron de maravilla. Pero ahora mi pregunta es: ¿Desde VB es posible ajustar las márgenes...
1 respuesta

Formulas en el encabezado o pie de pagina

Mi pregunta es si podemos insertar formulas en pie de pagina Por ejemplo: Pag: xxxx Pag. Sig. Xxxx+1 Ir Añadiendo una formula para decir cuando es la siguiente La duda que me ha surgido mientras te escribía, como se haría que supiese la ultima...
1 respuesta

Macro para imprimir hoja

Necesito un código de macro para imprimir una planilla que tengo en una hoja de excel, el tema es que quiero que la planilla se ajuste a la totalidad de la hoja y este centrada,
2 respuestas

Imprimir filas seleccionadas con multiselectextended de listbox e imprimirlas

Hace un par de días que estoy creando una macros para el inventario de bodega, tengo bastante avanzado todo esto, pero me quede pegado en la impresión de mis datos. Les cuento, existe una matriz de rango amplio que se muestra completa en el listbox,...
1 respuesta