You might try

SET PRINTPLUS = ON

You don't really say what the alignment issue is though?

Your POSITION tags should be on real report column names, not on their AS names:

POSITION=Amount should be POSITION=APLANAMT, etc.

As well, you have two POSITION=Amount clauses - this will not work for one of the SUBFOOT fields.

I don't see the column-total in your posted code. Are you calculating totals to print in a subfoot? Hard to align those you have to play with spot markers (posistioning with the greater than and less than symbols in the code).

The section of my code where I am totaling did not print. that section is included here

COMPUTE ZPLANAMT/D15.2 = planamt; NOPRINT
COMPUTE XPLANAMT/A20 = FTOA(ZPLANAMT,'(D15.2B)',XPLANAMT); NOPRINT
COMPUTE PPLANAMT/A30 = '$'||LJUST(20,XPLANAMT,'A20'); NOPRINT
-*
COMPUTE ZEXPENSE/D15.2 = expense; NOPRINT
COMPUTE XEXPENSE/A20 = FTOA(ZEXPENSE,'(D15.2B)',XEXPENSE); NOPRINT
COMPUTE PEXPENSE/A30 = '$'||LJUST(20,XEXPENSE,'A20'); NOPRINT
-*
COMPUTE ZINCOME/D15.2 = income; NOPRINT
COMPUTE XINCOME/A20 = FTOA(ZINCOME,'(D15.2B)',XINCOME); NOPRINT
COMPUTE PINCOME/A30 = '$'||LJUST(20,XINCOME,'A20'); NOPRINT
-*
COMPUTE ZYTDAMT/D15.2 = ytdamt; NOPRINT
COMPUTE XYTDAMT/A20 = FTOA(ZYTDAMT,'(D15.2B)',XYTDAMT); NOPRINT
COMPUTE PYTDAMT/A30 = '$'||LJUST(20,XYTDAMT,'A20'); NOPRINT
-*
BY DUM NOPRINT
-*&BYCLAUSE.EVAL
-*-IF &RECS EQ 0 GOTO SKIPSUB;
ON DUM SUBFOOT
" "
"-*"-GOTO HAVERECS
-SKIPSUB
ON DUM SUBFOOT
"" "
"-HAVERECS
-*
FOOTING BOTTOM
"Page -*
-**** NOLEAD eliminates three lines of blank at the top of the output.
-**** Requires LINES to be < 1000.
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT,SIZE=8,FONT=HELVETICA,ORIENTATION=LANDSCAPE,SQUEEZE=ON,$
TYPE=FOOTING, JUSTIFY=CENTER,$
TYPE=TITLE,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=1,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=2,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=APLANCNT,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=APLANAMT,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=AEXPENSE,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=AINCOME,JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=ytdamt,JUSTIFY=RIGHT,$

-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C6,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,POSITION=ytdamt,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=2,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Amount,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=3,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Expense,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=4,JUSTIFY=RIGHT,POSITION=ytdamt,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=6,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C11,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=7,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C12,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=8,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C13,$
-*TYPE=SUBFOOT,BY=DUM,LINE=3,JUSTIFY=CENTER,$
ENDSTYLE
-*
END
-RUN
-IF &FOCERRNUM NE 0 GOTO GETOUTNOW;
-RUN

Thanks Francis, although I believe I've tried using the real names and recieved the same results...I'll try this again.

BTW. My totaling section of the code did not post...it is included here:

