Foros del Web » Soporte técnico » Ofimática »

Lineas para Impresion

Estas en el tema de Lineas para Impresion en el foro de Ofimática en Foros del Web. Grabé esta macro en excel para impresion de hoja Sub Macro10() ' Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ...
  #1 (permalink)  
Antiguo 19/11/2010, 13:05
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 16 años, 7 meses
Puntos: 39
Lineas para Impresion

Grabé esta macro en excel para impresion
de hoja

Sub Macro10()
'
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Mi pregunta: ¿Que validad tiene las lineas que terminan en "" y False?
Puedo eliminar todas las que terminan en "" y False? o ¿hacen falta en futuro?
Necesito una exposicion basica sobre eso
Gracias
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg
  #2 (permalink)  
Antiguo 23/11/2010, 11:27
Avatar de GEMO  
Fecha de Ingreso: julio-2007
Ubicación: Guadalajara
Mensajes: 110
Antigüedad: 16 años, 8 meses
Puntos: 3
Respuesta: Lineas para Impresion

Hola, la verdad no se mucho de eso pero esas líneas a las que te refieres son como parte del formato que tienes en tu hoja o área de impresión.

Yo comúnmente utilizo esta línea de código para imprimir:

Hoja#.PrintOut Copies:=1, Collate:=True

y así teniendo mi área de impresión definida pues automáticamente me imprime eso sin meterme en cuestión de formato y eso.

no se si te sirva para aclarar tu dada, que estes bien.
  #3 (permalink)  
Antiguo 23/11/2010, 17:57
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 16 años, 7 meses
Puntos: 39
Respuesta: Lineas para Impresion

Realmente agradesco tu respuesta pero no es eso que estoy buscando.
Para imprimir tengo un metodo (macro) bien completo pero quiero agregarle algunas lineas de esas arriba para no tener que estar configurando pagina siempre que quiera imprimir.

Esa configuracion contiene una linea que es para "Ajustar todas las columnas en una hoja" pero no se cual es esa linea
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg

Etiquetas: impresion, lineas
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:52.