Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Печать бланка по выбранному диапазону ячеек и по условию. - Страница 3 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 3 из 3«123
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать бланка по выбранному диапазону ячеек и по условию. (Макросы/Sub)
Печать бланка по выбранному диапазону ячеек и по условию.
bobrenja Дата: Вторник, 29.03.2016, 22:31 | Сообщение № 41
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 20% ±

Excel для Mac
gling, на мак сохраняет в ps.
Буду разбираться, так как после установки виртуального, пропал пункт "Печать в БЛАНК"
Но думаю это капризы мака.

P.S. я понял, что бы данные заносились в бланк (в нужные ячейки), то нужно для начала прописать их в коде макроса??
Мне кажется это не удобно, если в бланк будут вставляется данные больше 10 ячеек с БД, хоча могу ошибаться и я думаю тока в одном направлении.


Сообщение отредактировал bobrenja - Вторник, 29.03.2016, 22:31
 
Ответить
Сообщениеgling, на мак сохраняет в ps.
Буду разбираться, так как после установки виртуального, пропал пункт "Печать в БЛАНК"
Но думаю это капризы мака.

P.S. я понял, что бы данные заносились в бланк (в нужные ячейки), то нужно для начала прописать их в коде макроса??
Мне кажется это не удобно, если в бланк будут вставляется данные больше 10 ячеек с БД, хоча могу ошибаться и я думаю тока в одном направлении.

Автор - bobrenja
Дата добавления - 29.03.2016 в 22:31
bobrenja Дата: Вторник, 29.03.2016, 23:01 | Сообщение № 42
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 20% ±

Excel для Mac
gling, в xlsm вставляет и выводит на печать

 
Ответить
Сообщениеgling, в xlsm вставляет и выводит на печать


Автор - bobrenja
Дата добавления - 29.03.2016 в 23:01
bobrenja Дата: Воскресенье, 15.05.2016, 12:43 | Сообщение № 43
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 20% ±

Excel для Mac
Подскажите, как исправить скрипт Wasilich, что бы при печати первой страницы, останавливалась печать и выводил сообщение "Отправлено на печать. Переверните лист, вложите в принтер, ОК".
В этом примере он сразу печатает два листа не останавливаясь.

Sub печать()
Dim i&, msg&, msg2&, ps&
ps = Range("C" & Rows.Count).End(xlUp).Row
msg = InputBox("Номер строки начала печати", , 3)
msg2 = InputBox("Номер строки конца печати", , ps)
If msg < 3 Or msg2 < msg Then Exit Sub
For i = msg To msg2
Range("B2:B" & ps).ClearContents
Cells(i, 2) = "x"
If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) Then
Cells(i + 1, 2) = "xx"
i = i + 1
End If
i = i + 1
If Cells(i, 3) <> "" Then
Cells(i, 2) = "o"
If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) Then
Cells(i + 1, 2) = "oo"
i = i + 1
End If
End If
'Sheets("БЛАНК").PrintOut
MsgBox "Отправлено на печать. Переверните лист, вложите в принтер, ОК"
Next i
End Sub


Сообщение отредактировал bobrenja - Воскресенье, 15.05.2016, 12:57
 
Ответить
СообщениеПодскажите, как исправить скрипт Wasilich, что бы при печати первой страницы, останавливалась печать и выводил сообщение "Отправлено на печать. Переверните лист, вложите в принтер, ОК".
В этом примере он сразу печатает два листа не останавливаясь.

Sub печать()
Dim i&, msg&, msg2&, ps&
ps = Range("C" & Rows.Count).End(xlUp).Row
msg = InputBox("Номер строки начала печати", , 3)
msg2 = InputBox("Номер строки конца печати", , ps)
If msg < 3 Or msg2 < msg Then Exit Sub
For i = msg To msg2
Range("B2:B" & ps).ClearContents
Cells(i, 2) = "x"
If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) Then
Cells(i + 1, 2) = "xx"
i = i + 1
End If
i = i + 1
If Cells(i, 3) <> "" Then
Cells(i, 2) = "o"
If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) Then
Cells(i + 1, 2) = "oo"
i = i + 1
End If
End If
'Sheets("БЛАНК").PrintOut
MsgBox "Отправлено на печать. Переверните лист, вложите в принтер, ОК"
Next i
End Sub

