Boa tarde Marcelo

Para facilitar anexe um exemplo da tua planilha, demonstrando o resultado esperado.

Conforme as regras do fórum, para anexar, o arquivo deve estar compactado.

[]s

Boa tarde Patropi

Poderia me ajudar como faço para anexar um aquivo aqui no forum

Boa tarde Patripi,

O argui já esta em anexo

Fico no aguado de alguma sugestão

Experimente:

Sub imprimir()

Dim lRow As Long, lLop As Long
'MsgBox "Imprimir todos os demonstrativos ?", vbYesNo, "Alerta"
Application.ScreenUpdating = False
lRow = Sheets("Plan2").Cells(Cells.Rows.Count, "A").End(xlUp).Row
Sheets("Plan1").Activate
For lLop = 2 To lRow
Sheets("Plan1").Range("N2") = Sheets("Plan2").Cells(lLop, 1).Value
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next
Application.ScreenUpdating = True
MsgBox "Foram impressos; " & lRow - 1 & "Comprovantes"
End Sub

Marcelo
Elaborei um modelo com base nas suas informações, veja se te antede???
abraços...