Vba параметры страницы excel

Параметры печатной страницы в VBA Excel. Свойство PageSetup объекта Worksheet. Объект PageSetup и описание некоторых его свойств с примерами.

PageSetup — это объект, который содержит все атрибуты параметров страницы в виде свойств (диапазон печати, размеры полей, ориентация страницы и т.д.).

Объект PageSetup возвращается свойством PageSetup объекта Worksheet:

где Expression — это выражение (переменная), возвращающее объект Worksheet.

Свойства объекта PageSetup

Диапазон печати

Установить диапазон для печати из кода VBA Excel можно с помощью свойства PageSetup.PrintArea:

Worksheets(«Лист1»).PageSetup.PrintArea = «D7:L30»

Лист1.PageSetup.PrintArea = Selection.Address

Размеры полей

Свойства, отвечающие за размер полей печатной страницы:

Свойство Описание
LeftMargin Возвращает или задает размер левого поля
TopMargin Возвращает или задает размер верхнего поля
RightMargin Возвращает или задает размер правого поля
BottomMargin Возвращает или задает размер нижнего поля

Свойства, отвечающие за размер полей, предназначены для чтения и записи, выражаются в точках (1 точка равна 1/72 дюйма или ≈1/28 см). Тип данных — Double.

Для того, чтобы вручную не высчитывать количество точек в дюймах или сантиметрах, существуют методы Application.InchesToPoints и Application.CentimetersToPoints, которые автоматически переводят дюймы и сантиметры в точки.

Пример задания размеров полей для печатной страницы:

Sub Primer1()

    With Лист4.PageSetup

        .LeftMargin = 72  ‘1 дюйм (2,54 см)

        .TopMargin = Application.CentimetersToPoints(2)  ‘2 см

        .RightMargin = 28  ‘приблизительно 1 см

        .BottomMargin = Application.InchesToPoints(0.5)  ‘0,5 дюйма (1,27 см)

    End With

End Sub

Пример чтения размеров заданных полей для печатной страницы и запись их в ячейки диапазона [A1:A4] активного листа:

Sub Primer2()

    With Лист4.PageSetup

        [A1] = .LeftMargin

        [A2] = .TopMargin

        [A3] = .RightMargin

        [A4] = .BottomMargin

    End With

End Sub

Масштаб

Масштабирование рабочего листа для печати осуществляется в VBA Excel с помощью свойства PageSetup.Zoom:

Лист4.PageSetup.Zoom = 200  ‘Увеличение масштаба до 200% (от 100%)

Worksheets(«Лист4»).PageSetup.Zoom = 80  ‘Уменьшение масштаба до 80% (от 100%)

Свойство PageSetup.Zoom может задавать или возвращать значение от 10 до 400 процентов.

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

За ориентацию печатной страницы отвечает свойство PageSetup.Orientation, которое возвращает или задает значение константы из коллекции XlPageOrientation.

Константы коллекции XlPageOrientation:

Константа Значение Описание
xlPortrait 1 Портретный режим (вертикальная ориентация)
xlLandscape 2 Ландшафтный режим (горизонтальная ориентация)

Примеры установки ориентации печатной страницы из кода VBA Excel:

Worksheets(«Лист4»).PageSetup.Orientation = xlPortrait

ActiveSheet.PageSetup.Orientation = xlLandscape
Источник
title keywords f1_keywords ms.prod api_name ms.assetid ms.date ms.localizationpriority

PageSetup object (Excel)

vbaxl10.chm472072

vbaxl10.chm472072

excel

Excel.PageSetup

2fd22df9-5987-f723-04a9-9a3f2e84ac81

03/30/2019

high

PageSetup object (Excel)

Represents the page setup description.

Remarks

The PageSetup object contains all page setup attributes (left margin, bottom margin, paper size, and so on) as properties.

Example

Use the PageSetup property of the Worksheet object to return a PageSetup object.

The following example sets the orientation to landscape mode and then prints the worksheet.

With Worksheets("Sheet1") 
 .PageSetup.Orientation = xlLandscape 
 .PrintOut 
End With

The With statement makes it easier and faster to set several properties at the same time. The following example sets all the margins for worksheet one.

With Worksheets(1).PageSetup 
 .LeftMargin = Application.InchesToPoints(0.5) 
 .RightMargin = Application.InchesToPoints(0.75) 
 .TopMargin = Application.InchesToPoints(1.5) 
 .BottomMargin = Application.InchesToPoints(1) 
 .HeaderMargin = Application.InchesToPoints(0.5) 
 .FooterMargin = Application.InchesToPoints(0.5) 
End With

Properties

  • AlignMarginsHeaderFooter
  • Application
  • BlackAndWhite
  • BottomMargin
  • CenterFooter
  • CenterFooterPicture
  • CenterHeader
  • CenterHeaderPicture
  • CenterHorizontally
  • CenterVertically
  • Creator
  • DifferentFirstPageHeaderFooter
  • Draft
  • EvenPage
  • FirstPage
  • FirstPageNumber
  • FitToPagesTall
  • FitToPagesWide
  • FooterMargin
  • HeaderMargin
  • LeftFooter
  • LeftFooterPicture
  • LeftHeader
  • LeftHeaderPicture
  • LeftMargin
  • OddAndEvenPagesHeaderFooter
  • Order
  • Orientation
  • Pages
  • PaperSize
  • Parent
  • PrintArea
  • PrintComments
  • PrintErrors
  • PrintGridlines
  • PrintHeadings
  • PrintNotes
  • PrintQuality
  • PrintTitleColumns
  • PrintTitleRows
  • RightFooter
  • RightFooterPicture
  • RightHeader
  • RightHeaderPicture
  • RightMargin
  • ScaleWithDocHeaderFooter
  • TopMargin
  • Zoom

