Sheets("Graficas").Select
FLAG = 0
inicial = Range("L8").Value
Final = Range("L9").Value
Do While inicial <= Final
Sheets("Graficas").Select
Range("L1").Select
ActiveCell.FormulaR1C1 = inicial
Range("L2").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("B9").Value & Range("M1").Value & Range("A12").Value & Range("M1").Value & Range("E12").Value & Range("M1").Value & Range("H12").Value & Range("A15").Value, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.CutCopyMode = False
inicial = inicial + 1
Loop
End Sub
No hay comentarios:
Publicar un comentario