Автор - bobrenja
Дата добавления - 15.05.2016 в 12:43
bobrenja Дата: Воскресенье, 15.05.2016, 15:58 | Сообщение № 44
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 20% ±

Excel для Mac
Исправил сам изменив в конце и добавил что бы удаляло метки в столбце.

[vba]
Код
Sheets("БЛАНК").PrintOut 1, 1
MsgBox "Отправлено на печать. Переверните лист, вложите в принтер, ОК"
Sheets("БЛАНК").PrintOut 2, 2
Range("A3:A" & ps).ClearContents
[/vba]




Сообщение отредактировал bobrenja - Воскресенье, 15.05.2016, 18:30
 
Ответить
СообщениеИсправил сам изменив в конце и добавил что бы удаляло метки в столбце.

[vba]
Код
Sheets("БЛАНК").PrintOut 1, 1
MsgBox "Отправлено на печать. Переверните лист, вложите в принтер, ОК"
Sheets("БЛАНК").PrintOut 2, 2
Range("A3:A" & ps).ClearContents
[/vba]



Автор - bobrenja
Дата добавления - 15.05.2016 в 15:58
bobrenja Дата: Воскресенье, 15.05.2016, 18:31 | Сообщение № 45
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 20% ±

Excel для Mac
Подскажите как можно допилить скрипт, что бы вначале печатал четные страницы, затем нечетные?

[vba]
Код
Sub печать()
Dim i&, msg&, msg2&, ps&
ps = Range("C" & Rows.Count).End(xlUp).Row
msg = InputBox("Номер строки начала печати", , 3)
msg2 = InputBox("Номер строки конца печати", , ps)
If msg < 3 Or msg2 < msg Then Exit Sub
For i = msg To msg2
    Range("A2:A" & ps).ClearContents
    Cells(i, 2) = "x"
    If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) Then
    Cells(i + 1, 2) = "xx"
    i = i + 1
    End If
    i = i + 1
    If Cells(i, 3) <> "" Then
    Cells(i, 2) = "o"
    If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) Then
        Cells(i + 1, 2) = "oo"
        i = i + 1
    End If
    End If
    Sheets("БЛАНК").PrintOut 1, 1
MsgBox "Отправлено на печать. Переверните лист, вложите в принтер, ОК"
Sheets("БЛАНК").PrintOut 2, 2
Range("A3:A" & ps).ClearContents
Next i
End Sub
[/vba]
 
Ответить
СообщениеПодскажите как можно допилить скрипт, что бы вначале печатал четные страницы, затем нечетные?

[vba]
Код
Sub печать()
Dim i&, msg&, msg2&, ps&
ps = Range("C" & Rows.Count).End(xlUp).Row
msg = InputBox("Номер строки начала печати", , 3)
msg2 = InputBox("Номер строки конца печати", , ps)
If msg < 3 Or msg2 < msg Then Exit Sub
For i = msg To msg2
    Range("A2:A" & ps).ClearContents
    Cells(i, 2) = "x"
    If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) Then
    Cells(i + 1, 2) = "xx"
    i = i + 1
    End If
    i = i + 1
    If Cells(i, 3) <> "" Then
    Cells(i, 2) = "o"
    If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) Then
        Cells(i + 1, 2) = "oo"
        i = i + 1
    End If
    End If
    Sheets("БЛАНК").PrintOut 1, 1
MsgBox "Отправлено на печать. Переверните лист, вложите в принтер, ОК"
Sheets("БЛАНК").PrintOut 2, 2
Range("A3:A" & ps).ClearContents
Next i
End Sub
[/vba]

Автор - bobrenja
Дата добавления - 15.05.2016 в 18:31
bobrenja Дата: Вторник, 17.05.2016, 07:29 | Сообщение № 46
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 20% ±

Excel для Mac
Пока решение такое.
Вывел две кнопки (печать четных и нечетных).
В первый проход нечетные, за второй проход четные.

Если кто то подскажет еще варианты, буду рад.
 
Ответить
СообщениеПока решение такое.
Вывел две кнопки (печать четных и нечетных).
В первый проход нечетные, за второй проход четные.

Если кто то подскажет еще варианты, буду рад.

Автор - bobrenja
Дата добавления - 17.05.2016 в 07:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать бланка по выбранному диапазону ячеек и по условию. (Макросы/Sub)
Страница 3 из 3«123
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!