Массовая печать при слиянии в vba

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Массовая печать при слиянии в vba - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Массовая печать при слиянии в vba (Макросы/Sub)

Массовая печать при слиянии в vba

WeRiX

Дата: Пятница, 18.07.2014, 19:07 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 44

Репутация: 4 ±

Замечаний: 0% ±

Excel 2013

Помогите плз с возникающей проблемой:
При использовании ниже приведенного кода печать листов порой происходит в спутанном порядке.
т.е. например 5 лист распечатается между 2 и 3.
В чем может быть проблема, даже не соображу.
[vba]

Код

Sub Zzz()
Dim w1, w2 As Worksheet
Set w1 = Workbooks("1.xlsx").Worksheets(1)
Set w2 = Workbooks("1.xlsx").Worksheets(2)
For Each Z In w1.UsedRange.Columns(1).SpecialCells(xlVisible)
w2.Cells(1, 1) = Z
w2.PrintOut
Next
End Sub

[/vba]

Ответить