Задача:
Распечатать из MS Excel бланки, где на одном листе меняются три числа.
Область печати задана заранее
Макрос:
Sub pechat7000()
‘ pechat7000 Макрос
‘ Макрос записан 08.05.2014 (Admin)
‘ Сочетание клавиш: Ctrl+b
‘
nachalo = Range(«D2»).Value
konec = Range(«D3»).Value
For rrr = nachalo To konec Step 3
nom7001 = rrr + 1
Range(«A2»).Value = nom7001
nom7002 = rrr + 2
Range(«A4»).Value = nom7002
nom7003 = rrr + 3
Range(«A6»).Value = nom7003
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next rrr
End Sub
