Размеры бумаги для excel

Поскольку речь идет о новых книгах, самым простым способом было бы создать шаблон по умолчанию, который автоматически используется Excel.

Создайте новую книгу и установите все необходимые настройки, особенно размер бумаги. В целях тестирования я бы также предложил добавить текст в ячейку на первом листе, чтобы вы могли легко видеть, когда Excel использует файл.

Сохраните его как «Шаблон Excel (* .xltx)» и скопируйте его в XLStart вашей Установки Office (например, C:Program Files (x86)Microsoft OfficeOffice12XLSTART). Имя файла немного сложнее, так как Excel будет использовать локализованное имя файла.

Значит, если вы используете английский Excel, файл должен называться Book.xltx. Поскольку вы хотите использовать бумагу DIN A4, я предполагаю, что вы используете немецкий Excel — в этом случае имя файла должно быть Mappe.xltx.

Выйдите из Excel и перезапустите его. Если в новой книге отображается введенный вами тестовый текст, файл успешно выбран.

Если он не отображается, это может быть связано с тем, что существует пользовательский шаблон по умолчанию (Excel предпочитает пользовательские шаблоны системным шаблонам). Расположение шаблона пользователя по умолчанию:C:Users\AppDataRoamingMicrosoftExcelXLSTART.

Дополнительную информацию по этой теме (например, шаблон при добавлении листов в существующую книгу) можно найти здесь, здесь или здесь.

Настройка параметров страницы

Первым делом необходимо проверить и при необходимости исправить настройки параметров страницы. Чтобы «попасть» в нужное окно, перейдите на вкладку «Макет страницы» в главном меню. В правом нижнем углу щелкните значок, выделенный на скриншоте. Теперь давайте «прокрутим» каждую вкладку и объясним, что нужно изменить, и фактическое значение каждого параметра.

Вкладки

Страница

Сосредоточьтесь на двух настройках. Ориентация может быть горизонтальной или вертикальной. В первом случае лист будет длиннее по горизонтали, а во втором — по вертикали. Собственно на фото все видно. Вариант «Масштаб» позволяет сразу решить основную проблему: размещение таблицы в Excel на листе. Для этого измените фактический размер на менее 100% или установите флажок «Вставить не более чем на 1 страницу». Но этот «трюк» будет иметь место только в том случае, если исходная таблица немного не умещается на листе.

Поля

• «Поле»: длина отступов от края бумаги до текста на нем.
• Верхние и нижние колонтитулы — это области текста, которые автоматически печатаются на каждом листе.

Уменьшение или удаление этих элементов освободит дополнительное пространство, которое поможет уместить стол.

Другой вариант на вкладке «Поля» — «Центрирование». Эта настройка позволит вам расположить пластину по центру по вертикали и / или горизонтали, в зависимости от отмеченных элементов.

Лист

В этом окне настройки имеют наибольшее влияние на результат печати. Если таблица большая и для печати на бумаге требуется только часть или фрагмент, вы можете указать это в строке с подписью «Диапазон печати». А также при необходимости можно распечатать сетку и заголовки строк, столбцов.

Колонтитулы

Если вы решили полностью удалить верхние и нижние колонтитулы, выберите «(нет)» из списка. Этот параметр полностью удалит наклейки со всех листов.

Печать

Если вы выполнили все необходимые настройки, можно переходить непосредственно к печати таблицы. Для этого вернитесь на первую вкладку «Страница». Внизу справа есть две кнопки «Печать» и «Просмотр». Их надо использовать. Оба откроют вкладку «Печать» в меню «Файл». Справа посмотрите, как все «вживую» будет выглядеть, и только потом нажмите кнопку «Печать» слева вверху.

Аналогичный результат можно получить, нажав комбинацию клавиш на клавиатуре «CTRL + P».

Как расширить диапазон в Excel?

Расширьте диапазон формулы массива

