|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
sthuang66
註冊時間: 2014-04-27 文章: 176
第 1 樓
|
發表於: 星期三 五月 01, 2024 1:04 am 文章主題: 在VFP中使用WORD列印後無法關閉WORD程式!! |
|
|
我利用vfp去列印WORD檔案內容!印完後無法將WORD程式完全關閉!!所以當我列印二十次後WORD就開了20個
我的CODE如下
LOCAL D1,D2,D3
D1=PADL(ALLTRIM(STR(THISFORM.XOLE1.YEAR-1911)),3,'0')+'年'+PADL(ALLTRIM(STR(THISFORM.XOLE1.MONTH)),2,'0')+'月'+PADL(ALLTRIM(STR(THISFORM.XOLE1.DAY)),2,'0')+'日'
D2=ALLTRIM(STR(THISFORM.XOLE1.YEAR))+'/'+PADL(ALLTRIM(STR(THISFORM.XOLE1.MONTH)),2,'0')+'/'+PADL(ALLTRIM(STR(THISFORM.XOLE1.DAY)),2,'0')
D3='星期'+SUBSTR('一二三四五六日',DOW(CTOD(D2),2)*2-1,2)
OWRD=CREATEOBJECT("WORD.APPLICATION")
OWRD.VISIBLE=.T.
WAIT "WORD程式"+CHR(13)+"開啟中"+CHR(13)+"稍後利用WORD列印" WINDOW AT 20,80 NOWAIT
OWRD=CREATEOBJECT("WORD.APPLICATION")
OWRD.VISIBLE=.T.
OWRD.DOCUMENTS.OPEN("d:\DAILY.DOCX")
OWRD.ACTIVEDOCUMENT.TABLES(1).CELL(1,1).RANGE.TEXT="每日結帳報告"
OWRD.ACTIVEDOCUMENT.TABLES(2).CELL(1,1).RANGE.TEXT=D1
OWRD.ACTIVEDOCUMENT.TABLES(2).CELL(1,2).RANGE.TEXT=D3
OWRD.ACTIVEDOCUMENT.PRINTOUT
OWRD.QUIT
WAIT CLEAR
我的FORM執行如圖Z1
執行完會有一個未關閉的WORD程式如Z2
我查了好多始終沒有結果!!應該不會跟OFFICE版本有差吧?
OWRD.QUIT 不是就是關閉WORD程式嗎?
麻煩各位高手了!!! |
|
回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25 文章: 130
第 2 樓
|
發表於: 星期三 五月 01, 2024 7:56 am 文章主題: |
|
|
release owrd |
|
回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25 文章: 130
第 3 樓
|
發表於: 星期三 五月 01, 2024 8:00 am 文章主題: |
|
|
?TRANSFORM(VAL(DTOS(DATE())), "@R 9999年99月99日") |
|
回頂端 |
|
|
sthuang66
註冊時間: 2014-04-27 文章: 176
第 4 樓
|
發表於: 星期五 五月 03, 2024 1:09 am 文章主題: |
|
|
謝謝lygcw9603
我加了 release owrd 還是有WORD程式未關閉
不過後來我想到只是利用它列印!我就把OWRD.VISIBLE=.T.
改成OWRD.VISIBLE=.F.
結果就可以了 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|