COMPUTE ZPLANAMT/D15.2 = planamt; NOPRINT
COMPUTE XPLANAMT/A20 = FTOA(ZPLANAMT,'(D15.2B)',XPLANAMT); NOPRINT
COMPUTE PPLANAMT/A30 = '$'||LJUST(20,XPLANAMT,'A20'); NOPRINT
-*
COMPUTE ZEXPENSE/D15.2 = expense; NOPRINT
COMPUTE XEXPENSE/A20 = FTOA(ZEXPENSE,'(D15.2B)',XEXPENSE); NOPRINT
COMPUTE PEXPENSE/A30 = '$'||LJUST(20,XEXPENSE,'A20'); NOPRINT
-*
COMPUTE ZINCOME/D15.2 = income; NOPRINT
COMPUTE XINCOME/A20 = FTOA(ZINCOME,'(D15.2B)',XINCOME); NOPRINT
COMPUTE PINCOME/A30 = '$'||LJUST(20,XINCOME,'A20'); NOPRINT
-*
COMPUTE ZYTDAMT/D15.2 = ytdamt; NOPRINT
COMPUTE XYTDAMT/A20 = FTOA(ZYTDAMT,'(D15.2B)',XYTDAMT); NOPRINT
COMPUTE PYTDAMT/A30 = '$'||LJUST(20,XYTDAMT,'A20'); NOPRINT
-*
BY DUM NOPRINT
-*&BYCLAUSE.EVAL
-*-IF &RECS EQ 0 GOTO SKIPSUB;
ON DUM SUBFOOT
" "
"-*"-GOTO HAVERECS
-SKIPSUB
ON DUM SUBFOOT
"" "
"-HAVERECS
-*
FOOTING BOTTOM
"Page -*
-**** NOLEAD eliminates three lines of blank at the top of the output.
-**** Requires LINES to be < 1000.
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT,SIZE=8,FONT=HELVETICA,ORIENTATION=LANDSCAPE,SQUEEZE=ON,$
TYPE=FOOTING, JUSTIFY=CENTER,$
TYPE=TITLE,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=1,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=2,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=APLANCNT,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=APLANAMT,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=AEXPENSE,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=AINCOME,JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=ytdamt,JUSTIFY=RIGHT,$

-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C6,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,POSITION=ytdamt,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=2,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Amount,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=3,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Expense,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=4,JUSTIFY=RIGHT,POSITION=ytdamt,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=6,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C11,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=7,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C12,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=8,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C13,$
-*TYPE=SUBFOOT,BY=DUM,LINE=3,JUSTIFY=CENTER,$
ENDSTYLE
-*
END
-RUN
-IF &FOCERRNUM NE 0 GOTO GETOUTNOW;
-RUN

Timothy,

If you put your code between the code brackets (the red

</>

icon) you will see that all code will be posted correctly.
Your complete code would then look like:

FILEDEF E711ACCT2 DISK emr_work/e711acct2.ftm
DEFINE FILE E711ACCT2
 CATEGORY/A50          = category;
 splancnt/D12BC         = plancnt;
 APLANCNT/A15          = IF EDIT(yorn,'9') EQ 'N' THEN ' ' ELSE FTOA(plancnt,'(D12BC)',APLANCNT);
 splanamt/D15.2BM      = planamt;
 APLANAMT/A30          = IF EDIT(yorn,'$9') EQ 'N' THEN ' ' ELSE FTOA(planamt,'(D15.2B)',APLANAMT);
 sexpense/D15.2BM      = expense;
 AEXPENSE/A30          = IF EDIT(yorn,'$$9') EQ 'N' THEN ' '  ELSE FTOA(expense,'(D15.2B)',AEXPENSE);
 sincome/D15.2BM       = income;
 AINCOME/A30           = IF EDIT(yorn,'$$$9') EQ 'N' THEN ' '  ELSE FTOA(income,'(D15.2B)',AINCOME);
 sytdamt/D15.2BM        = ytdamt;
 AYTDAMT/A30            = IF EDIT(yorn,'$$$$9') EQ 'N' THEN ' ' ELSE FTOA(ytdamt,'(D15.2B)',AYTDAMT);
 TITL/A6               ='Total:';
 DUM/A1 WITH category  = ' ';
 D_endofrpt/A170       = '-- End of Report --';
END
-IF &FOCERRNUM NE 0 GOTO GETOUTNOW;
-RUN
TABLE FILE E711ACCT2
SUM planamt  NOPRINT
    expense  NOPRINT
    income   NOPRINT
    ytdamt   NOPRINT

