Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Печать выбранных листов книги
 
#1
30.01.2010 19:29:31
Доброго вечера, уважаемые форумчане! Помогите пожалуйста решить следущую задачу: имеется книга Excel с 53 листами. Первые 3 имеют текстовое имя (список, расчет, итог), остальные с 1 до 50. Листы 1-50 заполняются в зависимости от количества строк на листе список и на листе итог есть ячейка с количеством заполненных листов. Как написать макрос для печати с листа 1 по последний заполненный лист? Заранее благодарен за помощь.
 
 
 
#2
30.01.2010 21:47:29
Вы правы, однако нужно пустить на печать не с 1 по 50-й листы, а с 1 по n. Эта самая n есть на листе итог ячейке А1 :(
 
 
 
#3
30.01.2010 22:30:39
{/post}{/quote}И что мешало написать об этом сразу?{/post}{/quote}  
возможно я не корректно выразился в первом посте ("с листа 1 по последний заполненный лист?", "на листе итог есть ячейка с количеством заполненных листов")
 
 
 
#4
30.01.2010 22:45:40
Уважаемый The_Prist, не судите строго - пишу на форуме первый раз, да и с Экселем "на вы". Спасибо Вам за помощь. Впредь с постановками вопроса постараюсь конкретизировать и прикреплять файл. Еще раз спасибо!
 
 
 
#5
13.02.2010 00:43:46
Привет.  
Может кто-нибудь подскажет как написать макрос который по выбору запускал на печать четные/нечетные страницы листа. Макрос нужен для двухсторонней печати, не знаю как в 2007 но в 2003 точно такой возможности нет.  
p.s. извиняюсь то что без примера, но тут он вроде как и не нужен.
 
 
 
#6
13.02.2010 01:06:22
В общем виде это должно выглядеть как-то так. Не проверял.  
Sub PrintPages()  
Dim x As Range  
Dim z As Long  
Set x = ActiveSheet.UsedRange  
z = x.Parent.HPageBreaks.Count  
  For i = 1 To z + 1 Step 2  
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  
  Next  
  MsgBox "Вставьте распечатанные листы в принтер для печати на обратной стороне"  
  For i = 2 To z + 1 Step 2  
     Activating.SelectedSheets.PrintOut Copies:=1, Collate:=True  
  Next  
End Sub  
Если надумаете тестировать - проверьте на 3-4 листах (можно с белым шрифтом) :-)
 
 
 
#7
13.02.2010 01:13:34
Вроде я фигню написал. А проверить не могу.
 
 
 
#8
13.02.2010 01:21:36

Зато нашёл ссылку: http://msoffice.nm.ru/downloads/index.htm#example1
 
 
 
#9
13.02.2010 02:29:52
спасибо, проверю уже завтра:)
 
 
 
Страницы: 1
Читают тему
Наверх