On a per channel basis, cover pages may be disabled with the channel option COVER_PAGES. This is done by setting up a second set of FAX channels and specifying COVER_PAGES=0 in the PS_TO_G3 option file for those channels.6 See Section 37.6.1 for details on setting up multiple sets of FAX channels.
A setup file may be used to pre-load PostScript code which, for instance, establishes letter head. Example 37-1 shows PostScript code which produces on the first page of a message a 2 inch vertical banner (e.g., letterhead). The text on that first page is vertically scaled so as to be a bit smaller.
Example 37-1 FAX setup file to produce letterhead on first page
% Part 1: Display graphics/text for the top portion of the first page.
%
save
/BANNER (Innosoft International, Inc.) def
/TOP 10.0 72 mul def
/MARGIN_LEFT 1.0 72 mul def
/MARGIN_RIGHT 7.5 72 mul def
/SIZE1 36 def
/SIZE2 12 def
/POS { dup stringwidth pop MARGIN_RIGHT exch sub
currentpoint exch pop SIZE2 sub moveto show } def
% Compute the required font size to have the banner fill
% the interior space between the page margins.
/Helvetica-Bold findfont SIZE1 scalefont setfont
BANNER stringwidth pop MARGIN_RIGHT MARGIN_LEFT
sub exch div SIZE1 mul /SIZE1 exch def
% Display the banner
/Helvetica-Bold findfont SIZE1 scalefont setfont
MARGIN_LEFT TOP moveto BANNER false charpath stroke
% Display some lines of text
/Helvetica findfont SIZE2 scalefont setfont
MARGIN_RIGHT TOP SIZE2 sub moveto
(250 West First Street, #240) POS
(Claremont, CA 91711 USA) POS
(Telephone: +1 714 624 7907) POS
(FAX: +1 714 621 5319) POS
restore
% Part 2: Rescale remainder of the first page so that first page
% fits in the remaining, bottom portion of the page.
% For printing on normal PostScript devices, the two lines
%
% << 0 .getdevice getdeviceprops >> /PageSize get
% aload pop /@@PMDF_H@@ exch def cleartomark
%
% below can be replaced with
%
% /@@PMDF_H@@ 11 72 mul def
%
<< 0 .getdevice getdeviceprops >> /PageSize get
aload pop /@@PMDF_H@@ exch def cleartomark
/@@PMDF_H@@ @@PMDF_H@@ 2.5 72 mul sub @@PMDF_H@@ div def
1 @@PMDF_H@@ scale
/@@PMDF_FIRST@@ 1 def
/restore {
@@PMDF_FIRST@@ exch restore @@PMDF_FIRST@@ ne {
1 1 @@PMDF_H@@ div scale /@@PMDF_FIRST@@ 0 def} if
} bind def
/showpage {
#copies true .outputpage erasepage initgraphics @@PMDF_FIRST@@
1 eq {1 1 @@PMDF_H@@ div scale /@@PMDF_FIRST@@ 0 def} if
} bind def