[轉貼] 印表機 自定的紙張格式設定 如何備份?

出至:http://neo2124.pixnet.net/blog/post/24215272-%E5%8D%B0%E8%A1%A8%E6%A9%9F-%E8%87%AA%E5%AE%9A%E7%9A%84%E7%B4%99%E5%BC%B5%E6%A0%BC%E5%BC%8F%E8%A8%AD%E5%AE%9A-%E5%A6%82%E4%BD%95%E5%82%99%E4%BB%BD%3F

有時候 user 的電腦掛了,在還原後總是需要重新設定特殊的印表機紙張格式。

之前處理方式是每次印表機更動一次就Ghost一次,可是負責印表機業務的同事三不五時就要更換新機種,實在是很受不了,而且每Ghost一次就要花個半小時多…實在太累人了啦!!!洋蔥頭動漫-翻桌

上網 Google了很久終於發現只要將下列機碼中的內容匯出就 ok 了,日後新電腦只要重新匯入 3 秒鐘就可搞定。

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Forms

匯出:點選 Froms 資料夾,按下右鍵選擇匯出。會匯出紙張自訂格式的註冊檔。

匯入:將此註冊檔在要加入自訂紙張格式的電腦上執行匯入的動作(直接點兩下註冊檔),將該電腦重新開機後,就能在印表機伺服器設定中,看到這些自訂紙張格式存在裏頭了。減少手工新增這些格式的時間。

已試過由 WinXP 匯出自訂紙張格式,然後匯入至它台的 WinXP 或 Win7 都沒問題。

廣告

Win7 網際網路「打叉」卻又可以連上網際網路

參考:http://www.mobile01.com/topicdetail.php?f=300&t=2298156

win7 x64 網際網路存取打叉,但是可以上網

有些是藍芽的區網沒連線,或者你有其他的網路裝置或虛擬網卡沒連時,都會有沒在用就把它「停用」就不會出現了。

今天就是因為 office2013 無法插入線上圖片,原因是一直出現網際網路無法連線,但是電腦又可以上網。只有網際網路存取是打叉的狀態。果然,一停用VirtualPC 所建立的 HostOnly 網路介面卡後,上述兩個問題就一並解決了。同時也解決,先前IE開首頁一直很慢的問題(首頁是google首頁)。

後記:沒多久,同一台電腦又出現同樣的問題。這次的發現是因為,在 Win7 上不宜直接將 squid 代理伺服器:通透式代理(Transparent Proxy) 設為預設閘道,最好是在IE上設定其為代理伺服器。才不會出現無網路連線的狀態(網際網路打叉的問題)。

vim 編輯文件時,每行後面總有個錢字符號「$」

出至:http://stackoverflow.com/questions/11735560/dollar-sign-at-the-end-of-every-line

Dollar sign at the end of every line

I am relatively new to Vim and am planning to code and learn Ruby on it. But whenever I start the Vim (e.g. vim LearnRuby.rb), a dollar sign appears at every line. I am wondering what’s it all about.

:set nolist

will turn off special characters for the current buffer, such as tabs being presented as ^I and end of line characters showing up as $.

However, if it’s doing that consistently when you run vim, you need to look into your .vimrc (or other startup file where applicable) and find out what’s doing the set list that causes it.

它「$」是特殊字元用來代表每一行的結尾。
在 vim 執行「:set list!」命令,切換顯示或隱藏這一些特殊字元。

vim 中如何取代特殊字元^M

出至:http://stackoverflow.com/questions/5939142/replacing-m-with-enter

Replacing ^M with Enter