See also

  • Excel Object Model Reference

[!includeSupport and feedback]

Источник

Содержание

  1. VBA Excel. Объект PageSetup (параметры страницы)
  2. Описание объекта PageSetup
  3. Свойства объекта PageSetup
  4. Диапазон печати
  5. Размеры полей
  6. Русские Блоги
  7. [Excel VBA] Параметры печати объекта PageSetup
  8. 1. Свойства, соответствующие вкладке «Страница»
  9. 2. Свойства, соответствующие вкладке «Поля».
  10. 3. Свойства, соответствующие вкладке «Верхний / нижний колонтитул».
  11. 4. Свойства, соответствующие вкладке «Рабочий лист»
  12. 5. Атрибуты, не соответствующие вкладкам
  13. Range.PrintOut метод

VBA Excel. Объект PageSetup (параметры страницы)

Параметры печатной страницы в VBA Excel. Свойство PageSetup объекта Worksheet. Объект PageSetup и описание некоторых его свойств с примерами.

Описание объекта PageSetup

Объект PageSetup возвращается свойством PageSetup объекта Worksheet:

где Expression — это выражение (переменная), возвращающее объект Worksheet.

Свойства объекта PageSetup

Диапазон печати

Установить диапазон для печати из кода VBA Excel можно с помощью свойства PageSetup.PrintArea:

Размеры полей

Свойства, отвечающие за размер полей печатной страницы:

Свойство Описание
LeftMargin Возвращает или задает размер левого поля
TopMargin Возвращает или задает размер верхнего поля
RightMargin Возвращает или задает размер правого поля
BottomMargin Возвращает или задает размер нижнего поля

Свойства, отвечающие за размер полей, предназначены для чтения и записи, выражаются в точках (1 точка равна 1/72 дюйма или ≈1/28 см). Тип данных — Double.

Для того, чтобы вручную не высчитывать количество точек в дюймах или сантиметрах, существуют методы Application.InchesToPoints и Application.CentimetersToPoints, которые автоматически переводят дюймы и сантиметры в точки.

Пример задания размеров полей для печатной страницы:

Источник

Русские Блоги

[Excel VBA] Параметры печати объекта PageSetup

Мы часто печатаем вещи в своей работе и вручную устанавливаем некоторые параметры, например, горизонтальную или вертикальную печать. Разберитесь в свойствах PageSetup, задайте параметры печати с помощью нескольких коротких строк кода, затем вы можете установить их один раз, использовать постоянно, удобно и эффективно.

Объект PageSetup представляет инструкции по настройке страницы. Содержит все свойства настроек страницы (левое поле, нижнее поле, размер бумаги и т. Д.).

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

1. Свойства, соответствующие вкладке «Страница»

Атрибуты Описание
FirstPageNumber Вернуть или установить номер первой страницы при печати указанного рабочего листа. Если установлено значение xlAutomatic, Microsoft Excel использует номер первой страницы. Значение по умолчанию — xlAutomatic. Длинный шрифт, читаемый и записываемый.
FitToPagesTall Верните или установите высоту страницы, используемую для масштабирования листа при его печати. Применяется только к рабочим листам. Тип варианта, читаемый и записываемый.
FitToPagesWide Верните или установите ширину страницы, используемую для масштабирования рабочего листа при его печати. Применяется только к рабочим листам. Тип варианта, читаемый и записываемый.
Orientation Возвращает или задает значение XlPageOrientation, которое представляет портретный или альбомный режим печати.
Pages Возвращает или задает количество страниц в коллекции Pages.
PaperSize Верните или установите размер бумаги. Может читать и писать XlPaperSize.
PrintQuality Вернуть или установить качество печати. Тип варианта, читаемый и записываемый.
Zoom Возвращает или задает значение Variant, которое представляет собой процентное значение от 10% до 400%. Этот процент представляет собой коэффициент масштабирования, когда Microsoft Excel печатает рабочий лист. Это свойство применяется только к листам. Если для этого атрибута установлено значениеFalse, ЗатемFitToPagesWide с участием FitToPagesTallАтрибуты определяют способ масштабирования листа. При любом увеличении сохраняется соотношение сторон исходного документа.

В этом примере Sheet1 настраивается для печати в альбомной ориентации.

2. Свойства, соответствующие вкладке «Поля».

Установление и возврат маржи в пунктах. быть полезнымInchesToPoints Метод преобразования дюймов в фунты, вы также можете использоватьCentimetersToPoints Метод перевода сантиметров в точки.

Точка: относится к единице измерения высоты печатаемых символов. Фунт равен 1/72 дюйма или примерно равен 1/28 сантиметра. )

Атрибуты Описание
BottomMargin Возвращает или задает размер нижнего поля в пунктах. Двойной тип, читаемый и записываемый.
CenterHorizontally Если указанный рабочий лист напечатан в центре страницы по горизонтали, значение атрибута равно True. Логический тип, доступный для чтения и записи.
CenterVertically Если указанный рабочий лист напечатан в центре страницы по вертикали, значение атрибута равно True. Логический тип, доступный для чтения и записи.
FooterMargin Вернуть или установить расстояние от нижнего колонтитула до низа страницы в пунктах. Двойной тип, читаемый и записываемый.
HeaderMargin Вернуть или установить расстояние от верха страницы до верхнего колонтитула в пунктах. Двойной тип, читаемый и записываемый.
LeftMargin Возвращает или задает размер левого поля в пунктах. Двойной тип, читаемый и записываемый.
RightMargin Возвращает или задает размер правого поля в пунктах. Двойной тип, читаемый и записываемый.
TopMargin Возвращает или задает размер верхнего поля в пунктах. Двойной тип, читаемый и записываемый.

В следующем примере устанавливаются все поля первого листа.

Эти два свойства аналогичны настройке содержимого ячейки по центру по горизонтали и вертикали.

3. Свойства, соответствующие вкладке «Верхний / нижний колонтитул».

Атрибуты Описание
AlignMarginsHeaderFooter Если Excel выравнивает верхний и нижний колонтитулы с полями, заданными в параметрах настройки страницы, он возвращает True. Чтение / запись логического типа.
CenterFooter Отцентрируйте информацию нижнего колонтитула в объекте PageSetup. Чтение / запись типа String.
CenterFooterPicture Возвращает графический объект, который представляет изображение в средней части нижнего колонтитула. Используется для установки атрибутов, связанных с изображением.
CenterHeader Выровняйте информацию заголовка по центру объекта PageSetup. Чтение / запись типа String.
CenterHeaderPicture Возвращает графический объект, который представляет изображение в средней части заголовка. Используется для установки атрибутов, связанных с изображением.
DifferentFirstPageHeaderFooter Истинно, если на первой странице используется другой верхний или нижний колонтитул. Чтение / запись логического типа.
LeftFooter Возвращает или задает выравнивание текста в левом нижнем колонтитуле книги или раздела.
LeftFooterPicture Возвращает графический объект, который представляет изображение в левой части нижнего колонтитула. Используется для установки атрибутов, связанных с изображением.
LeftHeader Возвращает или задает выравнивание текста в левом заголовке книги или раздела.
LeftHeaderPicture Возвращает графический объект, который представляет изображение в левой части заголовка. Используется для установки атрибутов, связанных с изображением.
OddAndEvenPagesHeaderFooter Если нечетные и четные страницы указанного объекта PageSetup имеют разные верхние и нижние колонтитулы, значение этого атрибута равно True. Логический тип, доступный для чтения и записи.
RightFooter Возвращает или задает расстояние (в пунктах) между правым краем страницы и правым краем нижнего колонтитула. Чтение / запись типа String.
RightFooterPicture Возвращает графический объект, который представляет изображение в правой части нижнего колонтитула. Используется для установки атрибутов изображения.
RightHeader Вернуть или установить правую часть заголовка. Чтение / запись типа String.
RightHeaderPicture Укажите графическое изображение, которое должно отображаться в правом заголовке. Только чтение.
ScaleWithDocHeaderFooter Возвращает или задает, будут ли масштабироваться верхний и нижний колонтитулы вместе с документом при изменении размера документа. Чтение / запись логического типа.

4. Свойства, соответствующие вкладке «Рабочий лист»

Атрибуты Описание
BlackAndWhite Если элементы в указанном документе напечатаны черно-белыми, значение атрибута равно True. Логический тип, доступный для чтения и записи.
Draft Если графика на листе не печатается при печати, значение атрибута равно True. Логический тип, доступный для чтения и записи.
Order Возвращает или задает значение XlOrder, которое представляет порядок, который Microsoft Excel использует для нумерации страниц при печати большого рабочего листа.
PrintArea Верните или установите область для печати в виде строки, которая использует ссылку стиля A1 макроязыка. Тип строки, доступный для чтения и записи.
PrintComments Вернуть или установить способ печати комментариев на листе. Тип XlPrintLocation, доступный для чтения и записи. Вы можете распечатать комментарии в виде текстовых полей или концевых сносок.
PrintErrors Устанавливает или возвращает константу XlPrintErrors, которая указывает тип отображаемой ошибки печати. Эта функция позволяет пользователям отменять отображение ошибок при печати рабочего листа. Могу читать и писать.
PrintGridlines Если линии сетки ячеек напечатаны на странице, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintHeadings Если заголовки строк и столбцов печатаются одновременно при печати этой страницы, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintNotes Если при печати рабочего листа комментарии к ячейкам печатаются вместе как концевые сноски, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintTitleColumns Возвращает или задает столбец, содержащий ячейки, которые повторно появляются в левой части каждой страницы, выраженные строкой на языке макросов в стиле A1. Тип строки, доступный для чтения и записи. Установите для этого атрибута значениеFalseИли пустая строка («»), строка заголовка будет закрыта.
PrintTitleRows Возвращает или задает те строки, которые содержат ячейки, которые многократно появляются в верхней части каждой страницы, выраженные в нотации стиля A1 с помощью строк макроязыка. Тип строки, доступный для чтения и записи.

Комментарий будет напечатан на новой странице.

5. Атрибуты, не соответствующие вкладкам

Атрибуты Описание
Application Если идентификатор объекта не используется, это свойство возвращает объект Application, представляющий приложение Microsoft Excel. Если используется идентификатор объекта, это свойство возвращает объект Application, представляющий создателя указанного объекта (вы можете использовать это свойство в объекте автоматизации OLE, чтобы вернуть приложение объекта). Только чтение.
Creator Возвращает 32-битное целое число, указывающее приложение, создавшее объект. Только чтение Длинный тип.
EvenPage Возвращает или задает выравнивание текста на четных страницах книги или раздела.
FirstPage Возвращает или задает выравнивание текста на первой странице книги или раздела.
Parent Возвращает родительский объект указанного объекта. Только чтение.

Range.PrintOut метод

Этот метод эквивалентен нажатию кнопки печати в Excel для выполнения операции печати. Этот метод позволяет указать принтер для печати.

Выражение выглядит следующим образом.

.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)

название Описание
From Номер начальной страницы для печати. Если этот параметр не указан, печать начнется с начальной позиции.
To Номер конечной страницы печати. Если этот параметр не указан, печать будет до последней страницы.
Copies Количество копий для печати. Если этот параметр не указан, будет напечатана только одна копия.
Preview Если этоTrue, Microsoft Excel вызовет предварительный просмотр перед печатью объекта. Если этоFalse(Или опустите этот параметр), объект будет немедленно напечатан.
ActivePrinter Задайте имя активного принтера.
PrintToFile Если этоTrue, Затем распечатайте в файл. Если не указаноPrToFileName, Microsoft Excel предложит пользователю ввести имя файла вывода, который будет использоваться.
Collate Если этоTrue, Печать нескольких копий с подборкой.
PrToFileName в случае PrintToFileУстановить какTrue, Параметр указывает имя файла для печати.

Заметка:From с участием ToОписанная «страница» относится к странице, которая будет напечатана, а не ко всем страницам в указанном листе или книге.

Публичный аккаунт WeChat: VBA168

Обратите внимание на общедоступную учетную запись WeChat и каждый день получайте объяснения классических примеров Excel VBA.

Магазины Taobao предоставляют услуги настройки Excel.

Источник

Источник

Мы часто печатаем вещи в своей работе и вручную устанавливаем некоторые параметры, например, горизонтальную или вертикальную печать. Разберитесь в свойствах PageSetup, задайте параметры печати с помощью нескольких коротких строк кода, затем вы можете установить их один раз, использовать постоянно, удобно и эффективно.

Объект PageSetup представляет инструкции по настройке страницы. Содержит все свойства настроек страницы (левое поле, нижнее поле, размер бумаги и т. Д.).

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

With Worksheets("Sheet1")
     .PageSetup.Orientation = xlLandscape
     .PrintOut
 End With

1. Свойства, соответствующие вкладке «Страница»

Атрибуты Описание
FirstPageNumber Вернуть или установить номер первой страницы при печати указанного рабочего листа. Если установлено значение xlAutomatic, Microsoft Excel использует номер первой страницы. Значение по умолчанию — xlAutomatic. Длинный шрифт, читаемый и записываемый.
FitToPagesTall Верните или установите высоту страницы, используемую для масштабирования листа при его печати. Применяется только к рабочим листам. Тип варианта, читаемый и записываемый.
FitToPagesWide Верните или установите ширину страницы, используемую для масштабирования рабочего листа при его печати. Применяется только к рабочим листам. Тип варианта, читаемый и записываемый.
Orientation Возвращает или задает значение XlPageOrientation, которое представляет портретный или альбомный режим печати.
Pages Возвращает или задает количество страниц в коллекции Pages.
PaperSize Верните или установите размер бумаги. Может читать и писать XlPaperSize.
PrintQuality Вернуть или установить качество печати. Тип варианта, читаемый и записываемый.
Zoom Возвращает или задает значение Variant, которое представляет собой процентное значение от 10% до 400%. Этот процент представляет собой коэффициент масштабирования, когда Microsoft Excel печатает рабочий лист. Это свойство применяется только к листам. Если для этого атрибута установлено значениеFalse, ЗатемFitToPagesWide с участием FitToPagesTallАтрибуты определяют способ масштабирования листа. При любом увеличении сохраняется соотношение сторон исходного документа.

В этом примере Sheet1 настраивается для печати в альбомной ориентации.

Рабочие листы ("Sheet1"). PageSetup.FirstPageNumber = 100 'Установить номер первой страницы, когда Sheet1 печатается до 100
   Рабочие листы ("Sheet1"). PageSetup.Orientation = xlLandscape'Set Sheet1 для альбомной печати
   Рабочие листы ("Sheet1"). PageSetup.Orientation = xlPortrait'Set Sheet1 для портретной печати
   С помощью рабочих листов ("Sheet1"). PageSetup'Print Sheet1 в соответствии с шириной и высотой страницы
     .Zoom = False
     .FitToPagesTall = 1
     .FitToPagesWide = 1
 End With
   Рабочие листы ("Sheet1"). PageSetup.PaperSize = xlPaperA4 'Установите размер бумаги Sheet1 на A4
   Рабочие листы ("Sheet1"). PageSetup.Zoom = 150 'Установите коэффициент масштабирования при печати Sheet1 на 150%

