InsFoto на 2..n страницу

[Masygreen]

в общем вывожу картинки в документ rtf, в документе допустим 2 страницы..
на первую страницу выводится

Код: Выделить всё

InsFoto(GetStringParameter('Files', 'OutputFilesDirectory', 0), _newfilename, 4,0, 0);

на вотрую уже нет, выводится поверх первой картинки.. по идее 40 выходит за страницу (ну собственно я там произвольные числа пытался вставлять ...)

Код: Выделить всё

InsFoto(GetStringParameter('Files', 'OutputFilesDirectory', 0), _newfilename, 4,40, 0);

InsFoto - только на одну страницу, первую, может выводить ? или я что-то не то делаю???

ЗЫ. FR не предлагать .. решаем задачу в текущих ограничениях...))

[m0p3e]

Я через vbs вывожу. Через InsFoto не получилось как хотелось. А что хотелось уже не помню.

Код: Выделить всё

   LogStrToFile ( FileName + '.vbs', 'On Error Resume Next' );
   LogStrToFile ( FileName + '.vbs', 'Set RunCount = 0' );
   LogStrToFile ( FileName + '.vbs', 'Set oWord=nothing' );
   LogStrToFile ( FileName + '.vbs', 'Do' );
   LogStrToFile ( FileName + '.vbs', ' WScript.sleep 1000' );
   LogStrToFile ( FileName + '.vbs', ' Set oWord=GetObject(,"Word.Application")' );
   LogStrToFile ( FileName + '.vbs', ' RunCount = RunCount + 1' );
   LogStrToFile ( FileName + '.vbs', ' If RunCount > 10 then exit do' );
   LogStrToFile ( FileName + '.vbs', 'loop While ( oWord Is Nothing )' );
   LogStrToFile ( FileName + '.vbs', 'If not (oWord Is Nothing) then' );
   LogStrToFile ( FileName + '.vbs', ' oWord.Application.ScreenUpdating=false' );
   LogStrToFile ( FileName + '.vbs', ' Set oDoc=oWord.documents.Open("' + ClientFileName + '.rtf")' );
   LogStrToFile ( FileName + '.vbs', ' If not (oDoc Is Nothing) then' );
   LogStrToFile ( FileName + '.vbs', '  oDoc.Shapes.AddPicture("' + ClientFileName + '.bmp")' );
   LogStrToFile ( FileName + '.vbs', '  oDoc.Shapes.Item(oDoc.Shapes.count).select' );
   LogStrToFile ( FileName + '.vbs', '  oWord.Selection.ShapeRange.Height = ' + string ( h, 0, 2 ) + '*(28.36)' );
   LogStrToFile ( FileName + '.vbs', '  oWord.Selection.ShapeRange.Top = ' + string ( t, 0, 2 ) + '*(28.36)' );
   LogStrToFile ( FileName + '.vbs', '  oWord.Selection.ShapeRange.left = ' + string ( l, 0, 2 ) + '*(28.36)' );
   LogStrToFile ( FileName + '.vbs', '  oWord.Selection.ShapeRange.WrapFormat.Type=3' );
   LogStrToFile ( FileName + '.vbs', '  oWord.Selection.Collapse' );
   LogStrToFile ( FileName + '.vbs', '  Set oDoc=nothing' );
   LogStrToFile ( FileName + '.vbs', ' End If' );
   LogStrToFile ( FileName + '.vbs', ' oWord.Application.ScreenUpdating=true' );
   LogStrToFile ( FileName + '.vbs', 'Set oWord=nothing' );
   LogStrToFile ( FileName + '.vbs', 'End If' );
.............
    ExecProgram ( 'start', FileName, 'Вывод фотографии', 0, 0 );
    DeleteFile ( FileName );

[LaaLaa]

ЗЫ. FR не предлагать

[Masygreen]

Я через vbs вывожу. Через InsFoto не получилось как хотелось. А что хотелось уже не помню.

Это RTF ??? .. я так для уточнения ... прямо из LinkForm в секции begin/end//? или из прототипа ??

[Masygreen]

ЗЫ. FR не предлагать

я знал, я знал!!!

[Den]

Я через vbs вывожу. Через InsFoto не получилось как хотелось. А что хотелось уже не помню.

Это RTF ??? .. я так для уточнения ... прямо из LinkForm в секции begin/end//? или из прототипа ??

Ага..это не xls . Поэтому в примере m0p3e,видимо, формируем внешний vb-скрипт и запускаем его ExecProgram
в Link-форме прямо можно вполне

[m0p3e]

Я через vbs вывожу. Через InsFoto не получилось как хотелось. А что хотелось уже не помню.

Это RTF ??? .. я так для уточнения ... прямо из LinkForm в секции begin/end//? или из прототипа ??

Ага..это не xls . Поэтому в примере m0p3e,видимо, формируем внешний vb-скрипт и запускаем его ExecProgram
в Link-форме прямо можно вполне

Думаю в линкформе тоже пойдет.
У меня в виде функции vip реализовано. И запускается скрипт после .showfile.

[Masygreen]

ну если заработает .. оохохоооо .))) реверансы и все такое ..

[LaaLaa]

Боюсь спросить. Зачем такие жертвы?

[Masygreen]

Боюсь спросить. Зачем такие жертвы?

)) FR не предлагать !!! .. ну надо ..ну форматировать документ на много проще в RTF .. тем более что их уже целая куча готовых ..

[Masygreen]

У меня в виде функции vip реализовано. И запускается скрипт после .showfile.

картинку вставляет но так-же на 1 страницу .. но главное вставляет .. постараюсь найти переход на следующую страницу ..

[edward_K]

в FR вроде импорт был. Форматировать ну скажем так - непривычно после RTF. Зато появляется возможность крестиком вышивать. А если еще юзать вложенные отчеты то и вообще хорошо. Чтоб было как "там" есть объект RichText - чем он вас не устраивает? А скрипт видимо нужно зациклить.