Imprimer un fichier PDF avec Perl

J'ai un script qui crée un PDF et l'envoie au serveur d'impression distant exécutant CUPS.

En utilisant Net::Printer, je configure l’imprimante:

my $print_server        = "remote_print.server";
my $printer             = "lp1234";

my $lineprinter = new Net::Printer( 
                          filename    => $pdf,
                          printer     => $printer,
                          server      => $print_server,   
                          port        => 515
);

[...]

# Print and get printer stauts.
$result = $lineprinter->printfile();

L'imprimante distante est une imprimante d'étiquettes, Zebra ZT420 , configurée avec Zebra PPD .

Le problème est que l’étiquette imprimée est forcée quelque part sur le chemin de l’orientation verticale au lieu de l’orientation horizontale, quelle que soit la configuration du fichier PDF (qu’elle soit forcée à la verticale ou à l’horizontale).

Lorsque vous imprimez manuellement, par exemple en utilisant Document Viewer sous GNOME ou la boîte de dialogue système Imprimer, la sortie est correctement imprimée.

Pourquoi ça se passe avec mon code?

Qu'est-ce qui m'a manqué ou mal configuré?

Existe-t-il un moyen de forcer l’orientation lors de l’envoi à une imprimante?

À moins que le paramètre ne puisse être modifié ailleurs, je pourrais essayer de modifier la ligne 28 du fichier PPD Zebra de *LandscapeOrientation: Plus90à *LandscapeOrientation: Plus0.