Ayuda Nuevamente.

22/07/2003 - 16:20 por JR | Informe spam
Hola Grupo.
Tengo la siguente duda?
Como puedo definir el area de impresion por codigo.
Como puedo Imprimir los titulos, o repetir las filas en el extremo superior
por codigo.
Saludos.
FJRB

Preguntas similare

Leer las respuestas

#1 Adolfo Fernández
22/07/2003 - 18:09 | Informe spam
Hola JR
Si utilizas el grabador de macros y configuras la página el código que te
genera es el siguiente:

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = "$A:$A"
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$140"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = True
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = -4
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 33
End With

Y aqui creo que estan todas las opciones posibles que tienes para configurar
la página, modificalas a tu gusto.

Un saludo,
Adolfo

"JR" escribió en el mensaje
news:#
Hola Grupo.
Tengo la siguente duda?
Como puedo definir el area de impresion por codigo.
Como puedo Imprimir los titulos, o repetir las filas en el extremo


superior
por codigo.
Saludos.
FJRB



Respuesta Responder a este mensaje
#2 JR
23/07/2003 - 00:53 | Informe spam
Gracias Ok.
FJRB


"Adolfo Fernández" escribió en el mensaje
news:#
Hola JR
Si utilizas el grabador de macros y configuras la página el código que te
genera es el siguiente:

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = "$A:$A"
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$140"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = True
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = -4
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 33
End With

Y aqui creo que estan todas las opciones posibles que tienes para


configurar
la página, modificalas a tu gusto.

Un saludo,
Adolfo

"JR" escribió en el mensaje
news:#
> Hola Grupo.
> Tengo la siguente duda?
> Como puedo definir el area de impresion por codigo.
> Como puedo Imprimir los titulos, o repetir las filas en el extremo
superior
> por codigo.
> Saludos.
> FJRB
>
>
>


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida