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

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

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

Как быстро сделать пдф файл/или вывести на печать (Макросы/Sub)

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

Ответить

Nic70y

Дата: Четверг, 20.04.2023, 13:21 | Сообщение № 2

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

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

Сообщений: 8887

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

Замечаний: 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]так пойдет?