1. Выберите диапазон ячеек, который содержит текущую формулу массива и пустые ячейки рядом с новыми данными.
2. Нажмите F2. Теперь вы можете редактировать формулу.
3. Замените старый диапазон ячеек новым. …
4. Нажмите CTRL + SHIFT + ENTER.

Как уменьшить (сжать) большую таблицу для печати на одном листе формата А4

Вписать лист в одну страницу

Если таблица немного выступает на втором листе, вы можете использовать параметр «По размеру одной страницы». Для огромных вариантов этот метод не сработает. Чтобы использовать настройку, выполните несколько простых шагов.

1. В главном меню вверху программы Excel выберите «Файл».
2. Затем выберите слово «Печать».
3. Найдите раздел «Настройки» ниже».
4. Самый последний список содержит то, что нам нужно.
5. Откройте и выберите.
   
6. Excel автоматически поместит все данные на один лист.
7. Обратите внимание, что есть два других способа уменьшить размер: подогнать только столбцы или строки.

Изменение полей

При стандартных настройках размеров полей они занимают много места, которое можно освободить под размер таблицы. Чтобы изменить показатели этого параметра, выполните следующие действия:

1. На главной панели инструментов перейдите на вкладку «Макет страницы».
2. Щелкните значок (выделен на изображении ниже).
   
3. Перейдите во вкладку «Поля».
4. Введите меньшие или даже нулевые значения.
   

Страничный режим

Это поможет вам оценить и «увидеть» реальные границы области печати. Перемещая синие пунктирные линии, вы можете уменьшить вывод на принтер. Сделай это:

1. Активировать страничный режим. Для этого есть два варианта активации опции.
2. Через вкладку «Просмотр» или в нижней правой панели. См. Рисунок для более подробной информации.
   
3. Теперь, переместив вторую слева направо синюю пунктирную линию к жирной линии с помощью мыши, вы уменьшите размер документа до двух страниц.

Ориентация листа

Изменение размеров ячеек

Вы можете изменить его по вертикали и горизонтали. Все зависит от конкретной ситуации. Чтобы проделать такие манипуляции вам нужно.

1. Выберите столбец или строку, щелкнув левой кнопкой мыши число или букву.
2. Нажмите и удерживайте левую кнопку манипулятора на границе с соседней ячейкой и в этом состоянии двигайтесь в направлении уменьшения.

Также как дополнительная опция будет полезна настройка через меню «Домой» и раздел «Ячейки». Вы можете вручную указать нужные значения или использовать автоматическую адаптацию.

Печать части или выделенного фрагмента

• Выделите мышкой ту часть таблицы, которую хотите отправить на печать.
• Перейдите к настройкам печати Excel через меню или используйте комбинацию CTRL + P.
• В первом списке выберите пункт «Распечатать выбор».
  

Изменение ориентации страницы

Используя этот метод, пользователю не нужно изменять масштаб данных. По этой причине метод подходит только для таблиц, структура которых состоит из небольшого числа строк, или если вертикальное распределение информации не так важно, как когда оно горизонтальное, поскольку основной упор делается на нормальное отображение и печать данных по ширине страницы.

1. Первое, что нам нужно понять, это умещаются ли все данные на стандартном листе или нет. Перейдите в режим просмотра «Макет страницы». Попасть сюда можно двумя способами:
2. После переключения в режим макета документ будет иметь ту же форму, что и при печати. Поможет разобраться, умещается ли стол на листе или нет. Что касается таблицы в нашем примере, она разделена на две горизонтально разделенные страницы, что не очень хорошо.
   
3. В этом случае перейдите на вкладку «Макет страницы». Здесь в разделе «Параметры страницы» нажмите кнопку «Ориентация» и в раскрывающемся списке выберите вариант «Горизонтальная”.
   
4. После выполнения описанных действий вся таблица была размещена на одном листе, чего мы и хотели.
   

В дополнение к описанному выше методу есть и другие способы изменить ориентацию страницы:

1. Первый реализуется через параметры печати:
2. Также заслуживает внимания способ изменения ориентации с помощью окна настройки страницы:

Благодаря этим простым действиям мы смогли решить проблему, разместив таблицу на странице.

Настройка границ столбцов и строк

В некоторых случаях стол не помещается в лист из-за неэффективного использования пространства. Например, когда некоторые столбцы остаются пустыми или их ширина / длина намного больше, чем требуется для содержимого. Это приводит к увеличению размеров таблицы по ширине и длине, а это, в свою очередь, приводит к тому, что документ не умещается на одном листе. В таких случаях обычно используется уменьшение размера ячеек.

Для начала посмотрим, как меняется ширина столбцов:

1. Ставим курсор в правую часть уменьшенного столбца на панели координат. Его следует устанавливать прямо по краю соседних колонн. Если все сделать правильно, курсор превратится в крест с разнонаправленными стрелками. Затем, удерживая левую кнопку мыши, переместите границу влево. Его следует перемещать так, чтобы не перекрывать данные наиболее населенной ячейки.
   
2. Проделываем эту процедуру для всех остальных столбцов. Благодаря этим действиям таблица умещается на странице, потому что нам удалось сделать ее более компактной.

Примечание. Вместо того, чтобы вручную перемещать границу столбца / строки, вы можете просто дважды щелкнуть левой кнопкой мыши, наведя на нее курсор, и Excel автоматически выберет минимально возможную ширину на основе самой полной ячейки.

Этот метод также можно применить к строкам.

Единственный его недостаток в том, что он неэффективен в тех случаях, когда таблица изначально была заполнена компактным форматом данных. При этом оптимизированная версия может не поместиться на странице. В таких случаях будут работать описанные ниже параметры.

Как в Excel сделать разметку страницы для печати?

Макет страниц для печати в Excel

1. Перейдите на вкладку «Просмотр» и выберите инструмент «Макет страницы»
2. В правом нижнем углу окна (в строке состояния справа) щелкните соответствующий переключатель между режимами «Обычный» и «Страница».

Как в Excel разбить на страницы?

1. Щелкните разделитель, расположенный справа над вертикальной полосой прокрутки.
2. Перетащите его вниз, чтобы разделить окно.
3. Обратите внимание на две вертикальные полосы прокрутки. …
4. Чтобы удалить разделитель, дважды щелкните горизонтальную линию, разделяющую окно (или перетащите ее на место).

Как распечатать таблицу в Excel на весь лист а4?

На вкладке Файл выберите Печать. Нажмите кнопку «Печать» для предварительного просмотра. В окне «Параметры печати» выберите параметр «Весь лист» и нажмите «Печать.

Как изменить размер изображения при печати?

Чтобы изменить размер печати, вызовите команду Изображение → Разрешение печати. Эта команда откроет диалоговое окно «Изменить разрешение печати». Выберите известную вам единицу измерения, например, дюймы. Укажите один размер, и GIMP изменит другой пропорционально.

Выбор формата и ориентации листа

Допустим, границы страницы установлены и видны. Но прежде чем вы сможете нарисовать таблицу в Excel, вам необходимо определить формат и ориентацию листа. Для этого выполним последовательность действий:

• перейдите в меню «Макет страницы;
• далее точка Ориентация;
• установите значение по горизонтали или по вертикали.

Рис 3. Установка ориентации страницы

Затем устанавливается ориентация. Приступим к установке точных размеров.

1. Перейдите на вкладку «Макет страницы.
2. Далее пункт Размер и в выпадающем списке выбираем нужный нам размер листа.

Стандартный размер — А4 или А3, это наиболее распространенные размеры для печати и создания форм.

Вкладка Поля

На вкладке «Поля» вы можете установить размер отступов от краев страницы до начала таблицы, например, создать дополнительные отступы слева, чтобы вы могли подать документ — так называемый отступ для привязки.

• Верхние и нижние колонтитулы — это элементы, повторяющиеся на каждой печатной странице, их размер задается в соответствующем поле.
• Центральная страница — эта функция позволяет выровнять таблицу относительно листа, если он меньше самого листа. То есть, если вы хотите прижать распечатанную страницу в верхнем левом углу (по умолчанию) или разместить ее по центру.

На скриншоте показано центрирование по горизонтали, когда от стола до краев листа слева и справа одинаковое расстояние. Если вы поставите и снимите флажки перед этими элементами по горизонтали и вертикали, выше вы можете увидеть, как это будет выглядеть на листе.

Как увеличить размер изображения при печати в PDF?

Изменение размера документа для печати

1. Выберите меню «Файл»> «Печать.
2. Щелкните «Размер» и выберите один из следующих параметров: «По размеру»: увеличивает размер маленьких страниц и сжимает большие страницы по размеру бумаги. Уменьшить страницы, превышающие максимальный размер

Как задать страницы в Экселе?

Установка полей страницы перед печатью листа

1. Выберите листы, которые хотите распечатать. Выбор листов Чтобы выбрать лист: …
2. На вкладке «Макет страницы» в группе «Параметры страницы» выберите «Поля.
3. Выполните одно из следующих действий. Чтобы использовать поля по умолчанию, выберите «Обычное», «Широкое» или «Узкое.

Как изменить параметры страницы в Excel 2007?

В меню «Файл» выберите «Параметры страницы». В Excel 2007 щелкните диалоговое окно «Панель запуска» в группе «Параметры страницы» на вкладке «Макет страницы». Внесите желаемые изменения в диалоговом окне «Параметры страницы» и нажмите «ОК.

Как увеличить количество столбцов в Excel?

метод 1 В окне открытого листа щелкните правой кнопкой мыши любую ячейку столбца таблицы, слева от которого вы хотите добавить новый столбец. Чтобы вставить сразу несколько столбцов, сначала необходимо разделить необходимое количество столбцов таблицы.

Как в эксель сделать страницу формата а4

Как распечатать таблицу в excel на всем листе А4? Например, если игровая модель структурирована в Excel, эта информация обязательно пригодится. И не только в этом случае. Затем в оболочке Microsoft Office вы можете изменить размер таблиц вручную, взяв сетку за край. Однако это кропотливая работа и сохранить презентабельность проекта таким образом сложно. Мы упрощаем задачу: используем меню макета верхней страницы.

Как распечатать таблицу в excel на весь лист а4?

Адаптируйте таблицу к формату

Сначала в макете страницы откройте вкладку Размер и установите размер A4. Затем щелкните блок «Параметры страницы» — здесь, в нижней части меню. Потом:

Установите основы шкалы, активировав опцию «Не более…».

Введите единицы измерения в поля Ширина и Высота.

Активируйте процесс печати (в левом углу закладка с четырехцветным символом Word).

После шага 2 таблица будет пропорционально уменьшена до одной страницы. Точно так же вы можете редактировать не только Excel для печати, но и другие документы и изображения. В результате вы сможете адаптировать игровое поле, галерею карт или описание правил к размеру листа.

А как насчет таблиц Excel формата A4? Многие игры требуют регистрации результатов, действий и штрафных очков. Таким образом, вы можете создавать удобные сводки турниров, каждая из которых умещается на стандартном листе.

Создание таблицы

Шаг 1: активируйте границы страницы + режим макета

Допустим, вы только что открыли Excel 2013 (в версиях 2010 и 2007 все почти одинаково).

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

Чтобы увидеть границы листа, лучше отправить документ на печать (на просмотр), а не распечатывать. При выходе из режима печати вы увидите на документе тонкую пунктирную линию — это край бумаги.

Режим печати в Excel: для включения перейдите в меню «файл / печать». После выхода документ будет содержать края бумаги.

Для еще более точного макета перейдите в меню «вид» и активируйте режим «макет страницы». Перед вами должна появиться «линейка» (см. Серую стрелку на скриншоте ниже) + появится альбомный лист с границами, как в Word.

Этап 2: выбор формата листа (А4, А3…), положения (горизонтальное, вертикальное).

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

Ориентация листа: перейдите в меню «макет страницы», выберите пункт «ориентация».

Размер страницы: чтобы изменить размер бумаги с A4 на A3 (или другой), нужно зайти в меню «макет страницы», затем выбрать пункт «размер» и выбрать нужный формат во всплывающем контекстном меню.

Шаг 3: создание таблицы (чертежа)

После всех приготовлений можно приступать к рисованию стола. Удобнее всего это сделать с помощью функции «граница». Ниже скриншот с пояснениями.

Чтобы нарисовать таблицу: 1) перейдите в «основной» раздел; 2) открыть меню «ребра»; 3) в контекстном меню выберите пункт «рисовать границу».

Размер столбца

размер динамиков удобно регулировать линейкой, которая покажет точный размер в сантиметрах (см.).

Если вы перетащите ползунок, изменяя ширину столбцов, линейка покажет его ширину в см.

Размер линии

Аналогичным образом можно отрегулировать размер линий. См. Снимок экрана ниже.

Чтобы изменить высоту строк: 1) выберите нужные строки; 2) щелкните по нему правой кнопкой мыши; 3) В контекстном меню выберите «высота строки»; 4) Установите необходимую высоту.

Как напечатать пустую таблицу для заполнения с ячейками на всю страницу

Как уменьшить масштаб документа при печати?

Уменьшить масштаб в Word для печати

1. Перейдите в «Файл», затем «Печать» и «Параметры страницы».
2. В диалоговом окне выберите вкладку «Размер бумаги» и внизу нажмите «Параметры печати».

Распечатываем две страницы документа Эксель на одном листе

Кстати, в Word есть аналогичная возможность распечатать документ как книгу.

В основном задача состоит в том, чтобы распечатать документ Excel с обеих сторон. Первым делом нужно хорошо разместить стол на двух листах бумаги. Затем можно переходить к самой печати. Входим в пункт «Печать», выбираем один из вариантов двусторонней печати: с поворотом относительно короткого (влево, вправо) или длинного (вверх, вниз) края).

Как настроить таблицу в Экселе под размер листа?

Настройка полей и масштаба при печати в Excel

1. Перейдите на панель «Печать . …
2. Перейдите к параметрам изменения размера и в раскрывающемся меню выберите Подогнать лист к одной странице .
3. Все содержимое листа умещается в рамки распечатанной страницы.
4. Если вас устраивает этот масштаб, нажмите кнопку «Печать .

Как в Excel поставить границы листа а4?

Ориентация листа: перейдите в меню «макет страницы», выберите пункт «ориентация». Размер страницы: чтобы изменить размер бумаги с A4 на A3 (или другой), нужно зайти в меню «макет страницы», затем выбрать пункт «размер» и выбрать нужный формат во всплывающем контекстном меню.

В Excel достаточно много внимания уделено подготовки документа для вывода на печать. Настроек печати, значительно больше, чем в программе Word.

Чтобы подготовить таблицы и презентабельно разместить их на листах бумаги с помощью принтера ознакомитесь со всеми возможностями настроек программы. Специально для Вас в данной статье детально разобрано диалоговое окно «Печать».

Печать документа Excel

Чтобы вывести документ на печать в Excel существует 2 базовых способа:

1. Быстро и без настроек. Щелкните по инструменту «Быстрая печать» на панели быстрого доступа. Документ сразу отправиться на принтер, без каких либо управлений полями и параметрами. Но все же после нажатия на эту кнопку сразу принтер не запуститься, а появиться диалоговое окно настроек принтера.



