Рет қаралды 28,827
Если вам нужно напечатать например 1000 бланков, отличающихся только набором строчек с данными, то в данном видео я рассказываю простой способ реализации данной задачи посредством всего одной программы - Microsoft Excel и макроса. Весь процесс разбит на 5 простых шагов.
#бланк #печать #автозаполнение
Текст макроса:
"Sub АвтоПечать()
'
For i = 1 To 800
Range("J2").Select
ActiveCell.FormulaR1C1 = i
Range("J2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,Copies:=1, Collate _ :=True, IgnorePrintAreas:=False
Next
'
End Sub
Файл пример: yadi.sk/i/nKZltnJzqgxeG
===