Hacer desaparecer el punteado de la zona a imprimir

3 envíos / 0 nuevos
Último envío
Jose Luis Casla...
Imagen de Jose Luis Casla Araiz
Offline
última acción: Hace 1 año 12 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 11/05/2012 - 15:15
Puntos: 1620
Hacer desaparecer el punteado de la zona a imprimir

Tengo este macro, que lo utilizo para imprimir los datos de una Hoja.

Una vez que localizo la ultima fila con datos, establezco el area de impresion.

Previamente he anulado el area de impresion que pudiera existir previamente en esa Hoja.

Hasta aqui, normal.

Una vez que imprimo los datos, anulo de nuevo el area de impresión. con ->ActiveSheet.PageSetup.PrintArea = ""
y me situo en la celda R4C2 con ->Application.GoTo Reference:="R4C2"

Al mostrar en ese momento la Hoja, me aparece el punteado que indica el area que se imprimirá en cada pagina...

Quisiera evitar que aparezca ese punteado... soalmente por estética, digámoslo así. No lo consigo.

Hay algun detalle que se me escapa...?

 

Sub PrintArea()
Dim LngLastRow As Long

Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = ""
LngLastRow = ActiveSheet.Range("G65536").End(xlUp).Row
ActiveSheet.Range("B1:G" & LngLastRow).Select

ActiveSheet.PageSetup.PrintArea = "B1:G" & LngLastRow
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Application.GoTo Reference:="R4C2"

Application.ScreenUpdating = True

End Sub

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 14 horas 1 min
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11005
ActiveSheet.DisplayPageBreaks

La previsualización del área de impresión la controla la propiedad DisplayPageBreaks de la hoja. establéce su valor a falso para que no se muestre ese punteado que comentas. 

ActiveSheet.DisplayPageBreaks=false

 

------
Ya sé Excel, pero necesito más.

Jose Luis Casla...
Imagen de Jose Luis Casla Araiz
Offline
última acción: Hace 1 año 12 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 11/05/2012 - 15:15
Puntos: 1620
Re: ActiveSheet.DisplayPageBreaks

Paco:

Sin palabras.

Genial. Probado y satisfecho.

No se cómo lo haces... pero tienes siempre respuesta para todo...

Muchas gracias, una vez mas.

Jose Luis