我想运行程序文件wjdy1.prg打印 期中考务安排.xls 中的所有工作表，下列程序只能打印第一张工作表，请高手帮忙，万分感谢！！！


CLOSE ALL
CLEAR ALL
SET TALK OFF
SET SAFETY OFF
SET COMPATIBLE off
cCurrentProcedure=SYS(16,1)
nPathStart=AT(":",cCurrentProcedure)-1
nLenOfPath=RAT("\",cCurrentProcedure)-(nPathStart)
mypath=SUBSTR(cCurrentProcedure,nPathStart,nLenOfPath)
SET DEFAULT TO (mypath)
use temp1
SCAN
  wjm=ALLTRIM(temp1.文件名)
  oExcel=CREATEOBJECT("excel.application")
  oExcel.workbooks.open(wjm)
  oExcel.visible=.t.
  oExcel.ActiveSheet.printout(1,5,1,.F.) && 这句代码如何修改？
  oExcel.quit
  RELEASE oExcel
ENDSCAN
return
      

[此贴子已经被作者于2018-11-14 14:22编辑过]

oExcel.visible=.t.后面加一句
*设置第3个工作表为激活工作表
oExcel.Worksheets("外出监考").Activate
做个循环就可以了！

CLOSE ALL
CLEAR ALL
SET TALK OFF
SET SAFETY OFF
SET COMPATIBLE off
cCurrentProcedure=SYS(16,1)
nPathStart=AT(":",cCurrentProcedure)-1
nLenOfPath=RAT("\",cCurrentProcedure)-(nPathStart)
mypath=SUBSTR(cCurrentProcedure,nPathStart,nLenOfPath)
SET DEFAULT TO (mypath)
use temp1 
SCAN 
  wjm=ALLTRIM(temp1.文件名)
  oExcel=CREATEOBJECT("excel.application")
  oExcel.workbooks.open(wjm)
  oExcel.visible=.t.
  nSheetcoun=oExcel.sheets.count    && 获取工作表数量
  FOR i=1 to  nSheetcoun
    oExcel.Worksheets(i).Activate   && 设置活动工作表
    oExcel.ActiveSheet.PrintOut     && 打印当前工作表
  ENDFOR 
  
  oExcel.quit
  RELEASE oExcel
ENDSCAN
RETURN 

需要事先在EXCEL中，做好打印页面的设置工作。

看过，作者的思想可能是要［一下子］解决问题。

但是我碰到这类问题，依然是转化到EXCEL，再来打印。

因为打印以前，必然要做做［预览］，才能保证效果。

事实上，EXCEL设置页面时，点一下打印按钮，就完成打印了。

估计　王老师　是学一下方法而已。

直接用EXCEL来逐个打印才能满足您的要求。