Thread View: adobe.postscript.programming
6 messages
6 total messages
Started by Ben Sifuentes
Tue, 17 Dec 2002 07:45
Postscript help with PageSize
Author: Ben Sifuentes
Date: Tue, 17 Dec 2002 07:45
Date: Tue, 17 Dec 2002 07:45
152 lines
4773 bytes
4773 bytes
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
Re: Postscript help with PageSize
Author: Aandi Inston
Date: Tue, 17 Dec 2002 09:05
Date: Tue, 17 Dec 2002 09:05
9 lines
1104 bytes
1104 bytes
These forums aren't for large files or attachments. Your post was cut off. I suggest you either put the whole file on the web or an FTP site; or edit it down to the relevant lines. Bear in mind that device control is device specific. You should generally refer to the PPD file for the printer to get the control sequences. Aandi Inston
Re: Postscript help with PageSize
Author: Aandi Inston
Date: Tue, 17 Dec 2002 09:06
Date: Tue, 17 Dec 2002 09:06
8 lines
1034 bytes
1034 bytes
By the way if this is the critical line: %%BeginFeature: *PageSize Letter << /PageSize [612 792] >> setpagedevice %%EndFeature%%BeginSetup then it is all a coment and will be ignored. Aandi Inston
Re: Postscript help with PageSize
Author: Ben Sifuentes
Date: Tue, 17 Dec 2002 14:35
Date: Tue, 17 Dec 2002 14:35
5 lines
991 bytes
991 bytes
What do you mean by "It is all a comment and will be ignored" ? If this is not the right entry what is? Ben
Re: Postscript help with PageSize
Author: Aandi Inston
Date: Tue, 17 Dec 2002 17:29
Date: Tue, 17 Dec 2002 17:29
8 lines
1170 bytes
1170 bytes
Is it just one line, as shown? A comment begins with a % sign and runs to the end of the line. So it can have no influence on how things are printed. The one line appears to have been made by joining three lines. If it was still three lines, it would probably work. Aandi Inston
Re: Postscript help with PageSize
Author: Scott A.
Date: Fri, 17 Jan 2003 05:01
Date: Fri, 17 Jan 2003 05:01
6 lines
1015 bytes
1015 bytes
Put this after %!PS for a PostScript programm. If its an .eps file do the same save it as a .ps file distill it, then save back to a .eps from Acrobat. 2 dict dup /PageSize [612 792] put dup /ImagingBBox null put setpagedevice
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads