 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
張正國
註冊時間: 2003-05-29
文章: 3
來自: 高雄市
第 1 樓
|
 發表於: 星期三 七月 14, 2004 5:17 pm 文章主題: 如何在VFP裏，呼叫Arcobat Reader |
 |
|
如何在VFP裏，呼叫Arcobat Reader 同時打開指定的 .PDF檔案 ? 
請先進們多多指教  |
|
| 回頂端 |
|
 |
rcj811
註冊時間: 2003-08-12
文章: 35
第 2 樓
|
| 發表於: 星期三 七月 14, 2004 5:33 pm 文章主題: 透過 API 來做! |
|
|
這一個範例是開啟 TXT 檔案,您可以試看看!
#Define SW_HIDE 0
#Define SW_SHOWNORMAL 1
#Define SW_SHOWMINIMIZED 2
#Define SW_SHOWMAXIMIZED 3
#Define SW_SHOWNOACTIVATE 4
#Define SW_SHOW 5
#Define SW_MINIMIZE 6
#Define SW_SHOWMINNOACTIVE 7
#Define SW_SHOWNA 8
#Define SW_RESTORE 9
#Define SW_SHOWDEFAULT 10
Declare INTEGER WinExec IN "kernel32";
STRING lpCmdLine,;
INTEGER nCmdShow
lpCmdLine = "notepad c:\Setupxlg.txt"
* lpCmdLine = "C:\Program Files\Microsoft Office\Office\WINWORD.EXE"
? WinExec (lpCmdLine, SW_SHOWNORMAL)
Function rundos
Parameter doscmd
#Define SW_HIDE 0
#Define SW_SHOWNORMAL 1
#Define SW_SHOWMINIMIZED 2
#Define SW_SHOWMAXIMIZED 3
#Define SW_SHOWNOACTIVATE 4
#Define SW_SHOW 5
#Define SW_MINIMIZE 6
#Define SW_SHOWMINNOACTIVE 7
#Define SW_SHOWNA 8
#Define SW_RESTORE 9
#Define SW_SHOWDEFAULT 10
Declare INTEGER WinExec IN kernel32 STRING lpCmdLine, INTEGER nCmdShow
cmdstart = "command.com /C"
fullcmd = cmdstart + doscmd
retval = WinExec(fullcmd, SW_HIDE)
Return retval
Endfunc |
|
| 回頂端 |
|
|
張正國
註冊時間: 2003-05-29
文章: 3
來自: 高雄市
第 3 樓
|
| 發表於: 星期三 七月 14, 2004 9:33 pm 文章主題: |
|
|
Yes ! 太棒了
測試沒問題，謝謝先進指導! |
|
| 回頂端 |
|
|
laurance
註冊時間: 2004-03-24
文章: 35
第 4 樓
|
| 發表於: 星期三 九月 13, 2006 8:20 pm 文章主題: 請問除了開啟,又該如何直接由vfp控制,將pdf檔列印到印表機上? |
|
|
| 請問除了開啟,又該如何直接由vfp控制,將pdf檔列印到印表機上? |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 5 樓
|
| 發表於: 星期四 九月 14, 2006 9:51 am 文章主題: |
|
|
搜尋 shellExecute print
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
KKKLYNN
註冊時間: 2004-09-17
文章: 357
第 6 樓
|
| 發表於: 星期四 九月 21, 2006 2:40 pm 文章主題: |
|
|
建議還是由pdf來決定是否列印
因為文件保全問題
公司的文件是不能隨意列印,交由acrobat來處理惠比較好一點
另建議您結合listbox+檔案路徑
來開啟文件,也就是文件線上查看
同時也物件崁在form內,會更好
獨立一個視窗來看文件有些麻煩
以上您參考 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 7 樓
|
| 發表於: 星期三 五月 23, 2007 4:56 pm 文章主題: |
|
|
撿到的範例,
適用於 ADOBE PDF READER 7.X
| 代碼: |
Public oform1
oform1=Newobject("form1")
oform1.AddObject("olecontrol2","olecontrol2")
oform1.olecontrol2.loadfile('c:\aaaa.pdf')
oform1.olecontrol2.Top=13
oform1.olecontrol2.Left=13
oform1.Show
Define Class form1 As Form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
Height = 600
Width = 800
Add Object shape1 As Shape With ;
Top = 12, ;
Left = 12, ;
Height = 517, ;
Width = 769, ;
SpecialEffect = 0, ;
Name = "Shape1"
Add Object command1 As CommandButton With ;
Top = 550, ;
Left = 600, ;
Height = 27, ;
Width = 84, ;
Caption = "Load file", ;
Name = "Command1"
Procedure command1.Click
Thisform.olecontrol2.loadfile(Getfile("PDF"))
Thisform.olecontrol2.Height = 515
Thisform.olecontrol2.Width = 767
Endproc
Add Object command2 As CommandButton With ;
Top = 550, ;
Left = 516, ;
Height = 27, ;
Width = 84, ;
Caption = "Print file", ;
Name = "Command2"
Procedure command2.Click
Thisform.olecontrol2.Print()
Endproc
Enddefine
Define Class olecontrol2 As OleControl
OleClass = "AcroPDF.PDF.1"
Height = 0
Width = 0
Visible = .T.
Enddefine
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 8 樓
|
| 發表於: 星期三 五月 23, 2007 5:02 pm 文章主題: |
|
|
備註:
如果你直接在已經做好的FORM的事件中加進去 PDF READER 物件,
AddObject() 必須適度修改,
直接套用肯定會出問題. ^_^
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 9 樓
|
| 發表於: 星期三 五月 23, 2007 5:06 pm 文章主題: |
|
|
當已經建立物件好之後,
可以使用 loadfile() 載入pdf檔
也可以用 print() 列印pdf檔
範例都有,
還有其他的 method
| 代碼: |
METHOD:
GetVersions Method
LoadFile Method (fileName as String) as Logical
Print Method
goBackwardStack Method
goForwardStack Method
gotoFirstPage Method
gotoLastPage Method
gotoNextPage Method
gotoPreviousPage Method
printAll Method
printAllFit Method (shrinkToFit as Logical)
printPages Method (from as Number? to as Number)
printPagesFit Method (from as Number? to as Number? shrinkToFit as Logical)
printWithDialog Method
setCurrentHighlight Method (a as Number? b as Number? c as Number? d as
Number)
setCurrentHightlight Method (a as Number? b as Number? c as Number? d as
Number)
setCurrentPage Method (n as Number)
setLayoutMode Method (layoutMode as String)
setNamedDest Method (namedDest as String)
setPageMode Method (pageMode as String)
setShowScrollbars Method (On as Logical)
setShowToolbar Method (On as Logical)
setView Method (viewMode as String)
setViewRect Method (left as Number? top as Number? width as Number? height
as Number)
setViewScroll Method (viewMode as String? offset as Number)
setZoom Method (percent as Number)
setZoomScroll Method (percent as Number? left as Number? top as Number)
Property:
src
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 10 樓
|
| 發表於: 星期三 五月 23, 2007 5:11 pm 文章主題: |
|
|
完整 AcroPDF.PDF.1 的 Object Model 請到 adobe 去找
IACReference.pdf (AxAcroPDFLib.AxAcroPDF)
reader_overview.pdf
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
