Добрый день!
если правильно понял задачу - макросом печать из excel
[vba]Код
Sub PrintBlank()
Dim lLastRow As Long
Application.EnableEvents = False
lLastRow = DataPr.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lLastRow
Blank.Range("N9").Value = DataPr.Range("A" & i).Value
Blank.Range("K21").Value = DataPr.Range("B" & i).Value
Blank.Range("K27").Value = DataPr.Range("C" & i).Value
Blank.PrintOut
Next i
MsgBox "ГОТОВО! Отправлено на печать " & lLastRow - 1 & " листов"
Application.EnableEvents = True
End Sub
[/vba]