2. Свойства, соответствующие вкладке «Поля».

Установление и возврат маржи в пунктах. быть полезнымInchesToPoints Метод преобразования дюймов в фунты, вы также можете использоватьCentimetersToPoints Метод перевода сантиметров в точки.

Точка: относится к единице измерения высоты печатаемых символов. Фунт равен 1/72 дюйма или примерно равен 1/28 сантиметра. )

Атрибуты Описание
BottomMargin Возвращает или задает размер нижнего поля в пунктах. Двойной тип, читаемый и записываемый.
CenterHorizontally Если указанный рабочий лист напечатан в центре страницы по горизонтали, значение атрибута равно True. Логический тип, доступный для чтения и записи.
CenterVertically Если указанный рабочий лист напечатан в центре страницы по вертикали, значение атрибута равно True. Логический тип, доступный для чтения и записи.
FooterMargin Вернуть или установить расстояние от нижнего колонтитула до низа страницы в пунктах. Двойной тип, читаемый и записываемый.
HeaderMargin Вернуть или установить расстояние от верха страницы до верхнего колонтитула в пунктах. Двойной тип, читаемый и записываемый.
LeftMargin Возвращает или задает размер левого поля в пунктах. Двойной тип, читаемый и записываемый.
RightMargin Возвращает или задает размер правого поля в пунктах. Двойной тип, читаемый и записываемый.
TopMargin Возвращает или задает размер верхнего поля в пунктах. Двойной тип, читаемый и записываемый.

В следующем примере устанавливаются все поля первого листа.

With Worksheets(1).PageSetup
     .LeftMargin = Application.InchesToPoints(0.5)
     .RightMargin = Application.InchesToPoints(0.75)
     .TopMargin = Application.InchesToPoints(1.5)
     .BottomMargin = Application.InchesToPoints(1)
     .HeaderMargin = Application.InchesToPoints(0.5)
     .FooterMargin = Application.InchesToPoints(0.5)
 End With
Рабочие листы ("Sheet1"). PageSetup.CenterHorizontally = True 'Установить Sheet1 для печати по горизонтали и центру.
 Рабочие листы ("Sheet1"). PageSetup.CenterVertical = True'Set Sheet1 для вертикального центрирования и печати

Эти два свойства аналогичны настройке содержимого ячейки по центру по горизонтали и вертикали.

3. Свойства, соответствующие вкладке «Верхний / нижний колонтитул».

Атрибуты Описание
AlignMarginsHeaderFooter Если Excel выравнивает верхний и нижний колонтитулы с полями, заданными в параметрах настройки страницы, он возвращает True. Чтение / запись логического типа.
CenterFooter Отцентрируйте информацию нижнего колонтитула в объекте PageSetup. Чтение / запись типа String.
CenterFooterPicture Возвращает графический объект, который представляет изображение в средней части нижнего колонтитула. Используется для установки атрибутов, связанных с изображением.
CenterHeader Выровняйте информацию заголовка по центру объекта PageSetup. Чтение / запись типа String.
CenterHeaderPicture Возвращает графический объект, который представляет изображение в средней части заголовка. Используется для установки атрибутов, связанных с изображением.
DifferentFirstPageHeaderFooter Истинно, если на первой странице используется другой верхний или нижний колонтитул. Чтение / запись логического типа.
LeftFooter Возвращает или задает выравнивание текста в левом нижнем колонтитуле книги или раздела.
LeftFooterPicture Возвращает графический объект, который представляет изображение в левой части нижнего колонтитула. Используется для установки атрибутов, связанных с изображением.
LeftHeader Возвращает или задает выравнивание текста в левом заголовке книги или раздела.
LeftHeaderPicture Возвращает графический объект, который представляет изображение в левой части заголовка. Используется для установки атрибутов, связанных с изображением.
OddAndEvenPagesHeaderFooter Если нечетные и четные страницы указанного объекта PageSetup имеют разные верхние и нижние колонтитулы, значение этого атрибута равно True. Логический тип, доступный для чтения и записи.
RightFooter Возвращает или задает расстояние (в пунктах) между правым краем страницы и правым краем нижнего колонтитула. Чтение / запись типа String.
RightFooterPicture Возвращает графический объект, который представляет изображение в правой части нижнего колонтитула. Используется для установки атрибутов изображения.
RightHeader Вернуть или установить правую часть заголовка. Чтение / запись типа String.
RightHeaderPicture Укажите графическое изображение, которое должно отображаться в правом заголовке. Только чтение.
ScaleWithDocHeaderFooter Возвращает или задает, будут ли масштабироваться верхний и нижний колонтитулы вместе с документом при изменении размера документа. Чтение / запись логического типа.

4. Свойства, соответствующие вкладке «Рабочий лист»