2. С предварительным просмотром и настройками. Выберите «Файл»-«Печать» (или нажмите комбинацию горячих клавиш CTRL+P).

Появиться диалоговое окно по настройке параметров печати и предварительного просмотра. Данный способ разберем ниже более детально.



Как настроить печать в Excel?

Детальный разбор параметров печати и значение кнопок и опций параметров:

1. Печать – вывод данных документа на принтер с учетом всех настроек и опций.
2. Копии – количество экземпляров распечатанного документа. По умолчанию – 1. Значение можно ввести с клавиатуры или воспользоваться стрелочками.
3. Модель принтера – работая в локальной сети данный пункт, может содержать целый список принтеров. К одному компьютеру так же может быт подключено более 1-го принтера. Кроме того в данном параметре отображаются факсы и виртуальные принтеры для генерации PDF файлов.
4. Свойства принтера – щелкнув по данной ссылке, открывается диалоговое окно настройки параметров выбранного принтера. Эти параметры зависят от модели и типа печатающего устройства.
5. Напечатать активные листы – по умолчанию установлена опция для печати только активных листов. Но если щелкнуть по ней, то раскроется список дополнительных опций: «Напечатать всю книгу» (чтобы вывести данные на печать всей книги Excel) и «Напечатать выделенный фрагмент» (чтобы выводить на печать только диапазон данных). Их названия говорят за их функции. Так же в данном списке доступна опция «Игнорировать область печати». Она работает в режиме переключателя и может быть активирована/отключена вместе с любой выше описанной опцией. Ее можно использовать, когда задана область печати, а ее нужно проигнорировать. Или же стоит использовать данную функцию, когда при печати из Excel выходит пустая страница. Это значит, что неправильно задана область печати и ее нужно проигнорировать.
6. Старицы – здесь можно установить диапазон номеров страниц, которые нужно распечатать. Например, печатать только с 5-ой по 12-тую страницу.
7. Разобрать по копиям – данная функция выбрана по умолчанию. Это значит, что если документ печатается в нескольких экземплярах, то сначала будет распечатан 1-й экземпляр полностью потом 2-ой, 3-ий и т.д. Данную функцию можно переключить в другой режим «Не разбирать по копиям» — это значит, что сначала будут печататься все только первые страницы всех экземпляров, потом только вторые, третьи и т.д.
8. Книжная ориентация – выбор ориентации страницы, которую можно сменить на альбомную ориентацию.
9. А4 – здесь можно задать формат бумаги на котором будет печатать принтер. В списке доступно множество форматов для выбора. Но даже если вы не найдете подходящего формата, то для вас доступна опция под списком: «Другие размеры страниц» где вы можете в диалоговом окне «Параметры страницы» найти свой формат. Там же в списке «Размер бумаги» предоставлены все форматы «Международного стандарта ISO 216». Также включены форматы бумаги: «Североамериканский стандарт» и «Японский стандарт».
10. Последние настраиваемые поля – по умолчанию в данном параметре предоставляются пользовательские значения. Для удобства предусмотрено 3 готовых и уже настроенных шаблона полей: «Обычные», «Широкие», «Узкие».
11. Текущий – это параметр настройки размера масштаба данных, которые будут размещены на листах бумаги. Для удобства предусмотрено 3 шаблона масштабирования страниц: «Вписать лист на одну страницу» (данный шаблон параметра позволяет выполнить печать таблицы в Excel на одном листе), «Вписать все столбцы на одну страницу», «Вписать все строки на одну страницу». Для пользовательских настроек доступна опция «Параметры настраиваемого масштабирования», при выборе которой открываться все тоже окно «Параметры страницы». Например, если нужно увеличить масштаб печати в Excel или уменьшить, то там можно внести свои пользовательские настройки в соответствующем разделе. Таким образом, можно например, уменьшить таблицу в Excel для печати на одном листе.

