Прошу помощи в решении задачи. Принтер с дуплексной печатью. Книга с несколькими листами. Необходимо чтобы второй лист печатался на обороте первого, а не на отдельном листе. Форматирование страниц разное. А в идеале было бы когда второй лист еще и скрыт.
Код |
---|
Sub Add_Sell()
With Worksheets("Смена")
Set Rng = .Range("F1,D3,F5,F6,F11,D16")
If Intersect(Rng, .Cells.SpecialCells(xlCellTypeBlanks)) Is Nothing Then
Sheets(Array("Смена", "Список полимеров")).PrintOut Copies:=1, Collate:=True
Rng.ClearContents
Else
MsgBox "Необходимо заполнить всю информацию!"
End If
End With
End Sub
|