[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index]
[Date Index]
[Thread Index]
[SQR-USERS Info]
[SQRUG Home Page]
Re: Printing data on last sheet and at bottom of page.
- Subject: Re: Printing data on last sheet and at bottom of page.
- From: "McCown, Larry" <MCCOWLA@MAIL.NORTHGRUM.COM>
- Date: Thu, 22 Mar 2001 07:01:58 -0800
Bob, the next-listing will not work because this is not being done in a
begin-select statement. It is a separate procedure, designed to printed on
the bottom of the very last page. There are other procedures that are
called during the program so it would be thought to put it in a select
statement.
Franck, I tried adding this(below) to the first line of my procedure but
got SQR 3701 invalid command.
position=#sqr-max-lines -12
next-listing need 12
if position > #current-line
new-page
end-if
next-listing
y-offset=position - #current-line
print ' ' (y-offset,1)
What I am trying to print on the bottom of the last page.
BEGIN-PROCEDURE signoff
graphic (+10,1,20) HORZ-LINE 15
Print 'Work Order Completion Information' () center Bold
graphic (,22,37) box 1 15
graphic (,60,20) HORZ-LINE 15
print 'Problem ______________ Cause _________________ Remedy
______________________' (+2,1)
print 'Do any steps or instructions need to be added or deleted? Did you
find any ' (+2,1)
print 'deficiencies. If so, please check box and write the information
on the back ' (+1,1)
print 'and return a copy to Plant Maintenance Engineering.
_______________________' (+1,1)
graphic (,76,2) box 1 15
print 'Did you generate a follow-up Work Order? Number ___________ Date
___/___/___' (+2,1)
print 'Employee Number Date Start Time End Time S/O/D Notes'
(+2,1)
print '______________ __/__/__ _____:____ ____:____ _____
_____________________' (+1,1)
print '______________ __/__/__ _____:____ ____:____ _____
_____________________' (+1,1)
print '______________ __/__/__ _____:____ ____:____ _____
_____________________' (+1,1)
print '______________ __/__/__ _____:____ ____:____ _____
_____________________' (+1,1)
print 'Manager/Supervisor Review: ___________________________ Date:
____/____/____' (+2,1)
END-PROCEDURE
Larry
-----Original Message-----
From: Franck Masson [mailto:franck.masson@BRIO.COM]
Sent: Wednesday, March 21, 2001 5:28 PM
To: SQR-USERS@list.iex.net
Subject: Re: Printing data on last sheet and at bottom of page.
hi,
you can try something like this. (if #current-line is what i think it
must work)
you know the maximum line in your page (#sqr-max-lines)
you know the current-line (#current-line)
you need 12 lines
position=#sqr-max-lines -12
next-listing need 12
if position > #current-line
new page
endif
next-listing
y-offset=position - #current-line
print 'text ...' (y-offset,1)
print 'text1 ...' (+1,1)
...
franck,
Bob Helm wrote:
>
> As for the first part, I have a very similar need and no answer yet.
> As for the second part, I would try "next-listing need=12" instead of
> on-break.
>
> Bob Helm