Внимание! В данных настройках не ищите параметры двухсторонней печати. Данная функция должна поддерживаться Вашим принтером и настраиваться в его параметрах (смотрите пункт 4).

Sub КонвертС6()


'Определение пути текущего файла
Dim PathFile As String
PathFile = ActiveWorkbook.Path


'Отключение обновления экрана
Application.ScreenUpdating = False

'Вывод формы с сообщением
Dim frmMsg As UserForm1
Set frmMsg = New UserForm1
frmMsg.Show vbModeless
DoEvents




'Объявление переменных
Dim Fam As String, Im As String, Otch As String, Ul As String, Dom As String, Kv As String, Gor As String, Pos As String, Ind As String, Ind2 As String

'Ввод данных для физ.лиц
If ActiveSheet.Name = "Физ.лица" Then

With ActiveWorkSheet

Fam = Cells(ActiveCell.Row, 1).Text
Im = Cells(ActiveCell.Row, 2).Text
Otch = Cells(ActiveCell.Row, 3).Text

'Адрес
Ind = Cells(ActiveCell.Row, 4).Text
Ind2 = "-" & Cells(ActiveCell.Row, 4).Text
Gor = Cells(ActiveCell.Row, 5).Text
Pos = Cells(ActiveCell.Row, 6).Text
Ul = Cells(ActiveCell.Row, 7).Text
Dom = Cells(ActiveCell.Row, 8).Text
Kv = Cells(ActiveCell.Row, 9).Text

End With

'Ввод данных для юридических лиц
Else

With ActiveWorkSheet
'Адрес
Fam = Cells(ActiveCell.Row, 1).Text
Ind = Cells(ActiveCell.Row, 2).Text
Ind2 = "-" & Cells(ActiveCell.Row, 2).Text
Gor = Cells(ActiveCell.Row, 3).Text
Pos = Cells(ActiveCell.Row, 4).Text
Ul = Cells(ActiveCell.Row, 5).Text
Dom = Cells(ActiveCell.Row, 6).Text
Kv = Cells(ActiveCell.Row, 7).Text
End With
End If

'Создание нового файла для конверта
With Application

.SheetsInNewWorkbook = 1
End With

Workbooks.Add
Sheets("Лист1").Select
Sheets("Лист1").Name = "КонвертС6"





'Параметры страницы
With Sheets("КонвертС6").PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.Orientation = xlLandscape
.PaperSize = xlPaperEnvelopeC6
.Zoom = 100
.CenterHorizontally = True
.CenterVertically = True
End With

'Задание ширины столбцов и высоты строк

With Sheets("КонвертС6")
Columns("A:A").ColumnWidth = 8.22
Columns("B:B").ColumnWidth = 8.22
Columns("C:C").ColumnWidth = 8.22
Columns("D:D").ColumnWidth = 8.22
Columns("E:E").ColumnWidth = 5.11
Columns("F:F").ColumnWidth = 11.89
Columns("G:G").ColumnWidth = 23.11

Rows("1:1").RowHeight = 13.2
Rows("2:2").RowHeight = 13.2
Rows("3:3").RowHeight = 13.2
Rows("4:4").RowHeight = 13.2
Rows("5:5").RowHeight = 13.2
Rows("6:6").RowHeight = 13.2
Rows("7:7").RowHeight = 13.2
Rows("8:8").RowHeight = 13.2
Rows("9:9").RowHeight = 13.2
Rows("10:10").RowHeight = 13.2
Rows("11:11").RowHeight = 13.2
Rows("12:12").RowHeight = 13.2

Rows("13:13").RowHeight = 18.6
Rows("14:14").RowHeight = 18.6
Rows("15:15").RowHeight = 18.6
Rows("16:16").RowHeight = 18.6
Rows("17:17").RowHeight = 18.6
Rows("18:18").RowHeight = 18.6

Rows("19:19").RowHeight = 19.2

Rows("20:20").RowHeight = 13.2
Rows("21:21").RowHeight = 13.2

