Re: Rotating - sample code

[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]

Posted by Robert G Laurin on April 13, 2010 at 14:25:49:

In Reply to: Re: Rotating posted by steve auerbach on April 13, 2010 at 13:54:25:

! This will print in the lower right margin - from bottom to top
! FYI it identifies a sheet of barcoded label tags for USPS

!
! change font to title size
!
GOSUB GDI.InitLogFont
Let lfheight$ = INTELD(USR.TITLE.FONT.SIZE*20)
lfWeight$ = INTELD(FW.BOLD)
lfEscapement$ = INTELD(900) ! Rotate 90º
lfFaceName$ = USR.FONT$ + NullByte$ ! Helvetica Bold
GOSUB PTR.SelectFont
!
Let PtrX1 = WP.PAGE.WIDTH - .25 * TWIPS.PER.INCH
PtrY1 = 0.250 * TWIPS.PER.INCH - WP.OFFSET.TOP
OUT$ = ZCDATE$+' '+SUB(TIME$,1,5)+' '+XOPID$+' Tray Tags - Job: ' + JOBID$
!
PRINT (PtrLun) (TextOut=PtrX1,PtrY1);OUT$'@00@'
!
! reset font
!
GOSUB GDI.InitLogFont
Let lfheight$ = INTELD(11*20)
lfFaceName$ = 'Helvetica' + NullByte$ ! Helvetica 11 pts
GOSUB PTR.SelectFont

Follow Ups:


Post a Followup

Name:
E-Mail:

Subject:

What is the name of the main Signature System's Product?  

Comments:

Optional Link URL:
Link Title:
Optional Image URL:

You may attach up to 5 files to your followup (see below):





Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.

[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]