Excel - Imprimir desde VB

 
Vista:

Imprimir desde VB

Publicado por sargvid (83 intervenciones) el 11/10/2006 08:00:07
Buenos Dias, alguient me podria decir que codigos se utilizan en VB para imprimir un rango determinado de una hoja, y ajustar los diferentes parametros de impresion,

Ajustar a 1 hoja
Centrar Horizontal y Vertical, etc

O me enviais alguna direccion donde pueda verlo.

Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Imprimir desde VB

Publicado por José Luis (700 intervenciones) el 11/10/2006 08:32:15
Hola Sarvid, te pido disculpas porque ayer recibí tu correo del día 6 sobre el listboxy como no has tenido respuesta todavía en el foro, intentaré buscarte una solución (no tengo mucho tiempo porque tengo una sobrecarga de trabajo)

Para algunos códigos mira en
http://www.erlandsendata.no/english/index.php?t=envbaprint
En este sitio hay de todo y muy bueno

Para hacer esto te aconsejo se utilices el grabador de macros haciendo todo lo que precisas y que después personalices la macro grabada para lo que desees.
Un ejemplo del código que yo uso (TituloListado y ValorFecha son variables mías).

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = TituloListado
.RightHeader = "AL " & ValorFecha
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.42)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 110
End With

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar