如：
input "请输入打印的记录号" to n
go n
FOR l=1 TO 10
report form 报表.frx NOEJECT NOCONSOLE TO PRINTER  RANGE n,n
ENDFOR
可是打印时总是10*3份
加上prompt子句后：report form 报表.frx NOEJECT NOCONSOLE TO PRINTER PROMPT RANGE n,n
发现弹出的对话框中每次默认打印份数为3，可是打印机首选项里也调不成，调成1份，运行程序又自动变成3份。请问高手如何设置或者如何编程解决？？

[ 本帖最后由 lnny0263 于 2012-9-14 19:27 编辑 ]

在线等呀，为什么没人问津？高手帮帮忙

我的机器没有安装打印机,只能提些建议了
你用use打开报表frx文件，在里面找你的打印设置项，试试

try:
...
report form 报表.frx RECORD n NOEJECT NOCONSOLE TO PRINTER
...

重装打印机驱动程序试试看。

建一个控件Spinner1可用上下键调节数字的,默认值为1
在打印按钮的Click中输入以下代码

cEnt=0
cPinter=ThisForm.Spinner1.Value
DO WHILE cPinter>cEnt
   SELECT 打印的数据表文件
   GO TOP
   SET CONSOLE OFF   && 指定输出不在屏幕上显示
   SET DEVICE TO PRINTER
   REPO FORM 打印报表文件 NOCONSOLE
   nZys=_PAGENO
   REPORT FORM 打印报表文件.frx TO PRINTER
   cPinter=cPinter-1
ENDDO


[ 本帖最后由 ptyy803 于 2011-9-18 17:01 编辑 ]

学习了，谢谢分享了。

感谢ptyy803，但是我只是编个没有控件的小程序，就是想不用手动调的办法。

问题已解决，结贴！原来是打印环境被记忆了，重置后就可以了。