Атрибуты Описание
BlackAndWhite Если элементы в указанном документе напечатаны черно-белыми, значение атрибута равно True. Логический тип, доступный для чтения и записи.
Draft Если графика на листе не печатается при печати, значение атрибута равно True. Логический тип, доступный для чтения и записи.
Order Возвращает или задает значение XlOrder, которое представляет порядок, который Microsoft Excel использует для нумерации страниц при печати большого рабочего листа.
PrintArea Верните или установите область для печати в виде строки, которая использует ссылку стиля A1 макроязыка. Тип строки, доступный для чтения и записи.
PrintComments Вернуть или установить способ печати комментариев на листе. Тип XlPrintLocation, доступный для чтения и записи. Вы можете распечатать комментарии в виде текстовых полей или концевых сносок.
PrintErrors Устанавливает или возвращает константу XlPrintErrors, которая указывает тип отображаемой ошибки печати. Эта функция позволяет пользователям отменять отображение ошибок при печати рабочего листа. Могу читать и писать.
PrintGridlines Если линии сетки ячеек напечатаны на странице, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintHeadings Если заголовки строк и столбцов печатаются одновременно при печати этой страницы, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintNotes Если при печати рабочего листа комментарии к ячейкам печатаются вместе как концевые сноски, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintTitleColumns Возвращает или задает столбец, содержащий ячейки, которые повторно появляются в левой части каждой страницы, выраженные строкой на языке макросов в стиле A1. Тип строки, доступный для чтения и записи. Установите для этого атрибута значениеFalseИли пустая строка («»), строка заголовка будет закрыта.
PrintTitleRows Возвращает или задает те строки, которые содержат ячейки, которые многократно появляются в верхней части каждой страницы, выраженные в нотации стиля A1 с помощью строк макроязыка. Тип строки, доступный для чтения и записи. 
Рабочие листы ("Sheet1"). PageSetup.BlackAndWhite = True 'Установить рабочий лист Sheet1 для черно-белой печати
   Рабочие листы ("Sheet1"). PageSetup.Draft = True'Закрыть печать графики в Sheet1
   Рабочие листы ("Sheet1"). PageSetup.Order = xlOverThenDown'Set Sheet1 для разделения на несколько страниц для печати. Пронумеруйте и распечатайте слева направо и сверху вниз.
   Рабочие листы ("Sheet1"). PageSetup.PrintArea = "$ A $ 1: $ C $ 5" 'Установите для области печати ячейки A1: C5 на Sheet1
   Worksheets (1) .PageSetup.PrintComments = xlPrintSheetEnd 'позволяет печатать комментарии как концевые сноски
   Worksheets ("Sheet1"). PageSetup.PrintGridlines = True 'Печатать линии сетки ячеек одновременно с печатью Sheet1
   Рабочие листы ("Sheet1"). PageSetup.PrintHeadings = False 'Отключить печать заголовка на Sheet1
   Рабочие листы ("Sheet1"). PageSetup.PrintNotes = False'Закрыть примечания к печати
   ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows (3) .Address 'определяет третью строку как строку заголовка
   ActiveSheet.PageSetup.PrintTitleColumns = ActiveSheet.Columns ("A: C"). Address 'определяет столбцы с первого по третий как столбцы заголовков

PrintComments свойство

Установить аннотации

Комментарий будет напечатан на новой странице.

5. Атрибуты, не соответствующие вкладкам

Атрибуты Описание
Application Если идентификатор объекта не используется, это свойство возвращает объект Application, представляющий приложение Microsoft Excel. Если используется идентификатор объекта, это свойство возвращает объект Application, представляющий создателя указанного объекта (вы можете использовать это свойство в объекте автоматизации OLE, чтобы вернуть приложение объекта). Только чтение.
Creator Возвращает 32-битное целое число, указывающее приложение, создавшее объект. Только чтение Длинный тип.
EvenPage Возвращает или задает выравнивание текста на четных страницах книги или раздела.
FirstPage Возвращает или задает выравнивание текста на первой странице книги или раздела.
Parent Возвращает родительский объект указанного объекта. Только чтение.

Range.PrintOut метод

Этот метод эквивалентен нажатию кнопки печати в Excel для выполнения операции печати. Этот метод позволяет указать принтер для печати.

Выражение выглядит следующим образом.

.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)

название Описание
From Номер начальной страницы для печати. Если этот параметр не указан, печать начнется с начальной позиции.
To Номер конечной страницы печати. Если этот параметр не указан, печать будет до последней страницы.
Copies Количество копий для печати. Если этот параметр не указан, будет напечатана только одна копия.
Preview Если этоTrue, Microsoft Excel вызовет предварительный просмотр перед печатью объекта. Если этоFalse(Или опустите этот параметр), объект будет немедленно напечатан.
ActivePrinter Задайте имя активного принтера.
PrintToFile Если этоTrue, Затем распечатайте в файл. Если не указаноPrToFileName, Microsoft Excel предложит пользователю ввести имя файла вывода, который будет использоваться.
Collate Если этоTrue, Печать нескольких копий с подборкой.
PrToFileName в случае PrintToFileУстановить какTrue, Параметр указывает имя файла для печати.

Заметка:From с участием ToОписанная «страница» относится к странице, которая будет напечатана, а не ко всем страницам в указанном листе или книге.

Публичный аккаунт WeChat: VBA168

Адрес магазина Taobao:https://item.taobao.com/item.htm?spm=a1z10.1-c-s.w4004-21233576391.4.1af0683dzrx3oU&id=584940166162

