如何移除 officescan
1、進入安全模式,不含網路以及命令字元
2、進入Regedit機碼登錄程式→Local Machine→Software→Trend Micro→Pcclin Corp→Current→Misc→Allow Uninstall
3、將Allow Uninstall的數值從0改成1
4、直接在安全模式下反安裝,不會再出現密碼提示畫面,大功告成。
Thursday, February 05, 2015
Monday, December 08, 2014
安裝 chrome 外掛 FastestTube--YouTube downloader tool
安裝 chrome 外掛 FastestTube--YouTube downloader tool
下載Youtube影片的擴充功能
不再因為「來源不是 Chrome 線上應用程式商店。」被封鎖
參考下列網址
http://kwizzu.com/chrome.html?install
https://www.facebook.com/A.Hen.SoHo/posts/253134168228164
Tuesday, July 15, 2014
忘記 Windows 7 登入密碼怎麼辦?
Step1
準備好Windows 7安裝光碟
將Windows 7的安裝光碟放進光碟機,在安裝過程中選擇「修復您的電腦」,在接下來的視窗,點選「命令提示字元」。
Step2
在開啟的命令提示字元視窗中
輸入「cd\」,跳到「c:」下。
輸入「cd windows\system32」。
輸入「ren Magnify.exe Magnify1.exe」。
輸入「ren cmd.exe Magnify.exe」,關閉「命令提示字元」後重新啟動電腦。
Step3
回到Windows 登入畫面,在登入畫面左下角的輕鬆存取,有六個選項,選擇「放大鏡程式」就會開啟「命令提示字元」的視窗,接著輸入「net user 登入帳號 123456」,將登入密碼改成123456,接著關閉視窗。
Step4
回到登入畫面,輸入更改以後的密碼123456,就能登入Windows 7。
Step5
最後,記得將「命令提示字元」和「放大鏡」更改為原來的名稱,在命令提示字元視窗中依序輸入1、「ren Magnify.exe cmd.exe」以及2、「ren Magnify1.exe Magnify.exe」
在這個步驟會出現「TrustedInstaller」權限問題
【如何解決TrustedInstaller權限問題】
在Windows7中微軟對於重要的系統檔,不管是System或Administrator帳號,只賦予讀取的功能。而完整的控制功能,則交給TrustedInstaller這個虛擬帳號。
因此你會發現,雖然你是系統的最高管理員,但是在Windows7想要修改或刪除某些系統檔,它會出現拒絕存取檔案的訊息:
這樣的好處,可以減少惡意程式入侵竄改系統檔的機會。壞處就是,如果要手動異動系統檔或其他重要檔案,就會遇到拒絕存取的問題。
要解決這個問題,首先必須將檔案的擁有權拿回來,再將檔案控制權交給你想要使用的帳號。
1、假設你想讓administrator這個帳號,對adsldp.dll檔擁有完全的控制權。你先在這個檔案的”擁有者”選項,將擁有者從TrustedInstaller改為administrators。
2、因為administrator已取得對檔案的”擁有權”,這時候就可以給它”完全控制”的權限,讓administrator重新取得對檔案的控制權。
【如何還原TrustedInstaller權限】
權限取得容易還原難,一些人取得完權限之後想要再叫出TrustedInstaller群組權限發現找不到,尋找了老半天也是一個影子都沒有,怎麼會這樣?
原因就在於TrustedInstaller這個群組是隸屬於NT系統服務的一部分,所以你在"選取使用者與群組"那邊不管怎麼找當然會找不到。
要加入TrustedInstaller群組其實很簡單,只要...
1.在"選取使用者或群組"畫面中把"NT SERVICE\TrustedInstaller" 給輸入下去
2.最後再選擇TrustedInstaller群組,這麼一來控制權就會回到系統手中了。
參考:
1.http://www.techbang.com/posts/12607-forget-windows-7-login-password-reset-the-bu-qiu-ren
2.http://mike7120.blogspot.tw/2011/03/trustedinstaller.html
3.http://defeatshame.blogspot.com/2011/04/trustedinstaller.html
準備好Windows 7安裝光碟
將Windows 7的安裝光碟放進光碟機,在安裝過程中選擇「修復您的電腦」,在接下來的視窗,點選「命令提示字元」。
Step2
在開啟的命令提示字元視窗中
輸入「cd\」,跳到「c:」下。
輸入「cd windows\system32」。
輸入「ren Magnify.exe Magnify1.exe」。
輸入「ren cmd.exe Magnify.exe」,關閉「命令提示字元」後重新啟動電腦。
Step3
回到Windows 登入畫面,在登入畫面左下角的輕鬆存取,有六個選項,選擇「放大鏡程式」就會開啟「命令提示字元」的視窗,接著輸入「net user 登入帳號 123456」,將登入密碼改成123456,接著關閉視窗。
Step4
回到登入畫面,輸入更改以後的密碼123456,就能登入Windows 7。
Step5
最後,記得將「命令提示字元」和「放大鏡」更改為原來的名稱,在命令提示字元視窗中依序輸入1、「ren Magnify.exe cmd.exe」以及2、「ren Magnify1.exe Magnify.exe」
在這個步驟會出現「TrustedInstaller」權限問題
【如何解決TrustedInstaller權限問題】
在Windows7中微軟對於重要的系統檔,不管是System或Administrator帳號,只賦予讀取的功能。而完整的控制功能,則交給TrustedInstaller這個虛擬帳號。
因此你會發現,雖然你是系統的最高管理員,但是在Windows7想要修改或刪除某些系統檔,它會出現拒絕存取檔案的訊息:
這樣的好處,可以減少惡意程式入侵竄改系統檔的機會。壞處就是,如果要手動異動系統檔或其他重要檔案,就會遇到拒絕存取的問題。
要解決這個問題,首先必須將檔案的擁有權拿回來,再將檔案控制權交給你想要使用的帳號。
1、假設你想讓administrator這個帳號,對adsldp.dll檔擁有完全的控制權。你先在這個檔案的”擁有者”選項,將擁有者從TrustedInstaller改為administrators。
2、因為administrator已取得對檔案的”擁有權”,這時候就可以給它”完全控制”的權限,讓administrator重新取得對檔案的控制權。
【如何還原TrustedInstaller權限】
權限取得容易還原難,一些人取得完權限之後想要再叫出TrustedInstaller群組權限發現找不到,尋找了老半天也是一個影子都沒有,怎麼會這樣?
原因就在於TrustedInstaller這個群組是隸屬於NT系統服務的一部分,所以你在"選取使用者與群組"那邊不管怎麼找當然會找不到。
要加入TrustedInstaller群組其實很簡單,只要...
1.在"選取使用者或群組"畫面中把"NT SERVICE\TrustedInstaller" 給輸入下去
2.最後再選擇TrustedInstaller群組,這麼一來控制權就會回到系統手中了。
參考:
1.http://www.techbang.com/posts/12607-forget-windows-7-login-password-reset-the-bu-qiu-ren
2.http://mike7120.blogspot.tw/2011/03/trustedinstaller.html
3.http://defeatshame.blogspot.com/2011/04/trustedinstaller.html
Friday, June 06, 2014
遠端開機的設定 (以ACER L480為例)
遠端開機的設定
(以ACER L480為例)
⊙前置作業:
Step1:開機時按 Del 鍵進入 BIOS 。
1、 進入Integrated Peripherals
Onboard LAN Controller =
Enabled
Onboard LAN Option ROM = Enabled
2、 進入Power Management Setup
ACPI Suspend Mode =
S3(STR)
Deep Power Off Mode = Disabled
Power On PCIE Devices = Enabled
Deep Power Off Mode = Disabled
Power On PCIE Devices = Enabled
Step2:設定網路卡
Step3:取得ip及MAC address
⊙執行遠端開機
Step4:由另一部電腦傳送「Magic Packet」封包,喚醒電腦。
2.執行CMD 進入「命令提示字元」
3.執行:mc-wol [MAC] /a [IP]
[IP]可以輸入該主機IP(163.20.01.12),也可以輸入該網段(163.20.01.255)
例:mc-wol 00:00:00:00:00:00 /a 163.20.01.255
可寫成批次檔,方便下次使用。
Tuesday, June 03, 2014
隨身碟檔案消失處理方式
狀況:打開隨身碟,發現檔案全都不見了,然而隨身碟的容量都沒有變少,所以是檔案還在裡面?但就是找不到。
步驟1:
執行「CMD」開啟「命令提示字元」
切換磁碟到隨身碟(若隨身碟為 F:\則輸入 F:後按下 ENTER 鍵 )
輸入下列指令並按下 ENTER 鍵:
attrib –s –h –r /d /s
等待程序完成(資料越多等待越久,請耐心等候)。
ATTRIB
+ 設定屬性。
- 清除屬性。
R 唯讀檔案屬性。
A 保存檔案屬性。
S 系統檔案屬性。
H 隱藏檔案屬性。
I 非內容索引檔案屬性。
/S 處理目前的資料夾及所有子資料夾中相符的檔案。
/D 一併處理資料夾。
/L 處理符號連結的屬性,而非符號連結的目標。
步驟2:
在檔案總管(設定顯示所有檔案)看到FOUND.000 這個資料夾,裡面的檔案都是 *.chk
這時可以使用trid.exe程式來猜測並回復為原來的檔案,將trid.exe及triddefs.trd放到救回的目錄中。
在命令列模式執行下列指令
trid.exe * -ae
(在.CHK副檔名後加上猜測的原始副檔名(add extension))
可救回約9成的檔案。
Info: http://mark0.net/soft-trid-e.html
步驟1:
執行「CMD」開啟「命令提示字元」
切換磁碟到隨身碟(若隨身碟為 F:\則輸入 F:後按下 ENTER 鍵 )
輸入下列指令並按下 ENTER 鍵:
attrib –s –h –r /d /s
等待程序完成(資料越多等待越久,請耐心等候)。
ATTRIB
+ 設定屬性。
- 清除屬性。
R 唯讀檔案屬性。
A 保存檔案屬性。
S 系統檔案屬性。
H 隱藏檔案屬性。
I 非內容索引檔案屬性。
/S 處理目前的資料夾及所有子資料夾中相符的檔案。
/D 一併處理資料夾。
/L 處理符號連結的屬性,而非符號連結的目標。
步驟2:
在檔案總管(設定顯示所有檔案)看到FOUND.000 這個資料夾,裡面的檔案都是 *.chk
這時可以使用trid.exe程式來猜測並回復為原來的檔案,將trid.exe及triddefs.trd放到救回的目錄中。
在命令列模式執行下列指令
trid.exe * -ae
(在.CHK副檔名後加上猜測的原始副檔名(add extension))
可救回約9成的檔案。
Info: http://mark0.net/soft-trid-e.html
Monday, March 31, 2014
在網頁新增 HTML5 video 控制項
記下來,免得忘了。
http://msdn.microsoft.com/zh-tw/library/ie/hh924820(v=vs.85).aspx
http://twweeb.org/html5-video-tag/
<video id="movie" preload controls loop poster="poster.png" width="640" height="360"> <source src="Yif-Magic.mp4" type="video/mp4" /> <source src="Yif-Magic.ogv" type="video/ogg" /> <source src="Yif-Magic.webm" type="video/web" /> 您的瀏覽器不支援HTML 5影片播放標籤<video>格式。 Your browser doesn't support the <video> tag. </video>
http://msdn.microsoft.com/zh-tw/library/ie/hh924820(v=vs.85).aspx
http://twweeb.org/html5-video-tag/
Friday, March 21, 2014
Windows Vista/7專用檔案複製、移動、同步指令《robocopy》
robocopy e:\1 e:\2 /mir /MT:100
這一行指令代表是將資料夾1的內容複製到資料夾2,
但相同內容則略過,同時清理目標資料夾有而來源資料夾裡沒有的文件(夾)。
通過這個指令,能保證來源資料夾和目標資料夾結構與文件完全相同。
而後面的MT指的是通道數量,
一般而言設定100就夠了。
除了「/MIR」這一個參數之外,其它參數如下:
「/E」(複製):包含子資料夾全部複製
「/S」(複製):包含子資料夾全部複製,但排除空資料夾
「/MOVE」(移動):將資料夾剪下貼上的意思
這一行指令代表是將資料夾1的內容複製到資料夾2,
但相同內容則略過,同時清理目標資料夾有而來源資料夾裡沒有的文件(夾)。
通過這個指令,能保證來源資料夾和目標資料夾結構與文件完全相同。
而後面的MT指的是通道數量,
一般而言設定100就夠了。
除了「/MIR」這一個參數之外,其它參數如下:
「/E」(複製):包含子資料夾全部複製
「/S」(複製):包含子資料夾全部複製,但排除空資料夾
「/MOVE」(移動):將資料夾剪下貼上的意思
Wednesday, February 12, 2014
win7 CD 自動播放功能 開啟/關閉
為了「防毒」最好關閉這功能,但為了方便,有時又想開啟。但這功能似乎不是很簡單就能啟用。
(1)最外層--控制台、硬體和音效、自動播放
(2)如果不行,檢查「本機群組原則編輯器」(gpedit.msc)--本機電腦原則/系統管理範本/windows 元件/自動播放原則
(3)再不行,「登錄編輯程式」(regedit.exe)
0×00000000 (0) enable all AutoPlay and AutoRun.
0×00000080 (128) disable AutoPlay on unknown reserved file type.
0×00000091 (145) default in Windows Vista and Windows 7.
0×00000095 (149) default in Windows XP.
0×000000B5 (181) disable AutoRun on CD-ROM drives, plus default unknown drive, removable drive (meant for floppy or ZIP), network drive and reserved drive type.
0×000000FF (255) disable AutoRun/AutoPlay on all drive types.
Monday, December 16, 2013
Thursday, December 05, 2013
Wednesday, December 04, 2013
Sunday, November 03, 2013
Tuesday, October 29, 2013
[Ubuntu] Apache 未設定 ServerName 造成的警告
重新啟動 apache2 出現這錯誤訊息:
Could not reliably determine the server's fully qualified domain name, using 127.0.1.1 for ServerName
只要在 httpd.conf 或是 apache2.conf 裡面加上
ServerName 127.0.0.1 即可。(/etc/apache2/httpd.conf)
Could not reliably determine the server's fully qualified domain name, using 127.0.1.1 for ServerName
只要在 httpd.conf 或是 apache2.conf 裡面加上
ServerName 127.0.0.1 即可。(/etc/apache2/httpd.conf)
Sunday, October 27, 2013
在php.ini裡有一些跟上傳檔案時有關的數值
在php.ini裡有一些跟上傳檔案時有關的數值
upload_max_filesize:
這是上傳單一檔案的大小限制(要上傳課程包建議設成900M)
post_max_size:
PHP允許一次上傳檔案的大小限制(一次多個檔案的總合)
這個 post_max_size 必須大於 upload_max_filesize(要上傳課程包建議設成2000M)
memory_limit:
執行每個scripts時使用的memory大小限制
這個 memory_limit 必須大於 post_max_size
這三個數值的大小,必須是
memory_limit > post_max_size > upload_max_filesize (要上傳課程包建議設成2048 M)
補充文章:「 阿欣老師談 php.ini的 max_file_uploads ~ 」參考網頁:http://plog.hlps.tc.edu.tw/post/1/5754
php 5.2.12 及以上的版本,有個隱藏版的限制是在 php.ini 裡沒有的,也就是 max_file_uploads 這個設定。預設值是 20 ,也就是說,只要是有上傳檔案的程式,一次最多只能上傳20個檔案而已。
解決的方法就是自己手動在 php.ini 這個檔案裡新增這個設定值進去,例如
max_file_uploads = 200
再 restart 就可以了。( /etc/init.d/apache2 restart)
upload_max_filesize:
這是上傳單一檔案的大小限制(要上傳課程包建議設成900M)
post_max_size:
PHP允許一次上傳檔案的大小限制(一次多個檔案的總合)
這個 post_max_size 必須大於 upload_max_filesize(要上傳課程包建議設成2000M)
memory_limit:
執行每個scripts時使用的memory大小限制
這個 memory_limit 必須大於 post_max_size
這三個數值的大小,必須是
memory_limit > post_max_size > upload_max_filesize (要上傳課程包建議設成2048 M)
補充文章:「 阿欣老師談 php.ini的 max_file_uploads ~ 」參考網頁:http://plog.hlps.tc.edu.tw/post/1/5754
php 5.2.12 及以上的版本,有個隱藏版的限制是在 php.ini 裡沒有的,也就是 max_file_uploads 這個設定。預設值是 20 ,也就是說,只要是有上傳檔案的程式,一次最多只能上傳20個檔案而已。
解決的方法就是自己手動在 php.ini 這個檔案裡新增這個設定值進去,例如
max_file_uploads = 200
再 restart 就可以了。( /etc/init.d/apache2 restart)
Sunday, October 13, 2013
windows遠端協助操作說明
Thursday, October 10, 2013
啟用 win8 & office2010
命令提示字元,用系統管理員身分執行
slmgr -skms kms.ntpc.edu.tw
slmgr -ato
slmgr /xpr
office2010驗證中…
cscript "c:\Program Files\Microsoft Office\Office14\ospp.vbs" /sethst:kms.ntpc.edu.tw
cscript "c:\Program Files\Microsoft Office\Office14\ospp.vbs" /setprt:1688
cscript "c:\Program Files\Microsoft Office\Office14\ospp.vbs" /act
slmgr -skms kms.ntpc.edu.tw
slmgr -ato
slmgr /xpr
office2010驗證中…
cscript "c:\Program Files\Microsoft Office\Office14\ospp.vbs" /sethst:kms.ntpc.edu.tw
cscript "c:\Program Files\Microsoft Office\Office14\ospp.vbs" /setprt:1688
cscript "c:\Program Files\Microsoft Office\Office14\ospp.vbs" /act
Sunday, June 30, 2013
Windows Media Player HTML5 Extension for Chrome
Windows Media Player HTML5 Extension for Chrome
The Windows Media Player HTML5 Extension for Chrome is an extension that enables Chrome users to play H.264-encoded videos (aka MP4) on HTML5 pages by using the built-in capabilities found in Windows 7.
http://www.interoperabilitybridges.com/ChromeWMP/wmpChrome.crx
The Windows Media Player HTML5 Extension for Chrome is an extension that enables Chrome users to play H.264-encoded videos (aka MP4) on HTML5 pages by using the built-in capabilities found in Windows 7.
http://www.interoperabilitybridges.com/ChromeWMP/wmpChrome.crx
chrome 外掛 YouTube Video Download
YouTube Video Download
Script Summary: Download videos from YouTube. Simple, lightweight and supports all formats, including WebM.
Thursday, March 28, 2013
筆電變無線基地台
1.以「系統管理員」身份執行-命令提示字元
cd \windows\system32
netsh wlan set hostednetwork mode=allow ssid=******** key=********
netsh wlan start hostednetwork (啟動主控網路)
netsh wlan stop hostednetwork (停止時用)
2.會產生一個新的連線,例:無線網路連線6
3.將「區域連線」分享給「無線網路連線6」
cd \windows\system32
netsh wlan set hostednetwork mode=allow ssid=******** key=********
netsh wlan start hostednetwork (啟動主控網路)
netsh wlan stop hostednetwork (停止時用)
2.會產生一個新的連線,例:無線網路連線6
3.將「區域連線」分享給「無線網路連線6」
Tuesday, February 26, 2013
PowerPoint列印簡報為講義模式的頁碼設定
http://itstaffnetwork.blogspot.tw/2012/05/powerpoint-1-1ppt-2-3-4pdfpdf-5vba-1.html
Dim i As Long
Dim lStart As Long
Dim lStop As Long
Dim
lHandoutKind As Long
Dim lSlide As Long
Dim lSlideEnd As Long
Dim
ppHandoutKind As PpPrintOutputType
Dim vbConfirm As
VbMsgBoxResult
'
lSlide = InputBox("從哪一張簡報開始列印?", "開始簡報",
"1")
'
lStart = InputBox("講義起始頁碼編號: ", "講義起始頁碼", "1")
'
lHandoutKind
= InputBox("每頁幾張簡報?" & vbNewLine & "2, 3, 4, 6, 9?", "講義列印類型",
"6")
'
Select Case lHandoutKind
Case 1, 2
ppHandoutKind =
ppPrintOutputTwoSlideHandouts
lHandoutKind = 2
Case 3
ppHandoutKind =
ppPrintOutputThreeSlideHandouts
lHandoutKind = 3
Case 4
ppHandoutKind =
ppPrintOutputFourSlideHandouts
lHandoutKind = 4
Case 5, 6
ppHandoutKind
= ppPrintOutputSixSlideHandouts
lHandoutKind = 6
Case
Else
ppHandoutKind = ppPrintOutputNineSlideHandouts
lHandoutKind =
9
End Select
'
vbConfirm = MsgBox("您已選擇講義列印,每頁投影片張數為" &
lHandoutKind & "張,起始列印頁碼為" & lStart & vbNewLine & ",開始列印頁數為"
& lSlide & ".", vbOKCancel)
'
If vbConfirm = vbOK
Then
'
lStop = Round((ActivePresentation.Slides.Count - (lSlide - 1)) /
lHandoutKind)
If Round((ActivePresentation.Slides.Count - (lSlide - 1)) Mod
lHandoutKind) <= (lHandoutKind / 2) Then
lStop = lStop + 1
End
If
'
For i = 1 To
lStop
'
ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible
=
msoFalse
ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text
= lStart
lStart = lStart + 1
'
With
ActivePresentation.PrintOptions
'
.RangeType =
ppPrintSlideRange
With .Ranges
'
.ClearAll
'
lSlideEnd = lSlide +
lHandoutKind - 1
'
If lSlide > ActivePresentation.Slides.Count
Then
lSlide = ActivePresentation.Slides.Count
End If
If lSlideEnd >
ActivePresentation.Slides.Count Then
lSlideEnd =
ActivePresentation.Slides.Count
End If
.Add Start:=lSlide,
End:=lSlideEnd
lSlide = lSlide + lHandoutKind
End With
'
' Set
number of copies to 1.
'
.NumberOfCopies = 1
'
.OutputType =
ppHandoutKind
'
.HandoutOrder = ppPrintHandoutVerticalFirst
'
列印顏色設定為純粹黑白
.PrintColorType = ppPrintPureBlackAndWhite
'.PrintColorType = ppPrintBlackAndWhite
'.PrintColorType = ppPrintColor
'
配合紙張調整大小
.FitToPage = msoTrue
' 投影片加框
.FrameSlides =
msoTrue
End With
'
'
立即列印出來
ActivePresentation.PrintOut
'
預覽列印;設定預覽列印無法看出講義模式設定頁碼的功能
' ActiveWindow.ViewType =
ppViewPrintPreview
Next i
End
If
'
ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text =
""
ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible =
msoTrue
Dim i As Long
Dim lStart As Long
Dim lStop As Long
Dim
lHandoutKind As Long
Dim lSlide As Long
Dim lSlideEnd As Long
Dim
ppHandoutKind As PpPrintOutputType
Dim vbConfirm As
VbMsgBoxResult
'
lSlide = InputBox("從哪一張簡報開始列印?", "開始簡報",
"1")
'
lStart = InputBox("講義起始頁碼編號: ", "講義起始頁碼", "1")
'
lHandoutKind
= InputBox("每頁幾張簡報?" & vbNewLine & "2, 3, 4, 6, 9?", "講義列印類型",
"6")
'
Select Case lHandoutKind
Case 1, 2
ppHandoutKind =
ppPrintOutputTwoSlideHandouts
lHandoutKind = 2
Case 3
ppHandoutKind =
ppPrintOutputThreeSlideHandouts
lHandoutKind = 3
Case 4
ppHandoutKind =
ppPrintOutputFourSlideHandouts
lHandoutKind = 4
Case 5, 6
ppHandoutKind
= ppPrintOutputSixSlideHandouts
lHandoutKind = 6
Case
Else
ppHandoutKind = ppPrintOutputNineSlideHandouts
lHandoutKind =
9
End Select
'
vbConfirm = MsgBox("您已選擇講義列印,每頁投影片張數為" &
lHandoutKind & "張,起始列印頁碼為" & lStart & vbNewLine & ",開始列印頁數為"
& lSlide & ".", vbOKCancel)
'
If vbConfirm = vbOK
Then
'
lStop = Round((ActivePresentation.Slides.Count - (lSlide - 1)) /
lHandoutKind)
If Round((ActivePresentation.Slides.Count - (lSlide - 1)) Mod
lHandoutKind) <= (lHandoutKind / 2) Then
lStop = lStop + 1
End
If
'
For i = 1 To
lStop
'
ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible
=
msoFalse
ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text
= lStart
lStart = lStart + 1
'
With
ActivePresentation.PrintOptions
'
.RangeType =
ppPrintSlideRange
With .Ranges
'
.ClearAll
'
lSlideEnd = lSlide +
lHandoutKind - 1
'
If lSlide > ActivePresentation.Slides.Count
Then
lSlide = ActivePresentation.Slides.Count
End If
If lSlideEnd >
ActivePresentation.Slides.Count Then
lSlideEnd =
ActivePresentation.Slides.Count
End If
.Add Start:=lSlide,
End:=lSlideEnd
lSlide = lSlide + lHandoutKind
End With
'
' Set
number of copies to 1.
'
.NumberOfCopies = 1
'
.OutputType =
ppHandoutKind
'
.HandoutOrder = ppPrintHandoutVerticalFirst
'
列印顏色設定為純粹黑白
.PrintColorType = ppPrintPureBlackAndWhite
'.PrintColorType = ppPrintBlackAndWhite
'.PrintColorType = ppPrintColor
'
配合紙張調整大小
.FitToPage = msoTrue
' 投影片加框
.FrameSlides =
msoTrue
End With
'
'
立即列印出來
ActivePresentation.PrintOut
'
預覽列印;設定預覽列印無法看出講義模式設定頁碼的功能
' ActiveWindow.ViewType =
ppViewPrintPreview
Next i
End
If
'
ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text =
""
ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible =
msoTrue
Subscribe to:
Posts (Atom)