Je cherche à improviser une solution rapide et sale pour l'impression recto verso manuelle avec Automator. Elle échoue toujours à l'étape "Extraire les pages impaires et paires" peu importe le PDF que je lui donne.
Le script Automator est le suivant :
Journal :
** Journal du flux de travail Automator : /Users/lilywhite/Library/PDF Services/Manual Duplex.workflow **
2022-12-19 12:15:50 +0000 : Objet Finder spécifié récupéré
2022-12-19 12:15:50 +0000 : Conversion de Fichiers/Dossiers en fichiers PDF terminée
2022-12-19 12:15:50 +0000 : Échec de l'extraction des pages impaires et paires - 1 erreur
2022-12-19 12:15:50 +0000 : L'outil en ligne de commande a renvoyé l'erreur 127. : 127
À noter : J'ai écrit un script Perl simple pour réaliser une impression recto verso manuelle. Bien que cela n'ait aucun rapport avec la question, je le mets ici au cas où cela pourrait aider quelqu'un :
#!/usr/bin/env perl
use v5.36;
use PDF::API2;
foreach my $file (@ARGV) {
say "Traitement de $file :";
my $source_pdf = PDF::API2->open($file);
my $odd_pdf = PDF::API2->new();
my $even_pdf = PDF::API2->new();
$source_pdf->page() if ($source_pdf->page_count() % 2 == 1);
my $n = $source_pdf->page_count();
for (my $i = 1, my $j = ($n % 2 == 0 ? $n : $n - 1); $i <= $n && $j >= 0; $i += 2, $j -= 2) {
$even_pdf->import_page($source_pdf, $j, $even_pdf->page_count() + 1);
$odd_pdf->import_page($source_pdf, $i, $odd_pdf->page_count() + 1);
}
$even_pdf->save("${file}_even.pdf");
$odd_pdf->save("${file}_odd.pdf");
say "Terminé.";
say "Commence l'impression des pages impaires";
system "lp '${file}_odd.pdf'" and die "Échec de l'impression"; # les shells retournent 0 en cas de réussite
print "Fait, continuer avec l'impression des pages paires ? (o/N) ";
chomp(my $answer = );
die "Abandon" unless (lc($answer) eq 'o');
say "Commence l'impression des pages paires";
system "lp '${file}_even.pdf'" and die "Échec de l'impression";
say "Fini !";
}