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

Вход

Регистрация

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

 

= Мир MS Excel/Создание кнопки с выводом на принтер - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание кнопки с выводом на принтер (Макросы/Sub)
Создание кнопки с выводом на принтер
Oh_Nick Дата: Вторник, 09.02.2021, 15:50 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
Всем доброго времени суток!

Необходима помощь, чтобы привязать к кнопке вывод документов на принтер:

На листе есть кнопка Prepare documents . Нажав на нее должно высветиться окно, где мы пишем кол-во документов напротив каждого названия, например:

Документ 1 5шт
Документ 2 2шт

и тд.

Далее мы выбираем папку, откуда эти документы будут печататься. Т.е название документа должно быть сопоставимым с названием файла в папке, которую мы выбираем.

Далее жмем ОК и у нас печатаются документы и их кол-во которое мы задали.

Очень надеюсь на Вашу помощь!
К сообщению приложен файл: New_Microsoft_E.xlsm (12.4 Kb)
 
Ответить
СообщениеВсем доброго времени суток!

Необходима помощь, чтобы привязать к кнопке вывод документов на принтер:

На листе есть кнопка Prepare documents . Нажав на нее должно высветиться окно, где мы пишем кол-во документов напротив каждого названия, например:

Документ 1 5шт
Документ 2 2шт

и тд.

Далее мы выбираем папку, откуда эти документы будут печататься. Т.е название документа должно быть сопоставимым с названием файла в папке, которую мы выбираем.

Далее жмем ОК и у нас печатаются документы и их кол-во которое мы задали.

Очень надеюсь на Вашу помощь!
Автор - Oh_Nick
Дата добавления - 09.02.2021 в 15:50
Oh_Nick Дата: Среда, 10.02.2021, 13:29 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
Может сначала выберем папку и в ней файлы , а потом зададим кол-во? Так я думаю будет качественнее, потому что все именуют файлы по разному. Т.е выбираем папку и в ней файлы, а потом высвечивается окно и мы задаем кол во этим файлам. И кидаем на печать.
 
Ответить
СообщениеМожет сначала выберем папку и в ней файлы , а потом зададим кол-во? Так я думаю будет качественнее, потому что все именуют файлы по разному. Т.е выбираем папку и в ней файлы, а потом высвечивается окно и мы задаем кол во этим файлам. И кидаем на печать.
Автор - Oh_Nick
Дата добавления - 10.02.2021 в 13:29
Serge_007 Дата: Среда, 10.02.2021, 14:07 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Oh_Nick, за сутки ни одного ответа в Вашей теме
Возможно потому что она выглядит как ТЗ?

Совет:
Разбейте задачу на части и начните пробовать эти части реализовывать
Если что будет не получаться - пишите на форум, мы поможем

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеOh_Nick, за сутки ни одного ответа в Вашей теме
Возможно потому что она выглядит как ТЗ?

Совет:
Разбейте задачу на части и начните пробовать эти части реализовывать
Если что будет не получаться - пишите на форум, мы поможем
Автор - Serge_007
Дата добавления - 10.02.2021 в 14:07
Oh_Nick Дата: Четверг, 11.02.2021, 09:22 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
Ребята,

Получилось написать код и он выводит файлы xlsx и doc. А как добавить, чтобы он выводил еще и pdf? Файл прикрепил.
К сообщению приложен файл: print.xlsm (31.2 Kb)
 
Ответить
СообщениеРебята,

Получилось написать код и он выводит файлы xlsx и doc. А как добавить, чтобы он выводил еще и pdf? Файл прикрепил.
Автор - Oh_Nick
Дата добавления - 11.02.2021 в 09:22
RAN Дата: Четверг, 11.02.2021, 09:47 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Здесь
[vba]
Код
Dim docfiles As Collection
Dim excelfiles As Collection
[/vba]
добавьте коллекцию PDF,
а здесь
[vba]
Код
    Set docfiles = Module1.FilenamesCollection(folder, ".doc*", 2)
    Set excelfiles = Module1.FilenamesCollection(folder, ".xls*", 2)
[/vba]
ее заполните.
А здесь
[vba]
Код
Private Sub CommandButton1_Click()
[/vba]
добавьте ее печать

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 11.02.2021, 09:50
 
Ответить
СообщениеЗдесь
[vba]
Код
Dim docfiles As Collection
Dim excelfiles As Collection
[/vba]
добавьте коллекцию PDF,
а здесь
[vba]
Код
    Set docfiles = Module1.FilenamesCollection(folder, ".doc*", 2)
    Set excelfiles = Module1.FilenamesCollection(folder, ".xls*", 2)
[/vba]
ее заполните.
А здесь
[vba]
Код
Private Sub CommandButton1_Click()
[/vba]
добавьте ее печать
Автор - RAN
Дата добавления - 11.02.2021 в 09:47
Serge_007 Дата: Четверг, 11.02.2021, 09:48 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата Oh_Nick, 11.02.2021 в 09:22, в сообщении № 4 ()
как добавить, чтобы он выводил еще и pdf?
Выводил где?
[vba]
Код
Set pdffiles = New Collection
[/vba]
[vba]
Код
Set pdffiles = Module1.FilenamesCollection(folder, ".pdf", 2)
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата Oh_Nick, 11.02.2021 в 09:22, в сообщении № 4 ()
как добавить, чтобы он выводил еще и pdf?
Выводил где?
[vba]
Код
Set pdffiles = New Collection
[/vba]
[vba]
Код
Set pdffiles = Module1.FilenamesCollection(folder, ".pdf", 2)
[/vba]
Автор - Serge_007
Дата добавления - 11.02.2021 в 09:48
Oh_Nick Дата: Четверг, 11.02.2021, 10:09 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
Serge_007, Выводил, когда папку выбираешь. И печатал , когда выбираешь кол-во.
 
Ответить
СообщениеSerge_007, Выводил, когда папку выбираешь. И печатал , когда выбираешь кол-во.
Автор - Oh_Nick
Дата добавления - 11.02.2021 в 10:09
RAN Дата: Четверг, 11.02.2021, 10:31 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
И печатал

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеИ печатал
Автор - RAN
Дата добавления - 11.02.2021 в 10:31
Oh_Nick Дата: Четверг, 11.02.2021, 12:19 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
RAN, спасибо, помогла информация!
 
Ответить
СообщениеRAN, спасибо, помогла информация!
Автор - Oh_Nick
Дата добавления - 11.02.2021 в 12:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание кнопки с выводом на принтер (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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