macro para definir una zona de impresión Resuelto

Question

hola  tengo una tabla de datos de 16 columnas y de x filas. las 12 primeras filas son información general de la tabla. los datos comienzan por lo tanto en la fila 13 hasta la x.  me gustaría mediante un botón hacer un diseño en el que tenga a lo sumo 15 filas de datos por página, si hay más de 15 filas imprimir en otra página, etc.  si hay impresión de otras páginas me gustaría que las filas n.º 5 a 12 también se impriman en la parte superior de cada hoja.  ¿es posible?  gracias

Le Pingou · Answer

Hola, ¿Por qué no usar directamente la herramienta [ZoneImpr] en la pestaña [Maquetación]...!   -- Atentamente. Le Pingou

marc41000 · Answer

Bonsoir pour éviter les manipulations et pour que ce fichier soit utilisé par plusieurs personnes

Le Pingou · Answer

Hola, No es una macro lo que evitará que otro usuario manipule (¿qué haces si modifica las columnas …?). Puedes fijar la zona de impresión como te propuse y listo; no hay nada que hacer por parte de los usuarios, salvo imprimir la hoja.   -- Saludos. Le Pingou

marc41000 · Answer

hola  el número de columnas no cambiará, es solo el número de filas que varía, digamos de 20 a x.  con tu método hay que definir la zona de impresión cada vez con maniobras un poco complicadas para un usuario frágil.  no debe haber en la impresión una tabla con filas vacías de donde sale la idea de la macro zona de impresión.  que tengas un buen día

Le Pingou · Answer

Hola, No entendí bien su problema. Puede resolverse ajustando los márgenes de la página, vea el ejemplo: https://www.cjoint.com/?3Jyv33102Hz   -- Saludos. Le Pingou

marc41000 · Answer

Hola, voy a explicar de nuevo: hola mi tabla tiene 16 columnas y x filas. las 12 primeras filas son información general de la tabla. los datos comienzan desde la fila 13 hasta la fila x. me gustaría, mediante un botón colocado al lado de la tabla, hacer un diseño en el que haya: - en la primera página las 12 filas iniciales (información general) + 15 filas de datos. - en la segunda página las filas de información de la 5 a la 12 + las filas de datos restantes. - ... si hay impresión de otras páginas, me gustaría que las filas n.º 5 a 12 también se impriman en la parte superior de cada hoja. ¿es posible? gracias

Le Pingou · Answer

Hello, The example I proposed does exactly what you want without macros, you just need to adapt it according to your data format.   -- Best regards. Le Pingou

marc41000 · Answer

Buenas noches   no entiendo su archivo de Excel   saludo

Le Pingou · Answer

Hola, ¿Has intentado obtener un resumen para imprimir o imprimir la página y también eliminar algunas líneas de datos ....?   -- Saludos. El Pingüino

marc41000 · Answer

hola  al eliminar las filas funciona pero no quiero que las personas que usan esta tabla eliminen o añadan filas porque algunas celdas contienen fórmulas, formatos condicionales ...  por lo tanto me gustaría que una acción simple haga un formateo y defina una zona de impresión, es por eso que pensaba en una macro pero quizás haya algo más simple pero en este momento no sé cómo hacerlo  gracias por vuestra ayuda

Le Pingou · Answer

Hola, Bien, en ese caso, ¿cuál es la estructura de su hoja y en qué lugar se permite a los usuarios ingresar datos...? -- Saludos. El Pingüino

Maurice · Answer

Hola  Aquí tienes una macro para el formato Línea y Columna  Sub Macro2()  With ActiveSheet.PageSetup  .PrintTitleRows = ""$5:$12"" ' Elección de filas  .PrintArea = ""$B:$G"" ' Elección de columnas  End With End Sub  A+ Maurice

marc41000 · Answer

buenas noches  como ya dije, los usuarios pueden introducir datos en las filas de la tabla, este número de filas varía mucho de un día a otro, puede pasar de 15 filas a más de 100  esta tabla ya está dibujada y las celdas ya tienen fórmulas  comprende bien que no quiero imprimir una tabla con filas en blanco, por eso la zona de impresión debe definirse cada vez

Le Pingou · Answer

