У меня есть код для циклического перемещения по списку, печати каждого выбора из пользовательской формы в определенную ячейку и распечатки полученной электронной таблицы. Теперь я хочу, чтобы код распечатал электронную таблицу в формате PDF вместо печатной копии и сохранил ее на рабочем столе. Если бы все созданные PDF-файлы могли быть в одном PDF-файле, это было бы еще лучше
Я работаю в Sports Coaching и использую этот код для распечатки нескольких тренировочных программ одновременно. Я хочу, чтобы электронная копия каждой программы сохранялась в объединенном файле, если это возможно, для записи. Я попытался вставить PDF-код вместо распечатанного кода в сценарий, но он не работал.
Private Sub BTN_print_Click()
Dim vOrigVal As Variant
Dim ws As Worksheet
Dim i As Long
Set ws = ThisWorkbook.Worksheets("Gym Weekly Template") 'sheet to print name to
vOrigVal = ws.Range("C8").Value 'original identified cell value
With Me.ListBox2
For i = 0 To .ListCount - 1
ws.Range("C8").Value = .List(i) 'cell to print names to
ws.PrintOut
Next i 'loop until all names are printed
End With
ws.Range("C8").Value = vOrigVal 'returns cell to original value
Я ожидал, что все, что мне нужно сделать, это изменить "ws.PrintOut" на код PDF, но это не сработало. Если бы кто-нибудь мог помочь с этим, это было бы здорово.