Quelques détails en plus

L'utilisation de l'option -paper A4 de pdftops ne change rien. Une conversion du PS avec ps2ps ou pstops permet l'impression en A4. Le plus déroutant est que la différence entre le PS fautif et celui obtenu après conversion par pstops est relativement mineure mais malheureusement imbittable pour moi :

$ diff -u KO.ps OK.ps
--- KO.ps 2007年03月09日 00:27:02.000000000 +0100
+++ OK.ps 2007年03月09日 00:15:08.000000000 +0100
@@ -4,12 +4,43 @@
 %%DocumentSuppliedResources: (atend)
 %%DocumentMedia: plain 595 842 0 () ()
 %%BoundingBox: 0 0 595 842
-%%Pages: 1
+%%Pages: 1 0
 %%EndComments
 %%BeginDefaults
 %%PageMedia: plain
 %%EndDefaults
 %%BeginProlog
+%%BeginProcSet: PStoPS 1 15
+userdict begin
+[/showpage/erasepage/copypage]{dup where{pop dup load
+ type/operatortype eq{ /PStoPSenablepage cvx 1 index load 1 array astore cvx {} bind /ifelse cvx 4 array astore cvx def}{pop}ifelse}{pop}ifelse}forall /PStoPSenablepage true def
+[/letter/legal/executivepage/a4/a4small/b5/com10envelope
+ /monarchenvelope/c5envelope/dlenvelope/lettersmall/note
+ /folio/quarto/a5]{dup where{dup wcheck{exch{}put}
+ {pop{}def}ifelse}{pop}ifelse}forall
+/setpagedevice {pop}bind 1 index where{dup wcheck{3 1 roll put}
+ {pop def}ifelse}{def}ifelse
+/PStoPSmatrix matrix currentmatrix def
+/PStoPSxform matrix def/PStoPSclip{clippath}def
+/defaultmatrix{PStoPSmatrix exch PStoPSxform exch concatmatrix}bind def
+/initmatrix{matrix defaultmatrix setmatrix}bind def
+/initclip[{matrix currentmatrix PStoPSmatrix setmatrix
+ [{currentpoint}stopped{$error/newerror false put{newpath}}
+ {/newpath cvx 3 1 roll/moveto cvx 4 array astore cvx}ifelse]
+ {[/newpath cvx{/moveto cvx}{/lineto cvx}
+ {/curveto cvx}{/closepath cvx}pathforall]cvx exch pop}
+ stopped{$error/errorname get/invalidaccess eq{cleartomark
+ $error/newerror false put cvx exec}{stop}ifelse}if}bind aload pop
+ /initclip dup load dup type dup/operatortype eq{pop exch pop}
+ {dup/arraytype eq exch/packedarraytype eq or
+ {dup xcheck{exch pop aload pop}{pop cvx}ifelse}
+ {pop cvx}ifelse}ifelse
+ {newpath PStoPSclip clip newpath exec setmatrix} bind aload pop]cvx def
+/initgraphics{initmatrix newpath initclip 1 setlinewidth
+ 0 setlinecap 0 setlinejoin []0 setdash 0 setgray
+ 10 setmiterlimit}bind def
+end
+%%EndProcSet
 %%BeginResource: procset xpdf 3.00 0
 /xpdf 75 dict def xpdf begin
 % PDF special state
@@ -981,8 +1012,13 @@
 /lslash/oslash/oe/germandbls/.notdef/.notdef/.notdef/.notdef]
 pdfMakeFont
 595 842 true pdfSetup
+userdict/PStoPSxform PStoPSmatrix matrix currentmatrix
+ matrix invertmatrix matrix concatmatrix
+ matrix invertmatrix put
 %%EndSetup
-%%Page: 1 1
+%%Page: (0) 1
+userdict/PStoPSsaved save put
+PStoPSxform concat
 %%BeginPageSetup
 %%PageOrientation: Portrait
 pdfStartPage
@@ -10545,6 +10581,7 @@
 showpage
 %%PageTrailer
 pdfEndPage
+PStoPSsaved restore
 %%Trailer
 end
 %%DocumentSuppliedResources: