Ако изаберете више опсега ћелија на једном листу и покушате да одштампате изабране ћелије, то ћете учинити
набавите по један лист за сваку од изабраних области.
Следећи пример макроа штампа све изабране области на једном листу,
осим ако су површине превелике да стану у један лист.
Суб ПринтСелецтедЦеллс () 'штампа изабране ћелије, помоћу дугмета на траци са алаткама или из менија Дим аЦоунт Ас Интегер, цЦоунт Ас Интегер, рЦоунт Ас Интегер Дим и Ас Интегер, ј Ас Лонг, аРанге Ас Стринг Дим рХеигхт () Као Сингле, цВидтх ( ) Као Сингле Дим АВБ Као радна свеска, НВБ Као радна свеска Ако УЦасе (Име типа (АцтивеСхеет)) "ВОРКСХЕЕТ" Затим Екит Суб 'корисно само на радним листовима аЦоунт = Селецтион.Ареас.Цоунт Иф аЦоунт = 0 Затим Екит Суб' нема ћелија изабраних цЦоунт = Селецтион.Ареас (1) .Целлс.Цоунт Иф аЦоунт> 1 Затим је изабрано више области Апплицатион.СцреенУпдатинг = Фалсе Апплицатион.СтатусБар = "Штампање" & аЦоунт & "изабраних области …" Подесите АВБ = АцтивеВоркбоок рЦоунт = АцтивеСхеет.Целлс.СпециалЦеллс (клЛастЦелл) .Ров цЦоунт = АцтивеСхеет.Целлс.СпециалЦеллс (клЛастЦелл) .Цолумн РеДим рХеигхт (рЦоунт) РеДим цВидтх (цЦоунт) Фор и = 1 То рЦоунт 'пронађите висину реда сваког реда у избору рХеигхт (и) = Ровс (и) .РовХеигхт Нект и Фор и = 1 То цЦоунт 'пронађите ширину колоне сваке колоне у избору цВидт х (и) = Колоне (и). Ширина ступца Следеће и Поставите НВБ = Радне свеске. Додајте „креирајте нову радну свеску За и = 1 За рЦоунт“ поставите висине редова Редови (и) .РовХеигхт = рХеигхт (и) Следећи и За и = 1 За цЦоунт 'подесите ширину колоне Колоне (и) .ЦолумнВидтх = цВидтх (и) Следеће и За и = 1 За аЦоунт АВБ.Активирајте аРанге = Селецтион.Ареас (и) .Аддресс' тхе ранге аддресс Ранге (аРанге) .Цопи ' копирање опсега НВБ.Ацтивате Витх Ранге (аРанге) 'залепи вредности и формате. ПастеСпециал Пасте: = клВалуес, Операција: = клНоне, _ СкипБланкс: = Фалсе, Транспосе: = Фалсе .ПастеСпециал Пасте: = клФорматс, Операција: = клНоне, _ СкипБланкс: = Фалсе, Транспосе: = Фалсе Енд Витх Апплицатион.ЦутЦопиМоде = Фалсе Нект и НВБ.ПринтОут НВБ.Цлосе Фалсе 'затворите привремену радну свеску без чувања Апплицатион.СтатусБар = Фалсе АВБ.Активирајте Сет АВБ = Ништа није подешено НВБ = Ништа друго Ако је цЦоунт <10 Тада је изабрано мање од 10 ћелија Ако је МсгБок ("Јесте ли сигурни да желите да одштампате" & _ цЦоунт & "изабране ћелије?", _ ВбКуестион + вбИесНо, "Штампај означене ћелије") = вбНо Тх ен Излаз из подзавршетка ако је одабир.ПринтОут од краја излаза из краја подзав