martes, 14 de agosto de 2018

Ciclo escolar 1_2018_2019

Dim cuenta, inicial, Final, FLAG
    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


Contenido temático del módulo Análisis y diseño de sistemas de información



Unidades de aprendizaje del módulo Análisis y diseño de información










Contenido temático del módulo
Sistemas gestores de bases de datos



Unidades de aprendizaje del módulo
Sistemas gestores de bases de datos





























No hay comentarios:

Publicar un comentario