[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index] [Date Index] [Thread Index]
[SQR-USERS Info] [SQRUG Home Page]

Re: my columns problem



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 ***