| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
aa_7521
註冊時間: 2003-06-06
文章: 2
第 1 樓
|
 發表於: 星期五 六月 06, 2003 10:29 am 文章主題: 可以知道螢幕預覽後續動作為何嗎 |
 |
|
請問程式裡寫螢幕預覽
預覽時如再按列印出資料
VFP有法子知道,USER按了報表輸出.或結束嗎
3Q |
|
| 回頂端 |
|
 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 2 樓
|
|
| 回頂端 |
|
|
ICTANG
註冊時間: 2003-03-18
文章: 11
來自: Taipei
第 3 樓
|
| 發表於: 星期六 六月 07, 2003 9:55 am 文章主題: |
|
|
若只是要防止USER由PREVIEW處列印,可加入:
M.PREVIEWFILE="C:\TEMP\ABC.TMP"
REPORT FORM MYREPO TO FILE (M.PREVIEWFILE) PREVIEW
DELETE FILE (M.PREVIEWFILE)
但缺點是畫面上仍可看到PRINTER的小BUTTON
優點是程式簡單. |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 4 樓
|
| 發表於: 星期五 三月 25, 2016 10:24 am 文章主題: |
|
|
| 代碼: |
M.PREVIEWFILE="C:\TEMP\ABC.TMP"
REPORT FORM MYREPO TO FILE (M.PREVIEWFILE) PREVIEW
DELETE FILE (M.PREVIEWFILE)
|
這個方法可行,
但偶而會失敗,很奇怪.
成功(無法列印)的時候,其實按下列印鈕會產生ERROR1958"載入印表機驅動程式時發生錯誤".
可以以此錯誤提醒使用者.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 5 樓
|
| 發表於: 星期五 三月 25, 2016 9:45 pm 文章主題: |
|
|
vfp9可以知道使用者預覽後的行為
只是有點囉唆
我都不想寫這麼細 |
|
| 回頂端 |
|
|
oldbb
註冊時間: 2007-02-28
文章: 83
第 6 樓
|
| 發表於: 星期六 三月 26, 2016 9:01 am 文章主題: |
|
|
VFP9 sample
| 代碼: | oRP = CREATEOBJECT("myRetroPreview")
oPC = NULL
** DO (_REPORTPREVIEW) WITH oPC
** C:\PROGRAM FILES (X86)\MICROSOFT VISUAL FOXPRO 9\REPORTPREVIEW.APP
DO ReportPreview.app WITH oPC
oPC.SetExtensionHandler(oRP)
oRL = CREATEOBJECT("Reportlistener")
oRL.ListenerType = 1
oRL.OutputType = 1
oRL.DynamicLineHeight = .F.
oRL.PreviewContainer = oPC
REPORT FORM myReportFile OBJECT oRL
RETURN
DEFINE CLASS myRetroPreview AS Custom
PROCEDURE AddBarsToMenu(cPopup, iNextBar)
RELEASE BAR 12 OF (cPopup)
ENDPROC
PROCEDURE Paint()
this.PreviewForm.Toolbar.CMDPRINT.Visible = .F.
ENDPROC
ENDDEFINE
|
|
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
