报表设太复杂了,尤其多细节等,还好在本坛的帮助下,终于做到了许多.如:


能输出下面我想要的格式.


用老方法也能很快解决一些小问题,如一下代码也能打印两个表,但是,必须退出VFP程序后,打印机才能打印,怎样解决?

SELECT jftj
SET PRINTER on
?"床号 住院号 姓名 性别年龄入院日期  诊断               手术名称       手术者            病历医师"
DO WHILE .not.eof()
   ?床号," ",住院号,姓名+" ",性别,年龄,STR(MONTH(入院日期),2),"月",STR(day(入院日期),2),SUBSTR(诊断,1,16),SUBSTR(手术名称,1,16),手术者,病历医师
   SKIP
ENDDO
SELECT jftj1
   ?""
   ?""
   ?"病历医师 病历积分 手术积分 合计"
DO while.not.eof()
   ?病历医师,"  "+STR(病历积分,5),"  "+STR(手术积分,5),"  "+STR(合计,5)
   SKIP
ENDDO
sum 合计 TO hj
?"                 共计：",STR(hj,5)
SET PRINTER off

[ 本帖最后由 muyubo 于 2015-4-24 22:09 编辑 ]

简单易用，操作方便，能解决问题就是好方法
可以在EXCEL中试下。

?"病历医师 病历积分 手术积分 合计"
NSUM=0
SCAN
   ?病历医师,"  "+STR(病历积分,5),"  "+STR(手术积分,5),"  "+STR(合计,5)
   NSUM=NSUM+合计
ENDSCAN

?"                 共计：",STR(NSUM,5)
SET PRINTER off

改成上面这样试下


另外：
SCAN ENDSCAN 比DO WHILE ENDDO 代码简洁，运行速度快

[ 本帖最后由 sdta 于 2015-4-24 22:37 编辑 ]

试试
SET PRINTER ON
SET CONSOLE OFF
?......

谢谢各位哦关注,EXCEL我用不熟练,不想再费脑子了,主要是钟爱VFP,想摸索各种方法.
加上SET CONSOLE OFF只是不再屏幕上显示了,可还是打印机等待状态,当退出程序后,才开始打印.
SCAN ENDSCAN 比DO WHILE ENDDO .又一招,好.

[ 本帖最后由 muyubo 于 2015-4-25 06:53 编辑 ]

孩子的眼眨了多年了,有点累.
建议将眨眼速度放慢,能显得更可爱温柔!
呵呵!开玩笑

利用VFP控制EXCEL，可以将任意个表或数据写入固定的模板上，有时比VFP的报表还更加灵活方便。

用好是方便

奥，有兴趣了鼓捣鼓捣。

可以这样，跳过windows 打印管理器，直接打印到打印机（适合如超市收钱，一边扫描，同时一边打印)
PRN=FOPEN("LPT1",1)
PRN_C="床号 住院号 姓名 性别年龄入院日期  诊断               手术名称       手术者            病历医师"
=FPUTS(PRN,PRN_C)
.................
=FCLOSE(PRN)