Сканирование в PDF и на прямую в принтер

Dim oDevScan, oCanon, oScanInf, oFileScan, oFormating
Set oDevScan = WScript.CreateObject("WIA.DeviceManager")
For Each oScanInf In oDevScan.DeviceInfos 'перебираем подключенные сканеры...
    If oScanInf.DeviceID = "{6BDD1FC6-810F-11D0-BEC7-08002BE2092F}\0000" Then
       Set oCanon = ScanInf.Connect
       Exit For
    End If
Next
With oCanon
     With .Items(1)
          With .Properties  ' Задаем параметры сканирования
               .Item("6146").Value = ' Цветовая схема
               .Item("6147").Value = ' Разрешение по горизонтали
                       и так далее...
          End With
          Set oFileScan = .Transfer() ' сканированируем
          Set oFormating = WScript.CreateObject("WIA.ImageProcess") ' Конвертируем ...
          With oFormating
               With .Filters
                    .Add oFormating.FilterInfos("Convert").FilterID
                     With .Item(1).Properties
                          .Item("FormatID").Value = ...' Формат
                          .Item("Quality").Value  = ... ' Качество
                     End With
               End With
               Set oFileScan = .Apply(oFileScan)
          End With
 
     End With
End Wit
oFileScan.SaveFile имя файла    'Cохраняем...