печать активного и выбранного листа из одной книги

demura

Гость

12.11.2010 23:02:24

Всем привет!

помогите пожалуйста, нужен макрос для печати активного и выбранного листа из книги, при этом имя активного листа меняется (это счет-фактура, листы копируются по мере выписывания новых), и при печати к нему прикрепляется дополнительный лист из этой же книги (имя не меняется).
С одного листа (2-ая страница) распечатать не получается, так как есть колонтитулы, а 2-ая страница должна быть без них.
на данный момент код такой:

Sheets(Array("1", "pvn")).Select
Sheets("1").Activate
Application.ActivePrinter = "Ōąźń ńåščč hp LaserJet (Ne00:)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Ōąźń ńåščč hp LaserJet (Ne00:)", Collate:=True
Sheets("1").Select

лист "1" - будет меняться на 2,3... и т.д. а прикрепить к нему при печати надо "pvn".
запуск макроса выведен на кнопку. как видно - эта печать - отправка факса, поэтому разделять на 2 операции не хотелось бы.
P.S. знаний по теме нет, опыт - 2 дня, по примерам... :)

Guest Гость	#2 12.11.2010 23:26:05 Вместо всего этого написать макрорекордером макрос печати листа с колонтитулами и выделенного диапазона без оных. И лишний лист не нать.

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#3 12.11.2010 23:32:32 Попробуйте Sheets(Array(ActiveSheet.Name, "pvn")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Ōąźń ńåščč hp LaserJet (Ne00:)", Collate:=True ActiveSheet.Select

Guest

Гость

12.11.2010 23:47:57

{quote}{login=}{date=12.11.2010 11:26}{thema=}{post}Вместо всего этого написать макрорекордером макрос печати листа с колонтитулами и выделенного диапазона без оных. И лишний лист не нать.{/post}{/quote}
так практически и сделал, но имя листа при этом прописывается и в макросе оно не поменяется при копировании.

Guest

Гость

12.11.2010 23:50:15

Guest

Гость

13.11.2010 11:06:03

{quote}{login=Казанский}{date=12.11.2010 11:32}{thema=печать активного и выбранного листа из одной книги}{post}Попробуйте

Sheets(Array(ActiveSheet.Name, "pvn")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Ōąźń ńåščč hp LaserJet (Ne00:)", Collate:=True
ActiveSheet.Select{/post}{/quote}

все заработало, но странное дело... почему то разбивает печать на 2 операции, т.е. отправляет не 2 листа вместе, а по 1. при печати это не важно, но при отправке факса не удобно... при этом, если вручную выделять 2 листа и отправлять, то идут вместе. но это наверное хитрости не excela...

может кто знает как отключить печать колонтитулов на 2-м листе, тогда можно было бы печатать все с 1 листа (или как задать область печати листа, чтобы 1-я страница печаталась с колонтитулами, а 2-я (или выделенный диапазон) без)?

Guest Гость	#7 13.11.2010 11:30:06 может кто знает как отключить печать колонтитулов на 2-м листе поправка - на 2-ой странице, этого же листа...

Читают тему