Обратите внимание на общедоступную учетную запись WeChat и каждый день получайте объяснения классических примеров Excel VBA.

Магазины Taobao предоставляют услуги настройки Excel.

Желаю вам легче работать и учиться!

Источник
 

Знатоки, подскажите пжл возможно ли средствами VBA в Excel изменить с помощью макроса размер страницы (смотрел PageSetup.PaperSize, при помощи которого не получилось установить свой произвольный размер страницы)?  
Или возможно настроить принтер на необходимый (нестандартный) размер страницы при помощи допустим Win32 API (или чего иного)?
 

VovaK

Пользователь

Сообщений: 1716
Регистрация: 01.01.1970

Макрорекодер хорошо прописывает все свойства страницы при изменении свойств разметки страницы. Попробуйте выполнить две записи макроса с разными настройками страницы и посмотрите какие свойства за что отвечают. Удачи…
 

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

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

Макрорекодером конечно же пытался высмотреть это. Меняется многое (поля, заголоки и тд.), но не сам размер страницы.  
Вручную это сделать можно, но как макросом?
 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

Из справки  
Worksheets(«Sheet1»).PageSetup.PaperSize = xlPaperLegal  
XlPaperSize can be one of these XlPaperSize constants.    
xlPaper11x17. 11 in. x 17 in.    
xlPaperA4. A4 (210 mm x 297 mm)    
xlPaperA5. A5 (148 mm x 210 mm)    
xlPaperB5. A5 (148 mm x 210 mm)    
xlPaperDsheet. D size sheet    
xlPaperEnvelope11. Envelope #11 (4-1/2 in. x 10-3/8 in.)    
xlPaperEnvelope14. Envelope #14 (5 in. x 11-1/2 in.)    
xlPaperEnvelopeB4. Envelope B4 (250 mm x 353 mm)    
xlPaperEnvelopeB6. Envelope B6 (176 mm x 125 mm)    
xlPaperEnvelopeC4. Envelope C4 (229 mm x 324 mm)    
xlPaperEnvelopeC6. Envelope C6 (114 mm x 162 mm)    
xlPaperEnvelopeDL. Envelope DL (110 mm x 220 mm)    
xlPaperEnvelopeMonarch. Envelope Monarch (3-7/8 in. x 7-1/2 in.)    
xlPaperEsheet. E size sheet    
xlPaperFanfoldLegalGerman. German Legal Fanfold (8-1/2 in. x 13 in.)    
xlPaperFanfoldUS. U.S. Standard Fanfold (14-7/8 in. x 11 in.)    
xlPaperLedger. Ledger (17 in. x 11 in.)    
xlPaperLetter. Letter (8-1/2 in. x 11 in.)    
xlPaperNote. Note (8-1/2 in. x 11 in.)    
xlPaperStatement. Statement (5-1/2 in. x 8-1/2 in.)    
xlPaperUser. User-defined    
xlPaper10x14. 10 in. x 14 in.    
xlPaperA3. A3 (297 mm x 420 mm)    
xlPaperA4Small. A4 Small (210 mm x 297 mm)    
xlPaperB4. B4 (250 mm x 354 mm)    
xlPaperCsheet. C size sheet    
xlPaperEnvelope10. Envelope #10 (4-1/8 in. x 9-1/2 in.)    
xlPaperEnvelope12. Envelope #12 (4-1/2 in. x 11 in.)    
xlPaperEnvelope9. Envelope #9 (3-7/8 in. x 8-7/8 in.)    
xlPaperEnvelopeB5. Envelope B5 (176 mm x 250 mm)    
xlPaperEnvelopeC3. Envelope C3 (324 mm x 458 mm)    
xlPaperEnvelopeC5. Envelope C5 (162 mm x 229 mm)    
xlPaperEnvelopeC65. Envelope C65 (114 mm x 229 mm)    
xlPaperEnvelopeItaly. Envelope (110 mm x 230 mm)    
xlPaperEnvelopePersonal. Envelope (3-5/8 in. x 6-1/2 in.)    
xlPaperExecutive. Executive (7-1/2 in. x 10-1/2 in.)    
xlPaperFanfoldStdGerman. German Legal Fanfold (8-1/2 in. x 13 in.)    
xlPaperFolio. Folio (8-1/2 in. x 13 in.)    
xlPaperLegal. Legal (8-1/2 in. x 14 in.)    
xlPaperLetterSmall. Letter Small (8-1/2 in. x 11 in.)    
xlPaperQuarto. Quarto (215 mm x 275 mm)    
xlPaperTabloid. Tabloid (11 in. x 17 in.)    
Note  Some printers may not support all of these paper sizes.
 

Да, спасибо справку видел еще до обращения на форум. Но необходимо установить нестандартный размер, т.е. не предусмотренный PaperSize.  

  Возможно при помощи Win312 API можно настроить принтер? Пока пытаюсь что-нибудь сделать через DEVMODE, но результат тоже … пока не умею ))
 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

А, если варьировать поля страницы  
With Worksheets(1).PageSetup  
   .LeftMargin = Application.InchesToPoints(0.5)  
   .RightMargin = Application.InchesToPoints(0.75)  
   .TopMargin = Application.InchesToPoints(1.5)  
   .BottomMargin = Application.InchesToPoints(1)  
   .HeaderMargin = Application.InchesToPoints(0.5)  
   .FooterMargin = Application.InchesToPoints(0.5)  
