Macro para imprimir rango si este tiene datos

Requiero imprimir una hoja de excel, en el tanto en un rango de celdas definido contenga informacion o datos.
Esto lo estoy codificando en un indice general que si el cuadro de texto tiene click proceda a realizar el job
entonces lo que tengo hasta el momento es

If CheckBox10 = True Then
Sheets("11").PrintOut

El rango lo tengo llamado "hipoteca1", cual puede ser el codigo para que imprima si el rango "hipoteca1" <> " "

hola dani !

> Requiero imprimir una hoja de excel, en el tanto en un rango de celdas definido contenga informacion o datos.
> Esto lo estoy codificando en un indice general que si el cuadro de texto tiene click proceda a realizar el job
> entonces lo que tengo hasta el momento es
>
> If CheckBox10 = True Then
> Sheets("11").PrintOut
>
> El rango lo tengo llamado "hipoteca1", cual puede ser el codigo para que imprima si el rango "hipoteca1" <> " "

prueba con algo +/- asi:

with worksheets("11")
if .range("hipoteca1") <> " " then .printout
end with

saludos,
hector.


.

Gracias Hector, sin embargo, me genera un error 13, no coinciden los tipos...
lo tengo escrito así:

If CheckBox10 = True Then
With Worksheets("11")
If .Range("hipoteca1") <> " " Then Range("hipoteca11").PrintOut
End With
End If

"hipoteca11" es otro rango que deseo imprimir de la hoja 11.

Me ayudas?

"Héctor Miguel" wrote:

> hola dani !
>
> > Requiero imprimir una hoja de excel, en el tanto en un rango de celdas definido contenga informacion o datos.
> > Esto lo estoy codificando en un indice general que si el cuadro de texto tiene click proceda a realizar el job
> > entonces lo que tengo hasta el momento es
> >
> > If CheckBox10 = True Then
> > Sheets("11").PrintOut
> >
> > El rango lo tengo llamado "hipoteca1", cual puede ser el codigo para que imprima si el rango "hipoteca1" <> " "
>
> prueba con algo +/- asi:
>
> with worksheets("11")
> if .range("hipoteca1") <> " " then .printout
> end with
>
> saludos,
> hector.
>
>
> .
>

Fijate en el punto que antecede a la 1a. sentencia de Range.

Saludos Elias

"dani" wrote:

> Gracias Hector, sin embargo, me genera un error 13, no coinciden los tipos...
> lo tengo escrito así:
>
> If CheckBox10 = True Then
> With Worksheets("11")
> If .Range("hipoteca1") <> " " Then Range("hipoteca11").PrintOut
> End With
> End If
>
> "hipoteca11" es otro rango que deseo imprimir de la hoja 11.
>
> Me ayudas?
>
> "Héctor Miguel" wrote:
>
> > hola dani !
> >
> > > Requiero imprimir una hoja de excel, en el tanto en un rango de celdas definido contenga informacion o datos.
> > > Esto lo estoy codificando en un indice general que si el cuadro de texto tiene click proceda a realizar el job
> > > entonces lo que tengo hasta el momento es
> > >
> > > If CheckBox10 = True Then
> > > Sheets("11").PrintOut
> > >
> > > El rango lo tengo llamado "hipoteca1", cual puede ser el codigo para que imprima si el rango "hipoteca1" <> " "
> >
> > prueba con algo +/- asi:
> >
> > with worksheets("11")
> > if .range("hipoteca1") <> " " then .printout
> > end with
> >
> > saludos,
> > hector.
> >
> >
> > .
> >