End With


'Вводим фиксированные данные
Range("КонвертС6!E13").FormulaR1C1 = "Кому"
Range("КонвертС6!E15").FormulaR1C1 = "Куда"


'Задаем шрифт


With Range("КонвертС6!E13,КонвертС6!E15").Font
.Name = "Arial"
.Size = 9
.Bold = True
.Italic = True
End With
'Границы и подчеркивание

'Подчеркивание строк получателя
With Range("КонвертС6!F13:G13,КонвертС6!E14:G14,КонвертС6!F15:G15,КонвертС6!E16:G16,КонвертС6!E17:G17,КонвертС6!E18:G18").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With




'Вставка ФИО и адреса получателя


Range("КонвертС6!F13") = Fam & " " & Im
Range("КонвертС6!F14") = Otch


Range("КонвертС6!F15") = "обл.Свердловская,"

If Pos = Empty Then
Range("КонвертС6!F16") = "г." & Gor & ","
Else
Range("КонвертС6!F16") = "г." & Gor & ", пос." & Pos & ","
End If

Range("КонвертС6!F17") = "ул." & Ul & ","

If Kv = Empty Then
Range("КонвертС6!F18") = "д." & Dom
Else
Range("КонвертС6!F18") = "д." & Dom & ", к." & Kv
End If





'Задаем шрифт
With Range("КонвертС6!F13,КонвертС6!F14,КонвертС6!F15,КонвертС6!F16,КонвертС6!F17,КонвертС6!F18").Font
.Name = "Courier New"
.Size = 10
.Bold = False
End With


'Ввод индекса получателя
Range("КонвертС6!E19").FormulaR1C1 = Ind

'Объединение ячеек
Range("КонвертС6!E19:F19").Merge

'Задание 4-х границ ячеек и выравнивание по центру
With Range("КонвертС6!E19:F19").Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Range("КонвертС6!E19:F19").Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Range("КонвертС6!E19:F19").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Range("КонвертС6!E19:F19").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("КонвертС6!E19:F19").Borders(xlInsideVertical).LineStyle = xlNone


With Range("КонвертС6!E19:F19")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With


With Range("КонвертС6!E19:F19").Font
.Name = "Courier New"
.Size = 14
.Bold = False
End With

'Формирование большого индекса получателя
Range("КонвертС6!A19").FormulaR1C1 = Ind2
Range("КонвертС6!A19:D21").Merge
With Range("КонвертС6!A19:D21").Font
.Name = "ZIPcode"
.Size = 47
.Bold = False
End With
With Range("КонвертС6!A19:D21")
.HorizontalAlignment = xlCenter
End With


'Скрытие столбцов и строк
Columns("H:IV").EntireColumn.Hidden = True
Rows("22:65536").EntireRow.Hidden = True

'Отключение сетки
Sheets("КонвертС6").Select
ActiveWindow.DisplayGridlines = False



'Убираем форму
Unload frmMsg
Set frmMsg = Nothing
'MsgBox "Готово!"


'Запрос о сохранении
Otvet = MsgBox("Сохранить документ?", vbYesNo)
Select Case Otvet

Case vbYes
'Сохранение
Dim FName As String
FName = InputBox("Введите имя файла:")

'ChDir "F:VisualBasicКаталог"
ActiveWorkbook.SaveAs Filename:=PathFile & "Каталог" & FName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

'Переход к файлу Конверты

' "Windows("Книга2").Activate


' Гиперссылка Макрос

Windows("Конверты").Activate
Sheets("Каталог").Activate

'Поиск первой пустой ячейки в столбце А
Range("A1").Activate
Do While Not IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop


ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=PathFile & "Каталог" & FName & ".xls", _
TextToDisplay:=FName & " Конверт С6"


Case vbNo
End Select


'Предварительный просмотр
' ActiveWindow.SelectedSheets.PrintPreview

End Sub