如何选择某工作簿的多个工作表，按选定工作表打印成指定PDF

将工作簿中多个工作表合着合并到第一个工作表，并删除后面的工作表，生成一个仅有一个表的工作簿，之后再按工作簿另存为PDF执行：
cXlsFile=GETFILE("XLS")
IF !EMPTY(cXlsFile)
    eole=CREATEOBJECT("Excel.application")
    eole.Workbooks.Open(cXlsFile)   
    nSheet=eole.Sheets.Count
    nRow=eole.Sheets(1).UsedRange.Rows.Count        &&已有行数
    IF nSheet>1
        FOR I=2 TO nSheet
            eole.Worksheets(i).Activate
            eole.ActiveSheet.UsedRange.Copy    &&拷贝整个工作表
            eole.Worksheets("sheet1").Activate    &&激活第一个工作表
                nRowCounts=eole.SHEETS(1).UsedRange.Rows.Count        &&已有行数
            eole.ActiveSheet.Range("A"+ALLTRIM(STR(nRowCounts+1))).PasteSpecial        &&粘贴
        ENDFOR

        eole.DisplayAlerts = .F.        &&屏蔽警告信息
        DO WHILE .t.
            eole.Worksheets(2).Activate
            eole.ActiveWindow.SelectedSheets.Delete()    &&删除第一个之外所有工作表
            IF eole.Sheets.Count=1
                EXIT
            ENDIF
        ENDDO
    ENDIF

     ......

    eole.ActiveWorkbook.saved=.t.    &&放弃存盘
    eole.Workbooks.Close
    eole.Quit
ENDIF

谢谢指点。两个sheet里都是有标题行的设置，无法简单合并，现在采取每个sheet另存为pdf，再安排pdf合并。

论坛上看到过炊版的回复，你找找看