|
0
bvb
23.05.13
✎
14:39
|
Нужно распечатать готовый файл .pdf как приложение к печатной
Загоняю его в макет как двоичные данные
и пытаюсь печатать как картинку :
Рис = ТабДокумент.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Индекс = ТабДокумент.Рисунки.Индекс(Рис);
абДокумент.Рисунки[Индекс].Картинка = Новый Картинка(ПолучитьМакет("Письмо"));
ТабДокумент.Рисунки[Индекс].РазмерКартинки = РазмерКартинки.Растянуть;
СтрОбласть = "R"+СтрЗаменить((Индекс * _1С_ВысотаСтраницы + 1),""+Символ(160),"")+"C1:R"+СтрЗаменить((Индекс+1)
* _1С_ВысотаСтраницы,""+Символ(160),"")+"C"+Строка(_1С_ШиринаСтраницы);
ТабДокумент.Рисунки[Индекс].Расположить(ТабДокумент.Область(СтрОбласть));
Вылазит андреевский крест. Как я понимаю объект "картинка" .pdf не понимает.
Как быть ?
|
|
|
2
Ковычки
23.05.13
✎
14:42
|
@echo off
setlocal ENABLEDELAYEDEXPANSION
set gs=C:\Program Files\gs\gs9.06\bin\gswin32c.exe
set count=0
set p=0
set ok=0
set rez=300
set quality=100
set format=jpeg
:::set rez=200
:::set quality=50
:::set format=jpeggray
echo "%~s1"
rem pause
if exist "%~s1" (
title Подождите идет подготовка...
echo Подождите идет подготовка...
mkdir "%~dpn1" > nul 2>&1
for /f "delims=" %%x in ('cmd /c ""%gs%" -dBATCH -dNOPAUSE -dNoCancel -sDEVICE=jpeg -sOutputFile="nul" -r5 "%~s1"" ^| find "Page"') do (
set count=%%~x
)
cls
set /a count=!count:* =!
for /l %%x in (1,1,!count!) do (
set n=0000%%~x
set n=!n:~-3!
"%gs%" -q -dBATCH -dNOPAUSE -dNoCancel -dJPEGQ=%quality% -sDEVICE=%format% -dFirstPage=%%~x -dLastPage=%%~x -sOutputFile="%~dpn1\%~n1 (Лист !n!).jpg" -r%rez% "%~s1" && set ok=1
<nul set /p xxx=.
set t=!t!.
set /a p="(100 * %%~x) / !count!"
title !p!%% !t!
)
)
if %ok%==1 explorer "%~dpn1"
|
|
