Jump to content

Imprimir igual con distintas impresoras


remigio

Recommended Posts

Hola.

Utilizo excell para rellenar un formulario preimpreso.

En una hoja me he hecho las casillas que tiene este pre-impreso para rellenarlas, y me he ajustado las filas y columnas para que al imprimir todo cuadre.

el problema es que cuando cambio de impresora, todo se va al traste, ¿alguien sabe como podría hacer que simpre imprima lo mismo?¿con algún macro o algo?

mil gracias.

Link to comment
Share on other sites

Hola de nuevo.

voy a contestarme yo mismo, así aporto algo y a ver si así alguien tiene alguna idea mas.

Para resolver mi problema, en un macro preparo la página para su impresión,( a continuación pongo parte del código.)

así me garantizo que sipre se imprimirá en el mismo sitio, aun así tengo el problema de que use la impresora que use, siempre empieza a imprimirse en el mimo sitio de la hoja, pero la escala varia.

sub imprimir()

Application.ScreenUpdating = False

'preparar la hoja para la impresión

With Sheets("resumen").PageSetup

.PrintArea = ""

.Orientation = xlPortrait 'xlLandscape

.PaperSize = xlPaperA4 'hoja A4

.BlackAndWhite = False 'incluir colores o no

.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)

'.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)

'.CenterHorizontally = False 'centrar horizontalmente

'.CenterVertically = False 'centrar verticalmente

'.Zoom = 100

.HeaderMargin = _

Application.CentimetersToPoints(0)

.FooterMargin = _

Application.CentimetersToPoints(0)

.TopMargin = _

Application.CentimetersToPoints(1)

.BottomMargin = _

Application.CentimetersToPoints(0)

.LeftMargin = _

Application.CentimetersToPoints(0.5)

.RightMargin = _

Application.CentimetersToPoints(0)

'.RightFooter = ("")

End With

Sheets("resumen").PrintOut copies:=1, preview:=True

Application.ScreenUpdating = True

end sub

gracias.

un saludo

Link to comment
Share on other sites

Hola remigio

Bienvenido al foro.

El problema está en los espacios "muertos" que dejan las impresoras y que varían según las marcas y los modelos. He leido en alguna parte que algunas impresoras permiten imprimir sin dichos bordes, pero me imagino que para eliminarlos deberás trabajar en el propio panel de la impresora y seleccionar, si te aparece en algún lado, la opción de sin márgenes, de forma que los márgenes fijados en tu hoja sean los únicos que aparezcan.

Lamento no poder ser de más ayuda.

Un saludo desde Vitoria

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy