求助批处理批量转换jpg合并成pdf

lovemejiujiu

各位大神：
我有5000多个文件夹，每个文件夹里面有2－3张图片，想写一个批处理，将每个文件夹内的jpg转换合并成1个pdf，请问这个能实现吗？
如：
a文件夹里面有1.jpg 2.jpg 3.jpg，想合并成A.pdf
b文件夹里面有4.jpg 5.jpg 6.jpg，想合并成B.pdf
c文件夹里面有7.jpg 8.jpg 9.jpg，想合并成C.pdf

went

ansi编码,保存test.bat
用来打印图片资料非常方便

1. #&cls&@ cd /d "%~dp0" & powershell -c "Get-Content '%~0' | Out-String | Invoke-Expression" &pause&exit
   
2. cls
   
3. [void][System.Reflection.Assembly]::LoadWithPartialName('System.Drawing')
   
4. #函数 打印整个文件夹图片
   
5. function Print-ImgList($img_dir,$filter){
   
6.     #读取图片
   
7.     $img_list = New-Object 'System.Collections.ArrayList'
   
8.     Get-ChildItem -Path $img_dir -Filter $filter | foreach { [void]$img_list.Add([System.Drawing.Image]::FromFile($_.FullName)) }
   
9.     #创建打印机
   
10.     $pd = New-Object 'System.Drawing.Printing.PrintDocument'
    
11.     #打印机设置
    
12.     $ps = New-Object 'System.Drawing.Printing.PrinterSettings'
    
13.     $ps.PrinterName = 'Microsoft Print to PDF'
    
14.     $ps.PrintToFile = $true
    
15.         $out_pdf = '{0}\{1}.pdf' -f $img_dir,[System.IO.Path]::GetFileName($img_dir).ToUpper()
    
16.     $ps.PrintFileName = $out_pdf
    
17.     $pd.PrinterSettings = $ps
    
18.     #打印方向 true横向 false纵向
    
19.     $pd.DefaultPageSettings.Landscape = $true
    
20.     #设置打印事件
    
21.     $pd.add_PrintPage({
    
22.         #打印首张图片
    
23.         $_.Graphics.DrawImage($img_list[0],$_.MarginBounds)
    
24.         $img_list[0].Dispose()
    
25.         $img_list.RemoveAt(0)
    
26.         if($img_list.Count -gt 0){ $_.HasMorePages = $true } else { $_.HasMorePages = $false }
    
27.     })
    
28.     $pd.add_EndPrint({
    
29.                 Write-Host $out_pdf
    
30.                 $pd.Dispose()
    
31.                 Write-Host '--------------------'
    
32.         })
    
33.     #开始打印
    
34.     $pd.Print()
    
35. }
    
36. #遍历打印
    
37. Get-ChildItem | Where-Object { [System.IO.Directory]::Exists($_.FullName)} | foreach {
    
38.     Write-Host $_.FullName
    
39.     Print-ImgList -img_dir $_.FullName -filter '*.jpg'
    
40. }

复制代码

xiawj

回复 2# went 可以让3张图片指定打印在一张A4纸吗？