Страница 1 из 1
InsFoto на 2..n страницу
Добавлено: 05 июн 2014, 17:27
Masygreen
в общем вывожу картинки в документ rtf, в документе допустим 2 страницы..
на первую страницу выводится
Код: Выделить всё
InsFoto(GetStringParameter('Files', 'OutputFilesDirectory', 0), _newfilename, 4,0, 0);
на вотрую уже нет, выводится поверх первой картинки.. по идее 40 выходит за страницу (ну собственно я там произвольные числа пытался вставлять ...)
Код: Выделить всё
InsFoto(GetStringParameter('Files', 'OutputFilesDirectory', 0), _newfilename, 4,40, 0);
InsFoto - только на одну страницу, первую, может выводить ? или я что-то не то делаю???
ЗЫ. FR не предлагать .. решаем задачу в текущих ограничениях...))
Re: InsFoto на 2..n страницу
Добавлено: 05 июн 2014, 17:52
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 );
Re: InsFoto на 2..n страницу
Добавлено: 05 июн 2014, 20:55
LaaLaa
Masygreen писал(а):ЗЫ. FR не предлагать
Re: InsFoto на 2..n страницу
Добавлено: 06 июн 2014, 10:33
Masygreen
m0p3e писал(а):Я через vbs вывожу. Через InsFoto не получилось как хотелось. А что хотелось уже не помню.
Это RTF ??? .. я так для уточнения ... прямо из LinkForm в секции begin/end//? или из прототипа ??
Re: InsFoto на 2..n страницу
Добавлено: 06 июн 2014, 10:33
Masygreen
LaaLaa писал(а):Masygreen писал(а):ЗЫ. FR не предлагать
я знал, я знал!!!
Re: InsFoto на 2..n страницу
Добавлено: 06 июн 2014, 10:48
Den
Masygreen писал(а):m0p3e писал(а):Я через vbs вывожу. Через InsFoto не получилось как хотелось. А что хотелось уже не помню.
Это RTF ??? .. я так для уточнения ... прямо из LinkForm в секции begin/end//? или из прототипа ??
Ага..это не xls . Поэтому в примере m0p3e,видимо, формируем внешний vb-скрипт и запускаем его ExecProgram
в Link-форме прямо можно вполне
Re: InsFoto на 2..n страницу
Добавлено: 06 июн 2014, 13:17
m0p3e
Den писал(а):Masygreen писал(а):m0p3e писал(а):Я через vbs вывожу. Через InsFoto не получилось как хотелось. А что хотелось уже не помню.
Это RTF ??? .. я так для уточнения ... прямо из LinkForm в секции begin/end//? или из прототипа ??
Ага..это не xls . Поэтому в примере m0p3e,видимо, формируем внешний vb-скрипт и запускаем его ExecProgram
в Link-форме прямо можно вполне
Думаю в линкформе тоже пойдет.
У меня в виде функции vip реализовано. И запускается скрипт после .showfile.
Re: InsFoto на 2..n страницу
Добавлено: 06 июн 2014, 13:29
Masygreen
ну если заработает .. оохохоооо .))) реверансы и все такое ..
Re: InsFoto на 2..n страницу
Добавлено: 06 июн 2014, 14:47
LaaLaa
Боюсь спросить. Зачем такие жертвы?
Re: InsFoto на 2..n страницу
Добавлено: 06 июн 2014, 16:19
Masygreen
LaaLaa писал(а):Боюсь спросить. Зачем такие жертвы?
)) FR не предлагать !!! .. ну надо ..ну форматировать документ на много проще в RTF .. тем более что их уже целая куча готовых ..
Re: InsFoto на 2..n страницу
Добавлено: 06 июн 2014, 16:20
Masygreen
m0p3e писал(а):У меня в виде функции vip реализовано. И запускается скрипт после .showfile.
картинку вставляет но так-же на 1 страницу .. но главное вставляет .. постараюсь найти переход на следующую страницу ..
Re: InsFoto на 2..n страницу
Добавлено: 06 июн 2014, 17:55
edward_K
в FR вроде импорт был. Форматировать ну скажем так - непривычно после RTF. Зато появляется возможность крестиком вышивать. А если еще юзать вложенные отчеты то и вообще хорошо. Чтоб было как "там" есть объект RichText - чем он вас не устраивает? А скрипт видимо нужно зациклить.