Imprimer un fichier PDF avec Perl

4

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?

Bart
la source
Au lieu de cela pourriez-vous demander aux tasses d'envoyer le travail pour vous? par exemple, des gobelets en perl .
Meuh

Réponses:

1

À 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.

David Yockey
la source
Cela pourrait avoir un sens, mais nécessiterait de bricoler la configuration du serveur d’impression, ce qui est difficile à faire (méthode ancienne de configuration des imprimantes). Je peux essayer de le forcer sur cette imprimante et voir comment il réagirait. Merci!
Bart