End With
 

Этим тоже можно, но … не достаточно.  

  Мне нужно вывести на печать в MicOf Document Image Writer (в файл) определенный блок ячеек (явно меньше формата А4). В данном случае выводится рисунок размером А4, на котором небольшим пятном получается нужный блок, а остальное — большое белое поле.    
Пробовал вручную уменьшить размер листа и получался рисунок под размер блока (как нужно). Макрорекордер не помог узнать как это сделать макросом.
 

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

А масштабом не пробовали подогнать?
 

Пробовал. Покажу что получается.
 

ran

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

Например так (4 столбца по ширине страницы на лист А4)  
Sub Макрос2()  
‘  
‘ Макрос2 Макрос  
‘  

  ‘  
   Columns(«A:D»).Select  
   Selection.ColumnWidth = 21.86  
End Sub
 

из-за расширения не пускает файл  
<EM><STRONG>Файл удален</STRONG> — велик размер — 1,2М! [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

Я сейчас выделил 12 ячеек (стандартная ширина/высота). Установил масштаб 200%, отправил на принтер — получил на бумаге большие цифири :-)

 

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

Проблема-промблемой, но Правила никто не отменял.  
Чем не подходит масштаб? Разве нет увеличения?
 

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

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

А сам рисунок, вставленный в документ, кто мешает растянуть/сжать? Не очень Вас понимаю:    
«выводится рисунок размером А4, на котором небольшим пятном получается нужный блок».  
А увеличение масштаба (когда «пятно» большое) — не подходит.
 

по 1 стороне (ширине) можно конечно растянуть (хоть в книжном, хоть в альбомном формате), но блок по своим пропорциям не совпадает со стандартным A4  

  представьте как можно квадратом или кругом заполнить почти весь A4?
 

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

Так, если, квадратом или кругом нельзя (не изменяя пропорций), что же Вы хотите сделать с «неправильным» блоком применительно к А4?
 

A4 переделать в нужный мне размер.
 

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

Берём ножницы и… :-) По вопросу: конечная цель вставить в некий документ рисунок, где его поля сведены к минимуму? Обрезка рисунка не спасает?
 

Обрезка рисунка при помощи макроса? это возможно?
 

ran

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012
 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

Вот нашел в справочнике программиста  
Option Explicit  
Sub SetUpPage()  
Dim oPS As PageSetup  
‘ получить объект PageSetup для листа  
Set oPS = ActiveSheet.PageSetup  
‘ настроить страницу  
With oPS  
‘ установить размер страницы в соответствии с  
‘ принятыми требованиями  
   .PaperSize = fnLocalPaperSize  
   .Orientation = xlPortrait  
   .LeftMargin = Application.InchesToPoints(1.5)  
   .RightMargin = Application.InchesToPoints(1.5)  
   .TopMargin = Application.InchesToPoints(2.5)  
   .BottomMargin = Application.InchesToPoints(2.5)  
   .HeaderMargin = Application.InchesToPoints(0.5)  
   .FooterMargin = Application.InchesToPoints(0.5)  
   ‘ и т.д.  
End With  
End Sub  

  Function fnLocalPaperSize() As XlPaperSize  
‘ сохранить размер листа при чтении  
Static iPaperSize As XlPaperSize  
‘ размер установлен?  
   If iPaperSize = 0 Then  
   ‘ нет, поэтому создать новую книгу и считать размер листа  
       With Workbooks.Add  
           iPaperSize = .Worksheets(1).PageSetup.PaperSize  
           .Close False  
       End With  
   End If  
   ‘ вернуть размер листа  
   fnLocalPaperSize = iPaperSize  
End Function
 

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

{quote}{login=Сергей М}{date=19.01.2011 10:45}{thema=}{post}Обрезка рисунка при помощи макроса? это возможно?{/post}{/quote}  
Рекордер записывает.
 

Ну раз записывает, то показали бы как изменить РАЗМЕР листа (не поля какие-нибудь).  

  Нужную для себя задачу решил, но другим способом. Путем изменения размера листа не получается ПОКА.  

  Всем не равнодушным БОЛЬШОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО.
 

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

Сергей, Вы спросили про обрезку рисунка — я ответил. И не нужно передёргивать.
 

Юрий, извините что не понял Вас.  
А обрезать в Worde или в Excel?
 

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

Да ладно… В Excel. Я проверил — записывается обрезка, значит и самому написать можно :-) Тогда будет без «лишних» полей. Я так понимаю, что Вам именно они и мешают — перекрывают полезную площадь.
 

Сергей М

Гость

#29

21.01.2011 21:59:30

Блин, и как раньше не заметил эту обрезку :), и действительно получается записать.    
Ну теперь знаю еще 1 способ получить нужное, пригодится.  

  Юрий, еще раз спасибо.
Источник

Like this post? Please share to your friends:
  • Vba открыть файл excel без обновления связей
  • Vba открыть файл csv в excel по столбцам
  • Vba открыть таблицу access в excel
  • Vba открыть книгу excel невидимо
  • Vba открыть документ word по имени