ACTUALIZAR DATOS WEB

HOLA ME PODRIAN AYUDAR POR FAVOR CON ESTA MACRO, YA QUE ACTUALIZA DATOS DE
LA WEB, PERO A LA HORA DE DARLE FORMATO DE IMPRESION ME TRAE LA
INFORMACION Y ME DESCONFIGURA EL FORMATO DE IMPRESION QUE YO LE HABIA DADO
CON ANTERIORIDAD.

COMO PUEDO HACER PARA QUE DESPUES DE QUE ME ACTUALICE LA INFORMACION ME
CONFIGURE EL RANGO DE IMPRESION Y EL FORMATO DE IMPRESION?

YA QUE PRIMERO ME CONFIGURA EL FORMATO DE IMPRESION Y DESPUES ME TRAE LA
INFORMACION.

Y TAMBIEN COMO PUEDO HACER UN INPUT PARA QUE YO LE DIGA CUANTAS
IMPRESIONES DESEO IMPRIMIR.

MUCHAS GRACIAS POR ANTICIPADO.

Sub eer()
'
Sub auto_open()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://delta/afiliados/accion.php", Destination:=Range("A1"))
.Name = "accion"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=True

End With
Range("A4").Select
Columns("A:A").EntireColumn.AutoFit
Columns("A:A").ColumnWidth = 8.29
Columns("B:B").ColumnWidth = 22.86
Columns("C:C").ColumnWidth = 13.86
Columns("B:B").ColumnWidth = 25.86
Columns("B:B").ColumnWidth = 22.14
Columns("C:C").ColumnWidth = 17.57
Range("A1:G4").Select
Selection.Font.Bold = True
Range("B3:C4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("A1:G4").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$4"
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.76)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
With ActiveSheet.PageSetup
.TopMargin = Application.InchesToPoints(0.56)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("A1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

GRACIAS.





Mensaje enviado desde http://grupos.buscadoc.org