Lo veo muy bien para mi necesidad, le di mucha vuelta para solo poder ubicar dos lineas que me funcionaban, lo demas nanai nanai.
Millon de garcias amigo monimo
Con l oque mensioné en mi post anterior, es esto:
la macro la grabe para de una tener la configuracion de la pagina., esta
---------------------
Cita: Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "" ''''''''''''''''''''''''''''''''''''''''''''NO SE LA FUNCION POR TERMINAR EN ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.748031496062992)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic '''''''''''''''''''''''''''''''''''''''''''''''''' '''No se su funcion
.Order = xlDownThenOver '''''''''''''''''''''''''''''''''''''''''''''''''' '''No se su funcion
.BlackAndWhite = False '''''''''''''''''''''''''''''''''''''''''''''''''' ''' negro y blanco
.Zoom = False '''''''''''''''''''''''''''''''''''''¿?
.FitToPagesWide = 1 ''''''''''''''''''''''''''''''''''''''''''''''tamp oco se la funcion
.FitToPagesTall = False ''''''''''''''''''''''''''''''''''''''''''''''tamp oco se la funcion
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True ''''''''''''''''''''''''''''''''''''''''''''''tamp oco se la funcion
.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
Las de rojo se para que son pero las demas ni pato
En esta configuracion, está una linea que es para "Ajustar todas las columnas en una pagina" pero no se cual es esa linea, esa tambien la marcaria en rojo para meterla y quiero meterla;
Quiero pedirte que me ubiques en el metodo que me dejaste ultimo, las lineas marcadas en rojo más la que no se cual es, y si ves alguna que pueda hacerme falta meterla.
Con esas lineas integradas en el metodo de impresion, talves después eliminaré la linea Application.Dialogs(xlDialogPrinterSetup).Show, talves dije.
A parte de las rojas, las demas no sé para que son ni la funcion de las que terminan en "". False sé yo que tenerlas en el codigo y no tenerlas es lo mismo pero las terminadas en "" no se.
¿Podrias hacerme ese ultimo favor de metermelas en el ultimo codigo? (metodo)
Cuando termine psa la factura de una ves para ver si puedo pagartela o pedirte credito, jejejejejeje