ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Печать листа в Excel при условии, если диапазон ячеек не пуст
7 сообщений из 32, страница 2 из 2
  2  все
Печать листа в Excel при условии, если диапазон ячеек не пуст
    #36319041
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
йцкя имел ввиду написать это в ячейке а1 :)
Ха, точно :)...
...
Рейтинг: 0 / 0
19.11.2009, 10:47
| Ответить | Цитировать | Написать  
Печать листа в Excel при условии, если диапазон ячеек не пуст
    #36319261
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
Hugo121А я вчера отдыхал... (это к тому, что меня вспоминали :) )
ячейка D14 содержит формулу - в этом случае она уже Not IsEmpty

а как добавить к этому циклу. чтоб печаталось не на принтер, установленный по умолчанию, а выбирать можно было через диалоговое окно "печать"?

Private Sub CommandButton1_Click()
Dim wb As Workbook


Set wb = ThisWorkbook



For i = 1 To Sheets.Count
If (Sheets(i).Cells(14, 4).Value) <> 0 Then
Sheets(i).PrintOut
End If
Next i

End Sub
...
Рейтинг: 0 / 0
19.11.2009, 11:47
| Ответить | Цитировать | Написать  
Печать листа в Excel при условии, если диапазон ячеек не пуст
    #36319331
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Не знаю, как насчёт выбирать, а вот назначить можно:
Код: plaintext
1.
2.
3.
    Application.ActivePrinter = "pdfFactory Pro on FPP3:"
    ActiveWindow.SelectedSheets.PrintOut Copies:= 1 , ActivePrinter:= _
        "pdfFactory Pro on FPP3:"
В вашем случае наверное (не проверял) сработает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Set wb = ThisWorkbook

For i =  1  To Sheets.Count
If (Sheets(i).Cells( 14 ,  4 ).Value) <>  0  Then
Sheets(i).PrintOut Copies:= 1 , ActivePrinter:= _
        "pdfFactory Pro on FPP3:"
End If
Next i

End Sub
...
Рейтинг: 0 / 0
19.11.2009, 12:05
| Ответить | Цитировать | Написать  
Печать листа в Excel при условии, если диапазон ячеек не пуст
    #36319396
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Лучше так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
aprint = Application.ActivePrinter 'запоминаем активный принтер

Set wb = ThisWorkbook

For i =  1  To Sheets.Count
If (Sheets(i).Cells( 14 ,  4 ).Value) <>  0  Then
Sheets(i).PrintOut Copies:= 1 , ActivePrinter:= _
        "pdfFactory Pro on FPP3:"
End If
Next i

Application.ActivePrinter = aprint 'возвращаем активный принтер
End Sub
...
Рейтинг: 0 / 0
19.11.2009, 12:24
| Ответить | Цитировать | Написать  
Печать листа в Excel при условии, если диапазон ячеек не пуст
    #36319445
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
ТСа как добавить к этому циклу. чтоб печаталось не на принтер, установленный по умолчанию, а выбирать можно было через диалоговое окно "печать"?
Можна использовать такое
Код: plaintext
1.
Sheets(i).Select
Application.Dialogs(xlDialogPrint).Show
но тогда ваша строка Sheets(i).PrintOut не имеет смысла, так как пользователь сам нажмет кнопку печать. Да и часть автоматизации потеряется, так как диалог будет появляться на каждом листе.
Вероятно все это обходиться и можна найти варианты решения, но нужно разбираться :). Если бы нашли способ, получить список всех доступных принтеров, и потом через InputBox получили бы значение нужного, а дальше уже использовали его в программе, путем задания в коде, как показал Hugo121. Поищите, как найти все доступные принтеры, вот здесь , например есть решение, правда для Акцесса, но для Экселя думаю тоже подойдет
...
Рейтинг: 0 / 0
19.11.2009, 12:35
| Ответить | Цитировать | Написать  
Печать листа в Excel при условии, если диапазон ячеек не пуст
    #36319625
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
снимаю вопрос, оставлю так, как есть ))))
...
Рейтинг: 0 / 0
19.11.2009, 13:20
| Ответить | Цитировать | Написать  
Печать листа в Excel при условии, если диапазон ячеек не пуст
    #36319982
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Oksana Slonevskaya,

Пример вывода списка принтеров , смотреть в самом внизу.
...
Рейтинг: 0 / 0
19.11.2009, 15:17
| Ответить | Цитировать | Написать  
7 сообщений из 32, страница 2 из 2
  2  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Печать листа в Excel при условии, если диапазон ячеек не пуст
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36319041&tid=2178820]:
 0ms
get settings:
 4ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 172ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 202ms
total:  425ms
созд. / загр.: 425ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]