Прошу проверить правильно ли записан код макрорекордером

Дата: Суббота, 01.04.2017, 15:12 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1350

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Всем привет
Макрорекордером записал код.
[vba]

Код

Sub Печать()
'
' Печать Макрос
'
   Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
        End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = False
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

[/vba]Он был больше, но я убрал лишнее (в моем понимании). Вопросы:
1. Все ли лишнее я убрал?
2. Будет ли код работать одинаково корректно для всех принтеров, учитывая настройки печати: А4, книжная, выравнивание по горизонтали, печать на одном листе?
3. Есть ли смысл параметру ".PrintQuality =" устанавливать значение 300 (на печать выводится только текст)?

Спасибо

Всем привет
Макрорекордером записал код.
[vba]

Код

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Суббота, 01.04.2017, 23:56

СообщениеВсем привет
Макрорекордером записал код.
[vba]

Код

Автор - light26
Дата добавления - 01.04.2017 в 15:12

Дата: Суббота, 01.04.2017, 15:39 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub Макрос1()
    With ActiveSheet
        With .PageSetup
            .CenterHorizontally = True
            .Orientation = xlPortrait
            .PaperSize = xlPaperA4
            .FitToPagesTall = 1
        End With
        .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End With
End Sub

[/vba]
Может и еще что лишнее осталось... yes

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 01.04.2017, 15:40

Дата: Суббота, 01.04.2017, 16:04 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1350

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Цитата RAN, 01.04.2017 в 15:39, в сообщении № 2 ()

Может и еще что лишнее осталось...

Андрей, как всегда, не могёт не подколоть

Спасибо за макрос. Я правильно понял, что макрорекордер прописывает все настройки печати, и те, которые идут по умолчанию можно не указывать?
И разве не нужен параметр .FitToPagesWide = 1, если печать на 1 страницу в высоту и 1 страницу в ширину?
И еще, если мы указываем ActiveSheet, то макрос будет применен к активному листу, т.е. к листу, на котором кнопка (в моем случае). А если мне надо напечатать скрытый лист, то я должен записать так:[vba]

Код

Sub Макрос1()
    With Sheets("Заявка")
        With .PageSetup
            .CenterHorizontally = True
            .Orientation = xlPortrait
            .PaperSize = xlPaperA4
            .FitToPagesTall = 1
        End With
        .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End With
End Sub

[/vba]Верно?

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Суббота, 01.04.2017, 16:24

Дата: Суббота, 01.04.2017, 16:21 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

При сжатии 2 страниц в высоту до 1 , ширина получается 0,5 страницы. Так что можешь смело ставить
[vba]

Код

.FitToPagesWide = 100

[/vba]

Быть или не быть, вот в чем загвоздка!

Дата: Суббота, 01.04.2017, 16:23 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1350

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Излишнее цитирование удалено администрацией
Понял

[moder]Вадим, блин, ну ты еще косячить будешь, да?[/moder]

Я не волшебник. Я только учусь

Сообщение отредактировал _Boroda_ - Суббота, 01.04.2017, 16:26

Дата: Суббота, 01.04.2017, 16:28 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1350

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Я не хотел

Я не волшебник. Я только учусь

Pelena

Дата: Суббота, 01.04.2017, 17:32 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

Репутация: 4421 ±

Замечаний: ±

Excel 365 & Mac Excel

Название темы ни о чём. Вадим, тебя тоже послать читать Правила форума?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Суббота, 01.04.2017, 18:04 | Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 1350

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Цитата Pelena, 01.04.2017 в 17:32, в сообщении № 7 ()

Название темы ни о чём. Вадим, тебя тоже послать читать Правила форума?

Виноват, исправлюсь

Я не волшебник. Я только учусь

Дата: Суббота, 01.04.2017, 18:20 | Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 1350

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Не работает

Для печати скрытых листов изменил код:[vba]

Код

Sub Печать()
Application.ScreenUpdating = False
Sheets("Счет").Visible = True
    With Sheets("Счет")
        With .PageSetup
            .FitToPagesTall = 1
            .FitToPagesWide = 1
            .CenterHorizontally = True
            .Orientation = xlPortrait
            .PaperSize = xlPaperA4
                    End With
        .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
     Sheets("Счет").Visible = False
     End With
      Application.ScreenUpdating = True
End Sub

[/vba]Но почему-то печатаются 2 листа: один со счетом, а второй - пустой

В чем причина? Или просто дописать в код, чтобы печатался только первый лист?

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Суббота, 01.04.2017, 23:57

Дата: Суббота, 01.04.2017, 18:31 | Сообщение № 10

Группа: Друзья

Ранг: Старожил

Сообщений: 1350

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Сам поборол болячку

[vba]

Код

Sub Печать()
Application.ScreenUpdating = False
Sheets("Счет").Visible = True
    With Sheets("Счет")
        With .PageSetup
            .FitToPagesTall = 1
            .FitToPagesWide = 1
            .CenterHorizontally = True
            .Orientation = xlPortrait
            .PaperSize = xlPaperA4
                    End With
        .PrintOut From:=1, To:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
     Sheets("Счет").Visible = False
     End With
      Application.ScreenUpdating = True
End Sub

[/vba]

Я не волшебник. Я только учусь

Дата: Суббота, 01.04.2017, 20:04 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Модер1 - по всей морде хрюпс!
Модер2 - по всей морде хряпс!
а он на цирлах

Цитата light26, 01.04.2017 в 18:04, в сообщении № 8 ()

Виноват, исправлюсь

Брось врать! Горбатого .....
И то не факт.

Быть или не быть, вот в чем загвоздка!

Дата: Суббота, 01.04.2017, 20:05 | Сообщение № 12

Группа: Друзья

Ранг: Старожил

Сообщений: 1350

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Цитата RAN, 01.04.2017 в 20:04, в сообщении № 11 ()

Брось врать! Горбатого .....
И то не факт.

Ну, это уже хамство

Я не волшебник. Я только учусь

Дата: Суббота, 01.04.2017, 20:08 | Сообщение № 13

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Вадим, да нешто?
Я бы еще мог согласиться в отношении кого другого
[offtop]Нет, ежели что, ты мне писни в личку, и я на твои сообщения вообще реагировать не буду.[/offtop]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 01.04.2017, 20:56