Board logo

标题: [文件操作] 求助批处理批量转换jpg合并成pdf [打印本页]

作者: lovemejiujiu    时间: 2022-3-4 19:39     标题: 求助批处理批量转换jpg合并成pdf

各位大神:
我有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    时间: 2022-3-5 00:28

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    时间: 2022-8-22 11:35

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




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2