Hola, Bueno, ahora está más claro, así que solo hay que tener en cuenta las líneas que el usuario haya ingresado. Me imagino que la primera columna contiene una fórmula .... ¿Cuál es esa fórmula ...? ¿El formato de la hoja es horizontal o vertical?  Saludos. Le Pingou

Le Pingou · Answer

Hola, Admitido en la columna 2 [B] está llenada por el usuario y sirve como referencia para el procedimiento posterior: Sub DefinirZonaImpr()' buscar última fila de la columna [B]With ActiveSheet.PageSetup .PrintTitleRows = "$5:$12" .PrintArea = ("$A$1:$S$" & Cells(Rows.Count, 2).End(xlUp).Row)End WithEnd Sub  -- Saludos. El Pingou

marc41000 · Answer

en modo horizontal

la columna 16 contiene los cálculos; los datos están ingresados en una sola fila desde la columna 1 hasta la 15

Le Pingou · Answer

Hola, Gracias por la información. Usamos la columna [A] para detectar el rango a imprimir. A continuación la procedimiento para insertar en un módulo: Sub DefinirZonaImpr()' busca la última fila en la columna [A:A]With ActiveSheet.PageSetup .PrintTitleRows = "$5:$12" .PrintArea = ("$A$1:$S$" & Cells(Rows.Count, 1).End(xlUp).Row)End WithEnd Sub Para activarlo añade un botón de comando en la hoja y dale la referencia del procedimiento. El orden de impresión no está incluido en el código.  -- Saludos. Le Pingou

marc41000 · Answer

hola   para resumir ¿qué debo escribir en la macro completa que soy el ensayo   gracias de nuevo por vuestra ayuda   atentamente

Le Pingou · Answer

Hola, Simplemente la instrucción ActiveSheet.PrintOut Inserte entre [End With] y [End Sub]   Saludos. Le Pingou

marc41000 · Answer

bsr

en resume je met cela?

Sub DefinirZoneImpr()
' recherhe dernière ligne colonne [B]
With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$12"
.PrintArea = ("$A$1:$S$" & Cells(Rows.Count, 2).End(xlUp).Row)
End With
ActiveSheet.PrintOut

End Sub

Le Pingou · Answer

Hola, Casi perfecto, según tu información: la columna 16 contiene los cálculos los datos están ingresados en una fila de la columna 1 a 15 Tomé la columna 1 es decir [A] en lugar de la 2 Entonces el procedimiento es: Sub DefinirZonaImpr()' busca la última fila de la columna [A:A]With ActiveSheet.PageSetup .PrintTitleRows = "$5:$12" .PrintArea = ("$A$1:$S$" & Cells(Rows.Count, 1).End(xlUp).Row)End WithActiveSheet.PrintOutEnd Sub  -- Saludos. Le Pingou

marc41000 · Answer

gracias, voy a probarlo este fin de semana  gracias de nuevo

marc41000 · Answer

hola  muchas gracias, funciona  tendré una petición de un usuario, ¿es posible que el botón no inicie la impresión sino que defina únicamente la zona de impresión?  cordialmente

Le Pingou · Answer

Hola, Lo mejor es insertar una opción impresa de sí o no en el procedimiento y así solo tendrás un botón. Esto debe ser realizable para ti.  -- Saludos. El Pingüino

marc41000 · Answer

RE

Déjalo caer el botón de impresión, sí o no, lo más simple: como me piden, es definir cuál es la zona de impresión

cdt

Le Pingou · Answer

Hola, Comienza probando lo que te propuse y luego vuelves....!  -- Saludos. El Pingou

marc41000 · Answer

los usuarios prefieren imprimir ellos mismos  cordialmente

Le Pingou · Answer

Hola, Gracias, es realmente un disparate... ! Puesto a abandonar el puesto.   -- Saludos. El Pingüino

marc41000 · Answer

¿por qué es una tontería?

Macro para definir una zona de impresión

29 respuestas

Reinstalación de w11 imposible tras fallo del pc...

Funcionamiento de la impresora canon mg6250 en windows 11

Copiar/ pegar texto escaneado formato jpeg

Cómo ver los programas de las antillas francesas

Asistente de compra para pc de torre mao

Imposible usar mi tablet ctp18 con meetingbar

Pc asus vivobook no enciende, necesito ayuda

Hola, no entiendo nada... pero me gustaría encontrar un

Problema de texturas en enshrouded

Modificar un anuncio o el precio en leboncoin sin pagar