Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Код: Выделить всё
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\Image2PDF\Image2PDF.exe
-ImageList %L -Output %TFileName.pdf -FitImageToPageSize -PageSize "A5+Portrait" -OpenPDF
imageres.dll,159
Создать PDF-файл и поместить в него изображения выделенных файловКод: Выделить всё
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\Image2PDF\img2pdf.exe
-p 1 -b -1 -r 40 -o %TFileName.pdf %P%S
imageres.dll,159
Создать PDF-файл и поместить в него изображения выделенных файловКод: Выделить всё
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\Image2PDF\img2pdf.exe
-c -sp 612 792 -f -d 300 -fi 3 %P%S %TFileName.pdf
Utils\Image2PDF\img2pdf.exe
Создать PDF-файл и поместить в него изображения выделенных файлов
1IrfanView умеет, но не много страничные, по справке: делайте в многостраничный TIFF с последующей конвертацией в многостраничный PDF.
Сейчас разбираюсь с http://www.compulsivecode.com/jpegtopdf.html, вроде получается, но есть вопросы по именованию файла.
Выложить в общий пост не могу - новичков не пускают - если у Вас есть возможность - выложите ссылку.
Таких пофайловых конвертаторов полно. Что, собственно, и было названо хламом для сей задачи.Моторокер писал(а):Irfan точно умеет в отдельные файлы конвертировать, наверняка в справке можно найти и мульти PDF вариант. Возможно, другие смотрелки тоже поддерживают такую конвертацию.
В общем-то, был ещё вариант делать одностраничные pdf, а потом их склеивать (с помощью Pdftk, например), но он мне что-то не очень понравился.berya писал(а):IrfanView умеет, но не много страничные, по справке: делайте в многостраничный TIFF с последующей конвертацией в многостраничный PDF.
Скриптом. А если в одной папке несколько файлов? Я так понимаю, речь о родительской?berya писал(а):Как можно присваивать имя фала по имени папки?
Код: Выделить всё
'====================================================================================
' Сконвертировать выделенные графические файлы в один PDF с именем активного каталога
' Важно: если выбран только один файл, то конвертироваться будут все файлы
' c поддерживаемыми расширениями, расположенные в корне активного каталога
' Параметры: "<путь к редактору>" "<путь источника>" "<путь получателя>" %L
' Пример: "%%COMMANDER_PATH%%\Utils\JPEGtoPDF.exe" "%P" "%T" %L
'====================================================================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
Edit = .Item(0)
Path = .Item(1)
Targ = .Item(2)
List = .Item(3)
End With
If Right(Targ, 1) <> "\" Then Targ = Targ & "\"
Set D = CreateObject("Scripting.Dictionary")
For Each Ext in Split("BMP,GIF,JPG,JPEG,JP2,J2K,PNG,TIF,WMF,EMF", ",")
D.Add Ext, ""
Next
With CreateObject("Scripting.FilesystemObject")
Name = .GetFileName(Path)
N = Name
Const M = 1
Do While .FileExists(Targ & Name & ".pdf")
l = l + 1
If l < 10^M Then PostFix = Right(String(M, "0") & l, M) Else PostFix = l
Name = N & " (" & PostFix & ")"
Loop
Temp = Split(.OpenTextFile(List).ReadAll, vbNewLine)
If UBound(Temp) = 1 Then
For Each F in .GetFolder(Path).Files
If D.Exists(Ucase(.GetExtensionName(F))) Then Pars = Pars & " """ & F & """"
Next
Else
For Each F in Temp
If F > vbNullString Then
If D.Exists(Ucase(.GetExtensionName(F))) Then Pars = Pars & " """ & F & """"
End If
Next
End If
CreateObject("WScript.Shell").Exec Edit & " """ & Targ & Name & ".pdf""" & Pars
End With
Set D = Nothing
WScript.QuitНе знал. Убрал ограничение. А *.* - означает, что будут браться все файлы в папке бзе исключений. Оно надо?berya писал(а):И можно ли расширение JPG заменить на "все файлы" (*.*) - программа дружит и с TIFF и некоторыми другими графическими форматами?
Код: Выделить всё
TOTALCMD#BAR#DATA
"D:\Program Files\Total Commander\vbs\pdf.vbs"
"%%COMMANDER_PATH%%\Utils\JPEGtoPDF\JPEGtoPDF.exe" "%T" %P%S
C:\WINDOWS\System32\WScript.exe
pdf
-1