Sub Μακροεντολη1_1000deltia()
Dim i, j, k As Integer
j = Range("V89").Value
k = Range("Y89").Value
For i = j To k
Range("w54:z62").Select
ActiveCell.Formula = i
Range("w54").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next i
End Sub
Καλησπερα φιλε ΔΗΜΟΚΡΙΤΕ.
Κανε μου μια χαρη, βαλε λιγο τον παραπανω κωδικα και πες μου εαν σου δουλευει.
Ευχαριστω.