让 Ghostscript 以不同于横向页面的方式处理纵向页面？

Question

我是 Ghostscript 的新手。我正在尝试为 PDF 中的页面添加额外的边距。我的命令行适用于纵向模式的页面，但会弄乱横向模式的页面。我想为纵向页面添加 30 点宽度和 42 点边距（以保持相同的纵横比），因此将 A4 页面大小增加一倍。对于横向，我颠倒了数字。

当更改命令使其适用于横向页面时，它现在会弄乱纵向页面。

有没有一种方法可以有条件地更改页面，使其适用于纵向和横向页面？

我的命令是（对于 Windows）

• 适用于纵向模式：

gswin64 -o c:\temp\outport.pdf -sDEVICE=pdfwrite -g6550x9270 -c "<</Install {30 42 translate}>> setpagedevice" -f "mysource.pdf"

• 适用于横向页面

gswin64 -o c:\temp\outland.pdf -sDEVICE=pdfwrite -g9270x6550 -c "<</Install {42 30 translate}>> setpagedevice" -f "mysource.pdf"

我这样做是因为最初 PDF 需要在文本周围留出 2 厘米的边距。但现在我需要（大约）3 厘米的边距。这样，当我打印它时，它将以 A4 打印，边距为厘米，并且纵横比正确。

Answer 1

我不情愿地将其发布为答案，因为它太大而无法发表评论。

使用此内容创建一个文本文件，将其命名为“intelligent_resize.ps”之类的令人难忘的名称：

%!
userdict begin
/ResetPageSize true def
end

<<
  /BeginPage
  {
    userdict /ResetPageSize known not
    {
      (Error: ResetPageSize undefined!\n) print flush
      //true
    }
    {
      userdict /ResetPageSize get
    } ifelse

    {
      userdict /ResetPageSize //false put
      currentpagedevice /PageSize get aload pop
      2 copy gt
      {
        60 add exch 84 add exch
        2 array astore /PageSize exch
        1 dict dup 4 2 roll put
        setpagedevice
        42 30 translate
      }
      {
        84 add exch 60 add exch
        2 array astore /PageSize exch
        1 dict dup 4 2 roll put
        setpagedevice
        30 42 translate
      } ifelse
    }
    {
      userdict /ResetPageSize //true put
    } ifelse
  }
>> setpagedevice

然后使用这个命令行（或类似的东西）：

gswin64 -o c:\temp\outport.pdf -sDEVICE=pdfwrite intelligent_resize.ps "mysource.pdf"

这会安装一个 BeginPage 例程，该例程在每个页面的开头运行，但在 userdict 中有一个控件来确定例程的作用。

如果控件为 true，则将其设置为 false（防止 setpagedevice 中的递归）检查媒体是纵向还是横向，根据方向在宽度和高度上添加 60、84 或 84,60 点，并将内容翻译 30,42 或 42,30。

如果控件为假，则将其设置为真。

所以我们在第一页开始时被调用，控件为真，所以我们重置控件，计算新的媒体大小，并调用 setpagedevice 来设置新的大小。这意味着我们再次调用 BeginPage。这次控件为 false，因此我们将控件设置回 true 并返回到我们原来的 BeginPage 例程，然后转换新创建页面的 CTM。

然后页面的内容被执行。我们继续前进到下一页，然后我们又开始了。因此，这“应该”适用于包含多种方向的 PDF 文件。目前的代码只是将所有页面扩展所需的数量并重新居中内容，它不会尝试将内容适应不同大小的页面或任何复杂的内容。

我今天没有时间来评论这个程序，抱歉，如果需要，它应该不难解决和修改。它也没有那么小，可能有重复的代码可以被分解，但我今天也没有时间。

我在 Letter 纵向文件和 Letter 横向文件上进行了尝试，它似乎可以满足您的要求。