Создание 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д