I know how to remove ^M in my files (%s/^M//g), but this one is just one line I’d like to replace ^M with enter… what’s the enter character in VIM (to use in commnad-line mode).

You can replace one character using r<CR> in normal mode.
Or you can enter a “return" in command line mode by typing <C-v><CR>.

一般模式下取代一個字元,直接用「r<CR>」。<CR>是Enter鍵的意思!

或是在命令列模式中先按下「Ctrl+V」就會出現「^」字元,接著再按下「Enter」就能順利打出「^M」這個符號了。

[轉貼] 無線AP如何使用WDS協定設定無線串接(中繼)

出至:http://tw.knowledge.yahoo.com/question/question?qid=1012052703756

要設定第一台分享器是主AP,接數據機,其餘六台分享器透過WDS模式來做無線橋接/中繼/漫遊。

數據機 –> 主AP –> 中繼一 –> 中繼二 –> 中繼三 –> 中繼四 –> 中繼五 –> 中繼六

分享器設定如下。

1. 所有分享器都必須啟動WDS功能,主AP設定為「AP+WDS」模式,其餘六台WDS AP設定為「WDS」模式。

2. 中繼分享器都必須加入前後兩台分享器的MAC address,應該可在分享器的背面找到MAC address。注意不要設錯了,設錯了會造成迴圈,無法連線。主AP加入中繼一,中繼一加入主AP與中繼二,中繼二加入中繼一與中繼三,依此類推。

3. 所有分享器的頻段 (如802.11g)、頻道 (如6)、加密方式 (只能用WEP)都必須一樣。

4. 所有分享器的IP address必須不同,但在同一個區網。譬如主AP是192.168.0.1,第一台中繼AP則設定為192.168.0.2,以此類推,所有分享器的子網路遮罩必須相同。

5. 在主AP中開啟DHCP,IP address範圍必須扣除所有中繼AP的IP,六台中繼AP都必須關閉DHCP。

至於分享器,一般來說,Buffalo, SMC是比較高檔的無線分享器品牌。但你已經有兩台TP-Link分享器,都是三根3dBi天線,你可以嘗試更換成三根5dBi天線,然後在不同層樓接上試看看,看會不會還是有訊號不良的狀況。

Excel vba 檢查儲存格中的值是否在其它資料表中出現並標記

參考:

如何在 Excel 中計算範圍內之數字或文字出現的次數

用Range?用Cells?

說明:檢查儲存格的值,是否在其它表格範圍(range)出現(countif)。

VBA CODE

'將要檢查的工作表Sheet1 (DATA) 儲存格E26~E112中的值, 一個一個取出來用來統計是否在工作表Sheet3 (Sheet1)
'儲存格中F2~F303 是否有出現過。
'如果有出現過,就將受檢查的儲存格的內容文件改為紅色字。

Function usecells()
Dim j As Long
'僅在 Sheet1 中執行以下程式碼
With Sheet1
For j = 26 To 112
    cas = .Range("E" & j) '取得受檢查字串
    '判斷字串在樣本中是否出現
    If Application.WorksheetFunction.CountIf(Workbooks(1).Sheets(3).Range("f2:f303"), "*" & cas & "*") > 0 Then
        .Range("E" & j).Font.ColorIndex = 3 '修改字體顏色為紅色
    End If
Next
End With
End Function

[轉貼] Excel VBA – 從 Word 表格取回資料

出至:http://www.pczone.com.tw/vbb3/thread/5/61970/

【教學】Excel VBA – 從 Word 表格取回資料

如何從Word表格取回資料至Excel工作表?
我所知的方法有 DDE 和 OLE,但我只會用 OLE 囉…

Sub get_word_table( )
Dim wrdApp As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("D:\Temp\ole_test.doc")
With wrdDoc.Tables(1)
 For r = 1 To .Rows.Count
  For c = 1 To .Columns.Count
  Cells(r, c) = .Cell(r, c)
  Next c
 Next r
End With
wrdDoc.Close ‘close the document
wrdApp.Quit ‘close Word
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub

逐行說明

宣告一個物件變數 wrdApp
令物件變數 wrdApp = 建立的Word應用程式物件
令物件變數 wrdDoc = 指定的Word文件檔案
引用該 Word 文件的第一個表格
對該表格的每一列做迴圈, 變數 r 為列號
對每一列的每一欄做迴圈, 變數 c 為欄號
令目前工作表的第 r 列第 c 欄儲存格值 = 該 Word 表格的對應儲存格
繼續迴圈中的下一欄, 直到最後一欄
繼續迴圈中的下一列, 直到最後一列
結束該Word表格的引用
關閉該Word文件檔
結束Word應用程式
釋放物件變數wrdDoc
釋放物件變數wrdApp

PS.這個程式要在Excel空白工作表中執行。