试过下面代码,也不打印

PRN=FOPEN("LPT1",1)
PRN_C="床号 住院号 姓名 性别年龄入院日期  诊断               手术名称       手术者            病历医师"
=FPUTS(PRN,PRN_C)
.................
=FCLOSE(PRN)

试试加个换页命令：
EJECT

如果简单报表可直接输出文本文件：
SET ALTERNATE TO FileName
TYPE FileName TO PRINTER

Windows下的打印模式是一页一页的，因为那是基于图像的輸出，在没有明确告知打印已经完成的情况下，打印设备不会實際动作。这与旧式的即时打印模式不同（在XP系统下可以在打印设备的屬性设置中修改为即时輸出），故需要明确让打印设备动作，輸出一个换页符即可，那个代码是0x0C，十进制12。

??? chr(12)        && 指令Eject的内部代码

0x09是水平制表符，代号HT，转义字符为\t
0x0A是换行，代号LF，转义字符\n
0x0B是垂直制表符，代号VT
0x0C是换页符，代号FF
0x0D是回车符，代号CR，转移字符\r

[ 本帖最后由 TonyDeng 于 2015-4-27 11:06 编辑 ]

TonyDeng版的深度详解,我好像明白原因了,不过对我来说有点难度,不鼓捣了,用处不大,谢谢!

最后
Set Device To Screen
Set Printer Off
Set Printer To lpt1