PRINT
   CATEGORY   AS ''
   APLANCNT   AS 'Count'
   APLANAMT   AS 'Amount'
   AEXPENSE   AS 'Expense'
   AINCOME    AS 'Income'
   AYTDAMT    AS 'YTD Amount'

   splancnt    NOPRINT
   splanamt    NOPRINT
   sexpense    NOPRINT
   sincome     NOPRINT
   sytdamt     NOPRINT
-*
COMPUTE ZPLANAMT/D15.2 = planamt; NOPRINT
COMPUTE XPLANAMT/A20  = FTOA(ZPLANAMT,'(D15.2B)',XPLANAMT); NOPRINT
COMPUTE PPLANAMT/A30 = '$'||LJUST(20,XPLANAMT,'A20'); NOPRINT
-*
COMPUTE ZEXPENSE/D15.2 = expense; NOPRINT
COMPUTE XEXPENSE/A20  = FTOA(ZEXPENSE,'(D15.2B)',XEXPENSE); NOPRINT
COMPUTE PEXPENSE/A30 = '$'||LJUST(20,XEXPENSE,'A20'); NOPRINT
-*
COMPUTE ZINCOME/D15.2 = income; NOPRINT
COMPUTE XINCOME/A20  = FTOA(ZINCOME,'(D15.2B)',XINCOME); NOPRINT
COMPUTE PINCOME/A30 = '$'||LJUST(20,XINCOME,'A20'); NOPRINT
-*
COMPUTE ZYTDAMT/D15.2 = ytdamt; NOPRINT
COMPUTE XYTDAMT/A20  = FTOA(ZYTDAMT,'(D15.2B)',XYTDAMT); NOPRINT
COMPUTE PYTDAMT/A30 = '$'||LJUST(20,XYTDAMT,'A20'); NOPRINT
-*
BY DUM  NOPRINT
ON DUM SUBFOOT
" "
"<TITL<TOT.PPLANAMT<TOT.PEXPENSE<TOT.PINCOME<TOT.PYTDAMT"
-GOTO HAVERECS
-SKIPSUB
ON DUM SUBFOOT
"<TITL"
" "
"<D_endofrpt"
-HAVERECS
-*
FOOTING BOTTOM
"Page <TABPAGENO "
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT,SIZE=8,FONT=HELVETICA,ORIENTATION=LANDSCAPE,SQUEEZE=ON,$
TYPE=FOOTING, JUSTIFY=CENTER,$
TYPE=TITLE,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=1,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=2,JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=ytdamt,JUSTIFY=RIGHT,$

TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,POSITION=Amount,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=2,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Amount,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=3,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Expense,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=4,JUSTIFY=RIGHT,POSITION=ytdamt,$
ENDSTYLE
-*
END
-RUN
-IF &FOCERRNUM NE 0 GOTO GETOUTNOW;
-RUN
-*
-GOTO NOMORE
-GETOUTNOW
-*-INCLUDE emr_error
-EXIT
-NOMORE

I took the liberty of removing comment lines.
Why don't you just use the column-total for your numeric columns? These will always be alined...

this was not written using the GUI..could youexplain how I would that kfor this fex

The syntax is

ON TABLE COLUMN-TOTAL AS 'Totals'

This puts totals on line at the bottom of your data columns, then you could add your

ON TABLE SUBFOOT

To print the 'end of report' line.

The easiest thing to do would be to use the appropriate SUBTOTAL or SUB-TOTAL command instead of doing this in a SUBFOOT. Using SUBTOTAL or SUB-TOTAL or even COLUMN-TOTAL as Leah indicated would automatically calculate the total values and position the total values in the appropriate column.

If you insist on using SUBFOOT, read the following two articles which explain a lot about positioning.

http://www.informationbuilders.com/support/developers/htmlpdf.html

http://www.informationbuilders.com/support/developers/htmlpdf_part2.html

