Есть необходимость печати многстраничных документов из из 1с(обработка привязана к печати документа реализация)
код

```1c
    МодиДок=СоздатьОбъект("MODI.Document");
    МодиДок.Create(Путь+Имя);
    Сообщить(МодиДок.images.count);
    Для к=1 По МодиДок.images.count Цикл
    МодиДок.PrintOut(к,к);
    КонецЦикла;
```

сопсно результат БЫ устроил, если б первую страницу не выдавало в размере 5% от исходника
остальные страницы печатаются как положено-вписываются в А4, с первой страницей-просто беда какая-то
Помогите, чем сможете
---
На вот, развлекайся
---
ivanov_alex,
А так ?

МодиДок.PrintOut(к,к,1,,,,0);
---
Ёпрст, тот же результат, один в один
одну из страниц тупо жмет до 5 процентов от исходника
пробовал первую страницу пустую вставить в тифф, он её тупо пропускает и со второй жмет, остальные печатает как нужно
---
Ну вот функция:
```1c
    Функция СохранитьФрейм(ИсхФайл,ФайлРезультата,фрейм_номер)
    //Сохраняет слой из файла tiff по номеру фрейма
    //Возвращает -1 когда закончились фреймы, 1 - успешно сохранен, 0 - какая-то фигня все-таки случилась
    Скрипт = "
    |Function SaveFrameToImage(SourseFile,ResultFile,frm)
    |On Error Resume Next
    |Dim Img 'As ImageFile
    |Dim IP 'As ImageProcess
    |Dim objFSO
    |
    |Set Img = CreateObject("WIA.ImageFile")
    |Set IP = CreateObject("WIA.ImageProcess")
    |Set objFSO = CreateObject("Scripting.FileSystemObject")
    |
    |Img.LoadFile SourseFile
    |
    |If Img.FrameCount<frm Then
    | SaveFrameToImage = -1
    | Exit Function
    |End if
    |
    |Img.activeframe = frm
    |
    |IP.Filters.Add IP.FilterInfos("Convert").FilterID
    |IP.Filters(1).Properties("FormatID").Value = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"
    |
    |Set Img = IP.Apply(Img)
    |
    |If objFSO.FileExists(ResultFile) Then
    | objFSO.DeleteFile ResultFile
    |End If
    |If Err.Number = 0 Then
    | Img.SaveFile ResultFile
    | SaveFrameToImage = 1
    |Else
    | SaveFrameToImage = 0
    |End if
    |End Function
    |";
    ИспСкрипт= СоздатьОбъект("MSScriptControl.ScriptControl");
    ИспСкрипт.Language="vbscript";
    ИспСкрипт.AddCode(Скрипт);
    Рез = ИспСкрипт.Modules("Global").CodeObject.SaveFrameToImage(ИсхФайл,ФайлРезультата,фрейм_номер);
    Возврат рез;
    КонецФункции
```

Теперь, думаю, тему можно закрывать:)
---
А так ?

   //Для к=1 По МодиДок.images.count Цикл
     // МодиДок.PrintOut(к,к);
   // КонецЦикла;

МодиДок.PrintOut();
---
Ёпрст, теперь все страницы в 5% выдал
---
А так ?
МодиДок.PrintOut(,,,,,,0);
---
Ёпрст, первая страница 5% остальные-первые,в количестве 8 штук
без цикла выводит только первую

И на другой принтёр попробуй печнуть..

PrintOut(From, To, Copies, PrinterName, PrintToFileName, PrintAnnotation, FitMode)

в PrinterName можешь имя принтёра запихать
другой принтер-тот же результат, ничего не изменяется
стандартными виндовыми средствами печатает с первого листа и в актуальном размере
---
И на другой принтёр попробуй печнуть..

PrintOut(From, To, Copies, PrinterName, PrintToFileName, PrintAnnotation, FitMode)

в PrinterName можешь имя принтёра запихать
---
Нафига цикл ?

Печатай так, хотя бы тогда

МодиДок.PrintOut(-1,,,,,,0);

либо

МодиДок.PrintOut(1,МодиДок.images.count,,,,,0);
---
Ёпрст, первый вариант только первая страница
сторой варант-4 экземпляра
первый экземпляр в 5 % остальные в нормальном, но МНОГО ))
---
Точнее, так

МодиДок.PrintOut(1,-1,,,,,0);
---
Ёпрст, тоже 4 экземпляра
через shimgvw.dll
синтаксис надо бы
я не силен в виндовых командах
---
Если че, печатай через shimgvw.dll..
---
а так ?

КомандаСистемы("rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_PrintTo /pt "+Путь+Имя);
---
Ёпрст, запускается окно командной строки и все, результата нет
---
просто МОДИ как бэ не везде есть, в 2010 офисе его ужо убрали
---
Ёпрст, 2003 офис
---
а так ?

КомандаСистемы("rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_PrintTo /pt "+Путь+Имя+" "+ИмяПринтёра);
---
Ёпрст, ноль, в очередях заданий на печать ничего не висит
---
На вот, развлекайся
---
А если разобрать tiff на фремы отдельными файлами, а потом печатать каждый файл в цикле?
---
dusha0020, намучался я с ними уже
перепилю обработку ЕПРСТ, там только файл подставить на автомате и все
Спасибо всем, тему закрою
---
Так может написать для потомков как фрейм из tif-а выручить?
---
dusha0020, думаешь, я знаю? напиши если знаешь, будет полезно