Re: Envelope Printing

[Greg A. Woods]

[ On , December 28, 2000 at 02:22:48 (-0500), Steven R. Baker wrote: ]
> Subject: Envelope Printing
>
> I'm also having problems printing envelopes.
> 
> I have envelopes here that are legal size...  10.5cm tall and 24cm
> wide.  I want to print on them my address in the top left, and my
> receiver's address in the center.  How do I do this?

The attached works, more or less, with my Apple LW 16/600PS and 4"x9.5"
standard business letter envelopes....  Replace the definition of
@ReturnAddress with your own concoction (or borrow mine!), adjust
@PageHeight and @PageWidth for your legal size envelop and you should be
off to the races with typeset envelopes!

The "right" margin of this document would be where the stamp goes, so if
you want to print something there, it's not hard to do....

I used the @PageBackground with the boundary marks when printing on
ordinary letter paper to get things approximated, but with legal
envelopes you'd probably need 11x17 paper to do that....

-- 
                                                        Greg A. Woods

+1 416 218-0098      VE3TCP      <address@hidden>      <robohack!woods>
Planix, Inc. <address@hidden>; Secrets of the Weird <address@hidden>


#! lout
#
#       Business Envelope with return address
#
#ident "@(#)p-samples:$Name$:$Id$"

#
# parameters for personalising your envelope:
#

def @PersonName         { "Greg A. Woods" }
def @PersonEmail        { "address@hidden" }
def @PersonURL          { "www.planix.com" }

def @PersonStreetAddr   { "61 Lorraine Drive" }
def @PersonCityProv     { "North York, Ontario" }
def @PersonPostalCode   { "M2N 2E3" }
def @PersonCountry      { "CANADA" }

def @PersonVoicePhone   { "+1 416 555-1212" }
def @PersonFaxPhone     { "+1 416 555-1212" }

#  @SysInclude commands for standard packages required for this doc.
#
@SysInclude { langdefs }        # language definitions
@SysInclude { bsf }             # BasicSetup package
@SysInclude { dsf }             # DocumentSetup package
@SysInclude { docf }            # OrdinarySetup extension to DocumentSetup
address@hidden { tbl }          # @Tbl -- the table formatter
@SysInclude { tab }             # @Tab -- the old table formatter

def @CompanyLargeName   { MY COMPANY }
def @CompanyName        { "My Company, Inc." }
def @CompanySloganOne   { We do it all }
def @CompanySloganTwo   { For YOU! }

# some handy tools:
#
import @BasicSetup
def @Code
        right x
{
        { Courier Bold 0.95f } @Font lines @Break x
}

#
# This definition is a table (or whatever) that describes a return address
#
import @BasicSetup @Tab
def @ReturnAddress {
        # leave a bit of vertical & horizontal margin on the card
        1.0i @High 2.5i @Wide {
                @Tab
                        # reduce the default separation of rows...
                        vmargin { 0.01v }
                        @Fmta {
                                @Col @CC H @Over X
                        }
                        @Fmtc {
                                @Col A ! @Col @RR B
                        }
                {       
                        @Rowa
                                below { single }
                                vmargin { 0.1ix }
                                H {
                                        # Why does @Wide need to be here????
                                        2.25i @Wide @HAdjust
                                        { Times Bold 16p } @Font 
@CompanyLargeName
                                }
                        @Rowa
                                H { @Null }
                        @Rowa
                                vmargin { 0.05v }
                                H { 8p @Font { @CompanySloganOne } }
                        @Rowa
                                vmargin { 0.02v }
                                H { 8p @Font { @CompanySloganTwo } }
                                X { {Helvetica Bold 8p } @Font { @PersonName } }
                        @Rowc
                                vmargin { 0.1v }
                                A { 8p @Font { @PersonStreetAddr } }
                                B { {Helvetica Slope 6p} @Font "ph:" 8p @Font { 
@PersonVoicePhone } }
                        @Rowc
                                vmargin { 0.01v }
                                A { 8p @Font { @PersonCityProv } }
                                B { {Helvetica Slope 6p} @Font "facsimile:" 8p 
@Font {  @PersonFaxPhone } }
                        @Rowc
                                vmargin { 0.01v }
                                A { 8p @Font { @PersonCountry " " 
@PersonPostalCode } }
                                B { 8p @Font { @Code @PersonURL } }
                }
        }
}

@Use { @BasicSetup

        # this adjusts the vertical centering of the text on the card,
        # 0.5v works with 10p font (default was { 1.00v @OrIfPlain 1f })
        # 
        @DisplayGap     { 0.5v }        # gap above, below displays
}

@Use { @DocumentSetup

        @PageOrientation { Landscape }
        @PageType       { Other }       # page type (sets width, height)
        @PageHeight     { 694p }
        @PageWidth      { 297p }

        @TopMargin      { 0.2i }        # top margin of all pages
        @FootMargin     { 0.2i }        # bottom margin of all pages

        @OddLeftMargin  { 1.75i }       # left margin of odd pages
        @OddRightMargin { 0.5i }        # right margin of odd pages
        @EvenLeftMargin { 1.75i }       # left margin of even pages
        @EvenRightMargin { 0.5i }       # right margin of even pages

        # Note that the margin marks should line up exactly with the
        # outside card edges... (i.e. they are the outside cut marks)
        #
#       @PageBackground { @BoundaryMarks
#                               linewidth { 0.2p }
#                               length { 0.25i }
#                               gap { 0.1i }
#                       }

        # this is a one-page "document" that mostly fills the printable area
        @PageHeaders    { None }
}

#
#  The @OrdinarySetup @Use clause - options specific to ordinary documents.
#

@Use { @OrdinarySetup
}

@SysDatabase @FontDef  { fontdefs }               # font definitions

#
# Start of the document proper
#
@Document
        @InitialSpace   { troff }
        @InitialFont    { Times Base 16p }
//
@Text @Begin

@ReturnAddress
//1.75i
Attention: Accounts Revivable
# Oh, those damn spell checkers!!!!  :-)
} ||0.75i {
//1.5i
The Sender Name
//.15v
P.O. Box 9999
//.15v
Some City, Some State
//.15v
U.S.A.  20738
}

@End @Text