VFP 控制 EXCEL2003 之 003、真正的全屏显示数据

Excel问题 | 2018-09-17 18:50:38 | 阅读 235 次 | 评论(0)
oExcel=CreateObject("Excel.Application")
WITH oExcel
    .WorkBooks.Add
    .DisplayFullScreen = .T.
    .CommandBars(1).Enabled = .F.
    .CommandBars("Full Screen").Controls(1).Onaction = "RestoreWindow"
    WITH .ActiveWindow
        .DisplayHeadings = .F.
        .DisplayHorizontalScrollBar = .F.
        .DisplayVerticalScrollBar = .F.
        .DisplayWorkbookTabs = .F.
    ENDWITH 
    * 取消全屏显示 *
    .DisplayFullScreen = .F.
    .CommandBars(1).Enabled = .T.
    .CommandBars("Full Screen").Reset
    WITH .ActiveWindow
        .DisplayHeadings = .T.
        .DisplayHorizontalScrollBar = .T.
        .DisplayVerticalScrollBar = .T.
        .DisplayWorkbookTabs = .T.
    ENDWITH 
    .Visible = .T.
ENDWITH 
文章评论,共0条
游客请输入验证码
浏览200184次
最新评论