Cómo seleccionar rango y...

[ColdGeorge]

Hola amigos

Hay que imprimir un formato cuya extensión varía regularmente, me gustaría que al seleccionar el rango de impresión, este se muestra en alguna celda, ¿cómo le hago? gracias y saludos.

ColdGeorge

 

[Special-K99]

For anyone that wishes to tackle this:

Hello friends

You have to print a format whose extension varies regularly, I would like that when selecting the print range, this is displayed in some cell, how do I do? thanks and regards.

ColdGeorge

 

[Greg Truby]

El siguiente debe de ayudarle arrancar. Usted tendrá que experimentar y ajustarlo según sus necesidades particulares.

Private Sub Workbook_BeforePrint(Cancel As Boolean)    
    With ActiveSheet
        If .Name = "Sheet1" Then .Range("A1") = .PageSetup.PrintArea
    End With
End Sub

 

[ColdGeorge]

Hola a todos

Bien, vamos a iniciar los experimentos, ya les comunicaré, saludos y gracias.

ColdGeorge

El siguiente debe de ayudarle arrancar. Usted tendrá que experimentar y ajustarlo según sus necesidades particulares.

Private Sub Workbook_BeforePrint(Cancel As Boolean)    
    With ActiveSheet
        If .Name = "Sheet1" Then .Range("A1") = .PageSetup.PrintArea
    End With
End Sub

 

[ColdGeorge]

Hola amigos

Sólo deseo compartir los avances, esta es la primera opción, la cual muestra el rango que haya sido seleccionado.

Sub muestrango()
Range("I57").Value = Selection.Address(ReferenceStyle:=xlA1, RowAbsolute:=False, ColumnAbsolute:=False)
End Sub

Esta es otra buena opción, pero el rango cambia conforme la selección.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Range("I57").Value = Selection.Address(ReferenceStyle:=xlA1, RowAbsolute:=False, ColumnAbsolute:=False)
End Sub

Saludos, ColdGeorge

 

[Greg Truby]

Lo que usted ha puesto sí pondrá la dirección de la selección en la celda I57. Pero, favor note que la lógica que está usando implica que el usuario tiene que seleccionar las celdas antes de cada impresión. O sea, si el usuario selecciona A1:E10 y pone eso como el rango para imprimir y después selecciona F3 antes de imprimir, su macro pondra "F3" en la I57 aunque esto no es el rango que saldrá imprimido.


También vale la pena mencionar que lo que usted puso de segundo está en modulo de código del CUADERNO y no de una hoja. Significa que correrá para todas las hojas del cuaderno y no solamente a una específica.

 

[ColdGeorge]

Hola Greg

Gracias por tu comentario, mi proyecto en el que trabajo consta de varios módulos, tenía en mente seleccionar un rango a imprimir y que se mostrara en una celda y de ahí, mediante otro macro, tomarlo los datos previos para la impresión, sin embargo, lo descarté, ya que no tiene mucho sentido realizarlo de esa manera, saludos.

ColdGeorge