Макрос на печать, прописать путь к печати

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на печать, прописать путь к печати (Макросы/Sub)

Dersarius

Дата: Среда, 18.03.2015, 10:36 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

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

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

Excel 2010

Подскажите.
Есть макрос кнопка на лист1 при нажатие открывает лист2 печатает его в пдф в папку на диск С:\Новая папка
Как сделать что бы при печати создавалась папка (например "печать"), в том месте где лежит файл excel, и все pdf печатались туда?

[vba]

Код

Sub Лист1()
'
' Лист1 Макрос
'

'
         Sheets("Лист1").Select
     Sheets("Лист2").Visible = True
     Sheets("Лист2").Select
     Range("J15:M15").Select
     ChDir _
         "C:\Новая папка"
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         "C:\Новая папка\" & Sheets("Лист1").Range("b6").Value & Sheets("Лист1").Range("a12").Value & ".pdf", Quality:=xQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
         :=False, OpenAfterPublish:=False
     Range("A1:Y57").Select
     Sheets("Лист2").Select
     ActiveWindow.SelectedSheets.Visible = False
End Sub

[/vba]

Ответить

Manyasha

Дата: Среда, 18.03.2015, 11:47 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 2198

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

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

Excel 2010, 2016

Dersarius, здравствуйте. Можно так:[vba]

Код

    Dim fso
     Set fso = CreateObject("Scripting.FileSystemObject")
         If Dir("C:\печать", vbDirectory) = "" Then'если папки нет
             MkDir ("C:\печать")'создаем папку
         End If
     'Ваш код.....
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             "C:\печать" '....

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

KuklP

Дата: Среда, 18.03.2015, 23:53 | Сообщение № 3

Группа: Проверенные

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

Сообщений: 2369

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

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

2003-2010

Чуть проще:
[vba]

Код

Public Sub www()
      CreateObject("Shell.Application").Namespace("C:\").NewFolder ("Печать")
          'Ваш код.....
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
               "C:\Печать" '....
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Среда, 18.03.2015, 23:54

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на печать, прописать путь к печати (Макросы/Sub)

Страница 1 из 1
1