[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index]
[Date Index]
[Thread Index]
[SQR-USERS Info]
[SQRUG Home Page]
Re: my columns problem
- Subject: Re: my columns problem
- From: Gadi Yedwab <gadiy@SQRIBE.COM>
- Date: Wed, 19 Nov 1997 14:30:41 -0800
I'm glad you posted the code. It makes the problem immediately apparent.
To set 3 columns each 50 wide, your command should be
columns 1 51 101
The leftmost position is 1, then 50 over to the right is 51, the last
column is at position 101. You see, the numbers represent the start
position of the column. When you do "use-column 2" it sets your current
position to 51. When you do "use-column 3" it sets your current position to
101.
Gadi.
----------
From: Aaron Solomon <aaron.solomon@gs.com>
To: gadiy@SQRIBE.COM; sqr-users@usa.net
Subject: my columns problem
Date: Wednesday, November 19, 1997 2:08 PM
Below is the complete code for a test script I'm written to try out the
columns. When I run this, it compiles and creates a .lis file just fine.
the
only problem is that the page that gets printed on have 1 column of lines,
in
the middle of the page (seemingly the 2nd column). I can't get it to print
in
any other column. HELP!!!
AJ
! *** Test SQR script to print columns ***
#define header_lines 1
#define footer_lines 1
#define font 3 6
BEGIN-REPORT
DO MAIN
END-REPORT
BEGIN-SETUP
page-size 90 175
declare printer
!type = LINEPRINTER
!orientation = portrait
!line-size = 8
type = HPLASERJET
orientation = landscape
line-size = 6
left-margin = .15
top-margin = .25
END-SETUP
BEGIN-HEADING {header_lines}
GRAPHIC () FONT {font}
print 'ACTIVITY REPORT' (1) center
END-HEADING
BEGIN-FOOTING {footer_lines}
print 'Solomon & Co.' (1,1)
END-FOOTING
BEGIN-PROCEDURE MAIN
COLUMNS 50 50 50
LET #line = 1
print 'Line number: 1' (1,1)
WHILE (#line <25)
add 1 to #line
print 'Line number: ' (+1,1)
print #line () edit 99
end-while
next-column
LET #line = 1
print 'Line number: 1' (1,1)
WHILE (#line <25)
add 1 to #line
print 'Line number: ' (+1,1)
print #line () edit 99
end-while
next-column
LET #line = 1
print 'Line number: 1' (1,1)
WHILE (#line <25)
add 1 to #line
print 'Line number: ' (+1,1)
print #line () edit 99
end-while
END-PROCEDURE
! *** END OF SCRIPT ***