Создание PDF файла из-под VB

Узнай цену своей работы

Формулировка задачи:

Я создаю excel таблицу
и т. д. Теперь мне нужно сохранить ее не только в xls формате, но и в PDF. из самого excel я могу сделать печать в PDF файл, но в VB у меня не получается. Возможно ли это?

Решение задачи: «Создание PDF файла из-под VB»

textual
Листинг программы
Sub PDF()
 
Dim p As String
Dim pt As String
Dim f As String
Dim acr As New ACRODISTXLib.PdfDistiller
Dim n As Integer
 
n = 0
acr.bShowWindow = False
 
f = '53*.xls'
p = 'S:SharedMKTSVCMDW Reports2003 '
pt = 'S:SharedMKTSVCMDW Reports2003PDF '
f = Dir(p & f, vbNormal)
Do While f <> ''
    Workbooks.Open Filename:=p & f
    Application.ActivePrinter = 'Acrobat Distiller on Ne01:'
    'create ps file
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrintToFile:=True, Collate _
            :=True, PrToFileName:=pt & Left(f, Len(f) - 4) & '.ps'
    ActiveWorkbook.Close False
    'create pdf
    acr.FileToPDF pt & Left(f, Len(f) - 4) & '.ps', pt & Left(f, Len(f) - 4) & '.pdf', ''
    'remove ps file
    Kill pt & Left(f, Len(f) - 4) & '.ps'
    
    n = n + 1
    Debug.Print CStr(n) & ': ' & f
    f = Dir
Loop
Set acr = Nothing
MsgBox 'Job Completed'
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы