🚀 go-pugleaf

Can someone please tell me how to fix this postscript file, When printed it always prints on legal size paper even though I have a PageSize telling it to use Letter.

PS FILE
-------
%!PS-Adobe-3.0
%%Creator: null
%%Pages: (atend)
%%DocumentProcessColors: Black
%%DocumentSuppliedResources: procset FOPFonts
%%EndComments
%%BeginDefaults
%%EndDefaults
%%BeginProlog
%%EndProlog
%%BeginFeature: *PageSize Letter << /PageSize [612 792] >> setpagedevice %%EndFeature%%BeginSetup
%%BeginResource: procset FOPprocs
%%Title: Utility procedures
/FOPprocs 20 dict dup begin
/bd{bind def}bind def
/ld{load def}bd
/M/moveto ld
/RM/rmoveto ld
/t/show ld
/A/ashow ld
/cp/closepath ld
/re {4 2 roll M
1 index 0 rlineto
0 exch rlineto
neg 0 rlineto
cp } bd
/ux 0.0 def
/uy 0.0 def
/F {
  /Tp exch def
  /Tf exch def
  Tf findfont Tp scalefont setfont
  /cf Tf def /cs Tp def /cw ( ) stringwidth pop def
} bd
/ULS {currentpoint /uy exch def /ux exch def} bd
/ULE {
  /Tcx currentpoint pop def
  gsave
  newpath
  cf findfont cs scalefont dup
  /FontMatrix get 0 get /Ts exch def /FontInfo get dup
  /UnderlinePosition get Ts mul /To exch def
  /UnderlineThickness get Ts mul /Tt exch def
  ux uy To add moveto Tcx uy To add lineto
  Tt setlinewidth stroke
  grestore
} bd
/OLE {
  /Tcx currentpoint pop def
  gsave
  newpath
  cf findfont cs scalefont dup
  /FontMatrix get 0 get /Ts exch def /FontInfo get dup
  /UnderlinePosition get Ts mul /To exch def
  /UnderlineThickness get Ts mul /Tt exch def
  ux uy To add cs add moveto Tcx uy To add cs add lineto
  Tt setlinewidth stroke
  grestore
} bd
/SOE {
  /Tcx currentpoint pop def
  gsave
  newpath
  cf findfont cs scalefont dup
  /FontMatrix get 0 get /Ts exch def /FontInfo get dup
  /UnderlinePosition get Ts mul /To exch def
  /UnderlineThickness get Ts mul /Tt exch def
  ux uy To add cs 10 mul 26 idiv add moveto Tcx uy To add cs 10 mul 26 idiv add lineto
  Tt setlinewidth stroke
  grestore
} bd
end def
%%EndResource
%%BeginResource: procset FOPFonts
%%Title: Font setup (shortcuts) for this file
/FOPFonts 100 dict dup begin
/F11 /Courier-Bold def
/F10 /Courier-Oblique def
/F9 /Courier def
/F8 /Times-BoldItalic def
/F7 /Times-Bold def
/F6 /Times-Italic def
/F5 /Times-Roman def
/F4 /Helvetica-BoldOblique def
/F3 /Helvetica-Bold def
/F2 /Helvetica-Oblique def
/F1 /Helvetica def
/F14 /ZapfDingbats def
/F13 /Symbol def
/F12 /Courier-BoldOblique def
end def
%%EndResource
/Courier-Bold findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
  currentdict
end
/Courier-Bold exch definefont pop
/Courier-Oblique findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
  currentdict
end
/Courier-Oblique exch definefont pop
/Courier findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
  currentdict
end
/Courier exch definefont pop
/Times-BoldItalic findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
  currentdict
end
/Times-BoldItalic exch definefont pop
/Times-Bold findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
  currentdict
end
/Times-Bold exch definefont pop
/Times-Italic findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
  currentdict
end
/Times-Italic exch definefont pop
/Times-Roman findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
  currentdict
end
/Times-Roman exch definefont pop
/Helvetica-BoldOblique findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
  currentdict
end
/H