Ver originales (Francés)

Macro para definir una zona de impresión - Page 2

Resuelto
Anterior
  • 1
  • 2
  1. Le Pingou Mensajes publicados 12275 Fecha de registro   Estado Colaborador Última intervención   1 477
     
    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 With
    ActiveSheet.PrintOut
    End Sub


    --
    Saludos.
    Le Pingou
    0
  2. marc41000 Mensajes publicados 58 Fecha de registro   Estado Miembro Última intervención  
     
    gracias, voy a probarlo este fin de semana

    gracias de nuevo
    0
  3. marc41000 Mensajes publicados 58 Fecha de registro   Estado Miembro Última intervención  
     
    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
    0
  4. Le Pingou Mensajes publicados 12275 Fecha de registro   Estado Colaborador Última intervención   1 477
     
    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
    0
  6. marc41000 Mensajes publicados 58 Fecha de registro   Estado Miembro Última intervención  
     
    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
    0
  7. Le Pingou Mensajes publicados 12275 Fecha de registro   Estado Colaborador Última intervención   1 477
     
    Hola,
    Comienza probando lo que te propuse y luego vuelves....!

    --
    Saludos.
    El Pingou
    0
  8. marc41000 Mensajes publicados 58 Fecha de registro   Estado Miembro Última intervención  
     
    los usuarios prefieren imprimir ellos mismos

    cordialmente
    0
  9. Le Pingou Mensajes publicados 12275 Fecha de registro   Estado Colaborador Última intervención   1 477
     
    Hola,
    Gracias, es realmente un disparate... !
    Puesto a abandonar el puesto.

    --
    Saludos.
    El Pingüino
    0
  10. marc41000 Mensajes publicados 58 Fecha de registro   Estado Miembro Última intervención  
     
    ¿por qué es una tontería?
    0
Anterior
  • 1
  • 2