Dante Amor respondió:
Te anexo la macro actualizada para imprimir y guardar como pdf Sub IMPRIMIR() ruta = ThisWorkbook.Path & "\" arch = "archivo" Inicio = Range("M6").Value Fin = Range("Q6").Value For i = Inicio To Fin Range("O4").FormulaR1C1 = i ActiveSheet.PrintOut...