Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Теряются поля при сохранении VBA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Теряются поля при сохранении VBA (Макросы/Sub)
Теряются поля при сохранении VBA
iWannaFly Дата: Пятница, 24.03.2017, 10:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем доброго пятничного дня.
Суть проблемы: у меня есть файл ексель который нужно сохранять в папку. И мой макрос это делает. Но почему то при выводе на печать сохраненного файла теряются поля. И файл выводится криво, хотя оригинал выводится отлично(магия). Опытным путём установил, чтобы файл печатался нормально нужно поля установить на 0 (верхние и нижние). Как можно с помощью VBA задать это параметр. С таким никогда не сталкивался. Заранее спасибо.
 
Ответить
СообщениеВсем доброго пятничного дня.
Суть проблемы: у меня есть файл ексель который нужно сохранять в папку. И мой макрос это делает. Но почему то при выводе на печать сохраненного файла теряются поля. И файл выводится криво, хотя оригинал выводится отлично(магия). Опытным путём установил, чтобы файл печатался нормально нужно поля установить на 0 (верхние и нижние). Как можно с помощью VBA задать это параметр. С таким никогда не сталкивался. Заранее спасибо.

Автор - iWannaFly
Дата добавления - 24.03.2017 в 10:01
Karataev Дата: Пятница, 24.03.2017, 10:05 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
Поля регулируются так. Установка у всех полей 0 см:
[vba]
Код
Sub Макрос1()
    With ActiveSheet.PageSetup
        .LeftMargin = Application.CentimetersToPoints(0)
        .RightMargin = Application.CentimetersToPoints(0)
        .TopMargin = Application.CentimetersToPoints(0)
        .BottomMargin = Application.CentimetersToPoints(0)
    End With
End Sub
[/vba]


Сообщение отредактировал Karataev - Пятница, 24.03.2017, 10:07
 
Ответить
СообщениеПоля регулируются так. Установка у всех полей 0 см:
[vba]
Код
Sub Макрос1()
    With ActiveSheet.PageSetup
        .LeftMargin = Application.CentimetersToPoints(0)
        .RightMargin = Application.CentimetersToPoints(0)
        .TopMargin = Application.CentimetersToPoints(0)
        .BottomMargin = Application.CentimetersToPoints(0)
    End With
End Sub
[/vba]

Автор - Karataev
Дата добавления - 24.03.2017 в 10:05
iWannaFly Дата: Пятница, 24.03.2017, 10:17 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Поля регулируются так. Установка у всех полей 0 см:

Спасибо. Всё отлично.
--
Осталось с папками разобраться)
 
Ответить
Сообщение
Поля регулируются так. Установка у всех полей 0 см:

Спасибо. Всё отлично.
--
Осталось с папками разобраться)

Автор - iWannaFly
Дата добавления - 24.03.2017 в 10:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Теряются поля при сохранении VBA (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!