dBase III报告中的新增内容是什么？

Question

在生成的报告中，我无法进入新行。我只能并排添加4个字段，但我想将它们添加到新行中。

Answer 1

如果您只是将打印机（LPT1）作为设备打印，输入代码将设备从屏幕切换到打印机后，只需引用要打印的行号。以下是我用来打印页面标题的旧程序的代码，以及后续标题。

1. 早在你的代码：

   SET CONSOLE OFF && so your output doesn't echo to the screen while printing. 
   SET PRINTER ON 
   SET PRINTER TO LPT1 
   

2. 然后调用Prt_Header()功能打印第一页标题。在打印详细记录时，您必须跟上行号，当您到达页面底部时，请使用EJECT命令将该页面踢出并将另一个呼叫发送到Prt_Header()。

**************************** 
STATIC FUNCTION Prt_Header() 
**************************** 

    nPage += 1 

    @ 1, 4 SAY DATE() 
    @ 1, 55 SAY "MyCompany INTERNATIONAL, INC." 
    @ 1,121 SAY "Page " + STR(nPage, 4, 0) 

    @ 2, 51 SAY "MY Report Name" 
    @ 3, 4 SAY "Pay Group: " + cPayGroup 
    @ 3, 58 SAY "For Period: " + cPeriodMon + "/" + cPeriodYr 
    @ 4, 4 SAY cLines 
    @ 5, 4 SAY "EXECUTIVE " + "(" + cParTitle + "): " + cName 
    @ 5, 70 SAY "Member #:" + cDist 
    @ 5,100 SAY "Sponsored: " + STR(nNoSponsored, 5, 0) 

    @ 6, 21 SAY cAddress 

    @ 6,100 SAY "Qualified: " + STR(nQualified, 5, 0) 

    if .not. empty(cAddress2) 
     @ 7, 21 SAY cAddress2 
     nLine_no := 8 
    else 
     nLine_no := 7 
    endif 

    @ nLine_no, 21 SAY TRIM(cCity) + ", "+ cState + " " + cZip + " " + = 
    cFullName 

    nLine_no += 2 

    @ nLine_no, 4 SAY "LN LEVEL I. D.  NAME" 
    @ nLine_no, 70 SAY "SALES BONUS PCT" 
    @ nLine_no, 93 SAY "PHONE   LAST ORDER STATUS" 
    @ nLine_no + 1, 4 SAY cLines 
    nLine_no += 2 

    nItem := 0 

    RETURN NIL 

* EOP: Prt_Header() 

但是，如果您使用的是报告生成器，这是不是你要找的东西。