使用 Perl 列印 PDF

我有一個創建 PDF 並將其發送到執行 CUPS 的遠端列印伺服器的腳本。

使用Net::Printer，我設置了列印機：

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();

遠端列印機是標籤列印機Zebra ZT420，配置了Zebra PPD。

現在，問題在於，無論我如何設置 PDF 文件（無論是強制它是垂直還是水平），列印的標籤都會以某種方式在途中某處被強制為垂直方向，而不是水平方向。

手動列印時，例如使用 GNOME 上的 Document Viewer 或系統列印對話框，可以正確列印輸出。

為什麼我的程式碼會發生這種情況？

我錯過了什麼或配置錯誤？

將其發送到列印機時有沒有辦法強制定向？

除非可以在其他地方更改設置，否則我可能會嘗試將 Zebra PPD 文件的第 28 行從*LandscapeOrientation: Plus90更改為*LandscapeOrientation: Plus0.

引用自：https://unix.stackexchange.com/questions/537597