Sub imprime()
Dim lig As Long
With Sheets("base")
lig = .Cells(Rows.Count, 1).End(xlUp).Row
End With
For i = 1 To lig
With Sheets("imprime")
.Range("B2") = Sheets("Base").Cells(i, 1)
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End With
Next i
End Sub