none
macros para imprimir en excel RRS feed

  • Pregunta

  • tengo este codigo alguien me pede ayudar deseo imprimir una serie de paginas segun un rango 

               

    Sub impresionparteprofeaiia()

       Application.Dialogs(xlDialogPrinterSetup).Show

       Sheets("Prof-AIIa (x3)").Select

        inicio = Range("h23").Value

        fin = Range("i23").Value

       ActiveWindow.SelectedSheets.PrintOut From:=inicio, To:=fin, Copies:=1

    Sheets("Hoja1").Select
        Range("I5").Select

    End Sub

    gracias antiocipadamente

    lunes, 30 de marzo de 2015 16:52