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

Вход

Регистрация

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

 

= Мир MS Excel/Печать бланка путевого листа - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать бланка путевого листа (Макросы/Sub)
Печать бланка путевого листа
DARR Дата: Понедельник, 10.07.2017, 12:13 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день!
Создал бланк и теперь необходимо напечатать отмеченные значком "п" (в первом столбце) бланки. Это листы "путевка1 и "путёвка2" (будет двусторонняя печать). И после печати хорошо бы, чтоб отметки "п" удалялись. Помогите сделать макрос... за ранее спасибо!
К сообщению приложен файл: 777.xlsm(89Kb)


Сообщение отредактировал DARR - Понедельник, 10.07.2017, 12:14
 
Ответить
СообщениеДобрый день!
Создал бланк и теперь необходимо напечатать отмеченные значком "п" (в первом столбце) бланки. Это листы "путевка1 и "путёвка2" (будет двусторонняя печать). И после печати хорошо бы, чтоб отметки "п" удалялись. Помогите сделать макрос... за ранее спасибо!

Автор - DARR
Дата добавления - 10.07.2017 в 12:13
nilem Дата: Понедельник, 10.07.2017, 12:45 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1243
Репутация: 456 ±
Замечаний: 0% ±

Excel 2013
DARR, привет
Как будете перекладывать листы, чтобы напечатать 2-ю сторону? Может лучше обе стороны расположить на одной вкладке?


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеDARR, привет
Как будете перекладывать листы, чтобы напечатать 2-ю сторону? Может лучше обе стороны расположить на одной вкладке?

Автор - nilem
Дата добавления - 10.07.2017 в 12:45
DARR Дата: Понедельник, 10.07.2017, 12:48 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Принтер с двухсторонней печатью, перекладывать нет необходимости. Листы да, наверное, на одной вкладке сделаю
 
Ответить
СообщениеПринтер с двухсторонней печатью, перекладывать нет необходимости. Листы да, наверное, на одной вкладке сделаю

Автор - DARR
Дата добавления - 10.07.2017 в 12:48
DARR Дата: Понедельник, 10.07.2017, 14:10 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Sub FormPrint()
Dim rX As Range
Set rX = [tabl1].Columns(1).Find("п")
If rX Is Nothing Then MsgBox "Не найден п", 64: Exit Sub
Do While Len(rX.Offset(, 2).Value) 'печатаем, пока есть даты в колонке С
    Sheets("Легковые АВТО").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    rX.Value = "" 'see Worksheet_Change
    Set rX = rX.Offset(1): rX.Value = "x"
Loop
End Sub
[/vba]
В похожем примере нашёл такой макрос. Надо подредактировать под мой случай, только я не знаю как(
 
Ответить
Сообщение[vba]
Код
Sub FormPrint()
Dim rX As Range
Set rX = [tabl1].Columns(1).Find("п")
If rX Is Nothing Then MsgBox "Не найден п", 64: Exit Sub
Do While Len(rX.Offset(, 2).Value) 'печатаем, пока есть даты в колонке С
    Sheets("Легковые АВТО").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    rX.Value = "" 'see Worksheet_Change
    Set rX = rX.Offset(1): rX.Value = "x"
Loop
End Sub
[/vba]
В похожем примере нашёл такой макрос. Надо подредактировать под мой случай, только я не знаю как(

Автор - DARR
Дата добавления - 10.07.2017 в 14:10
nilem Дата: Понедельник, 10.07.2017, 19:44 | Сообщение № 5
Группа: Авторы
Ранг: Старожил
Сообщений: 1243
Репутация: 456 ±
Замечаний: 0% ±

Excel 2013
попробуйте вот так:
[vba]
Код
Sub FormPrint()
Dim rX As Range
With Sheets("ТТС")
    For Each rX In .Range("A6", .Cells(Rows.Count, 1).End(xlUp))
        If rX.Value = "п" Then
            Sheets("путевка1").PrintOut Copies:=1, Collate:=True
            rX.ClearContents
        End If
    Next rX
End With
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениепопробуйте вот так:
[vba]
Код
Sub FormPrint()
Dim rX As Range
With Sheets("ТТС")
    For Each rX In .Range("A6", .Cells(Rows.Count, 1).End(xlUp))
        If rX.Value = "п" Then
            Sheets("путевка1").PrintOut Copies:=1, Collate:=True
            rX.ClearContents
        End If
    Next rX
End With
End Sub
[/vba]

Автор - nilem
Дата добавления - 10.07.2017 в 19:44
DARR Дата: Вторник, 11.07.2017, 06:48 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
nilem,
Всё работает, спасибо огромное за помощь!
 
Ответить
Сообщениеnilem,
Всё работает, спасибо огромное за помощь!

Автор - DARR
Дата добавления - 11.07.2017 в 06:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать бланка путевого листа (Макросы/Sub)
Страница 1 из 11
Поиск:

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