Macro para imprimir rango si este tiene datos

Hola Elias, qué vida verdad, como me cuesta: vieras que me dio un error de
compilación y me señaló .Address por lo que lo eliminé y me genera otro error
Error definido por la aplicación o el objeto y cuando le doy depurar me
indica en amarillo la sentencia: If Range("hipoteca1") <> "" Then

Qué puede ser, ya casi me vuelvo loca :(

"sailepaty" wrote:

Disculpa Dani, eso pasa por no leer bien.

With Worksheets("11")
If .Range("hipoteca1") <> " " Then _
.PageSetup.PrintArea = Range("hipoteca11").Address
.PrintOut
End With

Saludos

Disculpa la tardanza, pero no recibo mensaje de que alguien haya contestado,
ojala y alguien pueda comentar al respecto.

Haber me parece que seguimos teniendo problemas con el famoso punto, así que
para descartar intenta de esta forma y comentanos si funciono.

If Worksheets("11").Range("hipoteca1") <> " " Then
Worksheets("11").PageSetup.PrintArea =
Worksheets("11").Range("hipoteca11").Address
Worksheets("11").PrintOut
End If


Saludos

"dani" wrote:

Hola Elias, qué vida verdad, como me cuesta: vieras que me dio un error de
compilación y me señaló .Address por lo que lo eliminé y me genera otro error
Error definido por la aplicación o el objeto y cuando le doy depurar me
indica en amarillo la sentencia: If Range("hipoteca1") <> "" Then

Qué puede ser, ya casi me vuelvo loca :(

"sailepaty" wrote:

> Disculpa Dani, eso pasa por no leer bien.
>
> With Worksheets("11")
> If .Range("hipoteca1") <> " " Then _
> .PageSetup.PrintArea = Range("hipoteca11").Address
> .PrintOut
> End With
>
> Saludos