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

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

Я создаю excel таблицу

                    Листинг программы
                
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets.Add

и т. д. Теперь мне нужно сохранить ее не только в 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