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

Вход

Регистрация

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

 

= Мир MS Excel/Как быстро сделать пдф файл/или вывести на печать - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как быстро сделать пдф файл/или вывести на печать
dogma120801 Дата: Четверг, 20.04.2023, 12:55 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

LTCS 21
Добрый день, такая проблема есть файл, и частенько большой объем актов нужно вывести в пдф. Содержание акта меняется, если изменять число (на скрине выделено синим) . Каждый раз делать это в ручном режиме поднадоело, есть ли вариант как-то это сделать с помощью макросов, т.е. автоматически изменение числа на +1 и вывод получившегося акта в пдф, думаю можно сделать кнопку в доке, при нажатии на который изменялось бы число и выводился пдф, ну или как-то по другому, как вы придумаете))? Буду очень признателен, если у кого-то это получится сделать
К сообщению приложен файл: 7_avk.xlsx (390.8 Kb) · 8279310.png (256.3 Kb)


Сообщение отредактировал dogma120801 - Четверг, 20.04.2023, 12:57
 
Ответить
СообщениеДобрый день, такая проблема есть файл, и частенько большой объем актов нужно вывести в пдф. Содержание акта меняется, если изменять число (на скрине выделено синим) . Каждый раз делать это в ручном режиме поднадоело, есть ли вариант как-то это сделать с помощью макросов, т.е. автоматически изменение числа на +1 и вывод получившегося акта в пдф, думаю можно сделать кнопку в доке, при нажатии на который изменялось бы число и выводился пдф, ну или как-то по другому, как вы придумаете))? Буду очень признателен, если у кого-то это получится сделать

Автор - dogma120801
Дата добавления - 20.04.2023 в 12:55
Nic70y Дата: Четверг, 20.04.2023, 13:21 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8831
Репутация: 2300 ±
Замечаний: 0% ±

Excel 2010
двойной клик левой кнопкой мыши по ячейке F2
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$F$2" Then
        Target = Target.Value + 1
        Sheets("АВК").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            ThisWorkbook.Path & "\" & Range("f2").Value & "_avk.pdf" _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=True
    End If
    Cancel = True
End Sub
[/vba]так пойдет?
К сообщению приложен файл: 7_avk.xlsm (432.1 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 20.04.2023, 13:22
 
Ответить
Сообщениедвойной клик левой кнопкой мыши по ячейке F2
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$F$2" Then
        Target = Target.Value + 1
        Sheets("АВК").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            ThisWorkbook.Path & "\" & Range("f2").Value & "_avk.pdf" _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=True
    End If
    Cancel = True
End Sub
[/vba]так пойдет?

Автор - Nic70y
Дата добавления - 20.04.2023 в 13:21
dogma120801 Дата: Четверг, 20.04.2023, 13:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

LTCS 21
так пойдет?

да, работает, спасибо большое, очень выручили
 
Ответить
Сообщение
так пойдет?

да, работает, спасибо большое, очень выручили

Автор - dogma120801
Дата добавления - 20.04.2023 в 13:33
  • Страница 1 из 1
  • 1
Поиск:

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