I am still getting the same results. I am obviously doing someting wrong. My new code is as follows

TABLE FILE E711ACCT2
SUM planamt  NOPRINT
    expense  NOPRINT
    income   NOPRINT
    ytdamt   NOPRINT

PRINT
   CATEGORY   AS ''
   APLANCNT   AS 'Count'
   APLANAMT   AS 'Amount'
   AEXPENSE   AS 'Expense'
   AINCOME    AS 'Income'
   AYTDAMT    AS 'YTD Amount'


   splancnt    NOPRINT
   splanamt    NOPRINT
   sexpense    NOPRINT
   sincome     NOPRINT
   sytdamt     NOPRINT
-*
COMPUTE ZPLANAMT/D15.2 = planamt; NOPRINT
COMPUTE XPLANAMT/A20  = FTOA(ZPLANAMT,'(D15.2B)',XPLANAMT); NOPRINT
COMPUTE PPLANAMT/A30 = '$'||LJUST(20,XPLANAMT,'A20'); NOPRINT
-*
COMPUTE ZEXPENSE/D15.2 = expense; NOPRINT
COMPUTE XEXPENSE/A20  = FTOA(ZEXPENSE,'(D15.2B)',XEXPENSE); NOPRINT
COMPUTE PEXPENSE/A30 = '$'||LJUST(20,XEXPENSE,'A20'); NOPRINT
-*
COMPUTE ZINCOME/D15.2 = income; NOPRINT
COMPUTE XINCOME/A20  = FTOA(ZINCOME,'(D15.2B)',XINCOME); NOPRINT
COMPUTE PINCOME/A30 = '$'||LJUST(20,XINCOME,'A20'); NOPRINT
-*
COMPUTE ZYTDAMT/D15.2 = ytdamt; NOPRINT
COMPUTE XYTDAMT/A20  = FTOA(ZYTDAMT,'(D15.2B)',XYTDAMT); NOPRINT
COMPUTE PYTDAMT/A30 = '$'||LJUST(20,XYTDAMT,'A20'); NOPRINT
-*
BY DUM  NOPRINT
-*&BYCLAUSE.EVAL
-*-IF &RECS EQ 0 GOTO SKIPSUB;
-*ON TABLE COLUMN-TOTAL AS 'Totals'
-*ON DUM SUBFOOT
ON TABLE SUBFOOT
" "
"<TITL<TOT.PPLANAMT<TOT.PEXPENSE<TOT.PINCOME<TOT.PYTDAMT"
-*
-**** NOLEAD eliminates three lines of blank at the top of the output.
-**** Requires LINES to be < 1000.
-*-*-*ON TABLE COLUMN-TOTAL AS 'Totals'
-*ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT,SIZE=8,FONT=HELVETICA,ORIENTATION=LANDSCAPE,SQUEEZE=ON,$
TYPE=FOOTING, JUSTIFY=CENTER,$
TYPE=TITLE,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=1,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=2,JUSTIFY=RIGHT,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=1, POSITION=CATEGORY,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=2, POSITION=APLANAMT,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=3, POSITION=AEXPENSE,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=4, POSITION=AINCOME,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=5, POSITION=AYTDAMT,$  

 
ON TABLE SUBFOOT
" "
"<TITL<TOT.PPLANAMT<TOT.PEXPENSE<TOT.PINCOME<TOT.PYTDAMT"
 

Your SUBFOOT is on LINE 2:

TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=1, POSITION=CATEGORY,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=2, POSITION=APLANAMT,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=3, POSITION=AEXPENSE,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=4, POSITION=AINCOME,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=5, POSITION=AYTDAMT,$

Not LINE=1...

your correct...made change totals still bunched together not under their correct columns

S/B
ON DUM SUBFOOT

Not ON TABLE SUBFOOT

Also, change the OBJECT stuff to JUSTIFY=RIGHT,

Thanks Tom and every one else for your help !!!

I guess that means it is now working for you???

Yes...thanks again